test RData

server.R

@@ -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))
   })
   

ui.R

@@ -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;")
   )
   )