SampleID

server.R

@@ -27,7 +27,7 @@ shinyServer
       options = list(
         dom = "lBtip",
         pageLength = 10,
-        lengthMenu = list(c(10, 25, 50, 100,-1), list('10', '25', '50', '100', 'All')),
+        lengthMenu = list(c(10, 25, 50, 100, -1), list('10', '25', '50', '100', 'All')),
         buttons = list(
           'colvis',
           list(
@@ -100,10 +100,11 @@ shinyServer
             row.names = 1,
             na.strings = NA
           )
+          sample_data(d)$SampleID <- rownames(sample_data(d))
         }
       } else {
         n <- data.frame(sample_names(d) , row.names = sample_names(d))
-        names(n) <- "sample_names"
+        names(n) <- "SampleID"
         sample_data(d) <- n
       }
       if (input$rareData) {
@@ -119,13 +120,9 @@ shinyServer
   })
   
   output$rarefactionMin <- renderText({
-    if (!is.null(input$fileBiom)) {
+    validate(need(input$fileBiom, ""), need(input$demo == "input", ""))
     paste("(min sample =", format(min(sample_sums(data16S(
-        
     ))), big.mark = " "), "reads)")
-    } else {
-      paste("(min sample =", 0, "reads)")
-    }
   })
   
   output$phyloseqPrint <- renderPrint({
@@ -743,10 +740,7 @@ shinyServer
       selectInput(
         "acpLabel",
         label = "Label :",
-        choices = c(
-          "..." = 0,
-          sample_variables(data16S())
-        )
+        choices = c("..." = 0, sample_variables(data16S()))
       ),
       selectInput(
         "acpCol",

ui.R

@@ -7,15 +7,13 @@ shinyUI(dashboardPage(
       selectInput(
         "demo",
         label = "Select demo data",
-        choices = list(
-          "Input data" = "input",
+        choices = list("Input data" = "input",
                        "Chaillou et al., 2015" = "food"#,
                        # "Mach et al., 2015" = "kinetic",
                        # "Morton et al., 2017" = "soil",
                        # "Ravel et al., 2011" = "ravel",
                        #"GlobalPatterns" = "GlobalPatterns",
-          #"biorare"
-        ),
+                       #"biorare"),
                        selected = 1
         )
       ),
@@ -177,4 +175,5 @@ shinyUI(dashboardPage(
         )
       )
     )
-))
+  ))
+  
\ No newline at end of file