From d1e8368748daba223d516c05cb93abb6af759836 Mon Sep 17 00:00:00 2001
From: Cedric Midoux <cedric.midoux@inra.fr>
Date: Thu, 23 Aug 2018 11:09:50 +0200
Subject: [PATCH] collapsed table
---
server.R | 20 ++++++++++++++++----
ui.R | 2 +-
2 files changed, 17 insertions(+), 5 deletions(-)
diff --git a/server.R b/server.R
index c0f43f6..8663ef2 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(
@@ -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(), ""))
diff --git a/ui.R b/ui.R
index 42a3eda..cd24170 100644
--- a/ui.R
+++ b/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 ",
--
GitLab