collapsed table

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(
@@ -150,10 +150,22 @@ shinyServer
     data16S()
   })
   
-  output$sampledataTable <- renderTable({
+  output$sampledataTable <- renderUI({
     validate(need(sample_data(data16S(), errorIfNULL = FALSE), ""))
-    sapply(sample_data(data16S()), class)
-  }, rownames = TRUE, colnames = FALSE, caption = "Class of sample_data", caption.placement = "top")
+    box(
+      title = "Class of sample_data",
+      width = NULL,
+      status = "primary",
+      collapsible = TRUE,
+      collapsed = TRUE,
+      renderTable({
+        (sapply(sample_data(data16S()), class))
+      }, rownames = TRUE, colnames = FALSE)
+    )
+    
+    #sapply(sample_data(data16S()), class)
+    #}, rownames = TRUE, colnames = FALSE, caption = "Class of sample_data", caption.placement = "top")
+  })
   
   output$summaryTable <- renderUI({
     validate(need(data16S(), ""))

ui.R

@@ -83,7 +83,7 @@ shinyUI(dashboardPage(
       tabPanel(
         "Summary",
         verbatimTextOutput("phyloseqPrint"),
-        tableOutput("sampledataTable"),
+        uiOutput("sampledataTable"),
         withLoader(uiOutput("summaryTable")),
         tags$footer(
           "Questions, problems or comments regarding this application should be sent to ",