Commit 995fdf7b authored by svolant's avatar svolant
Browse files

test RData

parent 5821f7b5
......@@ -90,6 +90,7 @@ shinyServer(function(input, output,session) {
return(data)
})
## Input data
......@@ -100,6 +101,8 @@ shinyServer(function(input, output,session) {
percent = NULL
Taxo = NULL
Counts = NULL
inputData = NULL
if(input$FileFormat=="fileCounts")
{
Counts = dataInputCounts()
......@@ -127,6 +130,17 @@ shinyServer(function(input, output,session) {
}
}
# if(input$FileFormat=="fileRData")
# {
# inFile <- input$fileRData
# load(inFile)
# if(!is.null(inputData)){
# data = inputData$data
# check = inputData$check
# percent = inputData$percent
# }
# }
return(list(data=data,check=check,percent=percent))
})
......
......@@ -44,6 +44,7 @@ sidebar <- dashboardSidebar(
menuItem("Upload your data", tabName = "Upload", icon = icon("upload")),
# bookmarkButton(),
menuItemOutput("dymMenu"),
img(src = "logo.jpg", height = 49, width = 220,style="position:absolute;bottom:0;margin:0 0 15px 10px;")
)
)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment