From eb23ee7ead6fe7af77fe3d2cd1658c070d804c60 Mon Sep 17 00:00:00 2001
From: Cedric Midoux <cedric.midoux@inra.fr>
Date: Thu, 6 Sep 2018 10:14:50 +0200
Subject: [PATCH] collapsedBox

---
 server.R | 39 +++++++++++++++++----------------------
 1 file changed, 17 insertions(+), 22 deletions(-)

diff --git a/server.R b/server.R
index bcbb75f..596af5e 100644
--- a/server.R
+++ b/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(
@@ -45,6 +45,17 @@ shinyServer
     )
   }
   
+  collapsedBox <- function(data, title = title)  {
+    box(
+      title = title,
+      width = NULL,
+      status = "primary",
+      collapsible = TRUE,
+      collapsed = TRUE,
+      data
+    )
+  }
+  
   source({
     "https://raw.githubusercontent.com/mahendra-mariadassou/phyloseq-extended/master/R/load-extra-functions.R"
   })
@@ -152,19 +163,10 @@ shinyServer
   
   output$sampledataTable <- renderUI({
     validate(need(sample_data(data16S(), errorIfNULL = FALSE), ""))
-    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")
+    collapsedBox(renderTable({
+      (sapply(sample_data(data16S()), class))
+    }, rownames = TRUE, colnames = FALSE),
+    title = "Class of sample_data")
   })
   
   output$summaryTable <- renderUI({
@@ -216,14 +218,7 @@ shinyServer
         label = "X : ",
         choices = c("..." = 0, sample_variables(data16S()))
       ),
-      box(
-        title = "RCode",
-        width = NULL,
-        status = "primary",
-        collapsible = TRUE,
-        collapsed = TRUE,
-        verbatimTextOutput("histScript")
-      )
+      collapsedBox(verbatimTextOutput("histScript"), title = "RCode")
     )
   })
   
-- 
GitLab