Commit eb23ee7e authored by Midoux Cedric's avatar Midoux Cedric

collapsedBox

parent e9de9648
...@@ -27,7 +27,7 @@ shinyServer ...@@ -27,7 +27,7 @@ shinyServer
options = list( options = list(
dom = "lBtip", dom = "lBtip",
pageLength = 10, 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( buttons = list(
'colvis', 'colvis',
list( list(
...@@ -45,6 +45,17 @@ shinyServer ...@@ -45,6 +45,17 @@ shinyServer
) )
} }
collapsedBox <- function(data, title = title) {
box(
title = title,
width = NULL,
status = "primary",
collapsible = TRUE,
collapsed = TRUE,
data
)
}
source({ source({
"https://raw.githubusercontent.com/mahendra-mariadassou/phyloseq-extended/master/R/load-extra-functions.R" "https://raw.githubusercontent.com/mahendra-mariadassou/phyloseq-extended/master/R/load-extra-functions.R"
}) })
...@@ -152,19 +163,10 @@ shinyServer ...@@ -152,19 +163,10 @@ shinyServer
output$sampledataTable <- renderUI({ output$sampledataTable <- renderUI({
validate(need(sample_data(data16S(), errorIfNULL = FALSE), "")) validate(need(sample_data(data16S(), errorIfNULL = FALSE), ""))
box( collapsedBox(renderTable({
title = "Class of sample_data", (sapply(sample_data(data16S()), class))
width = NULL, }, rownames = TRUE, colnames = FALSE),
status = "primary", title = "Class of sample_data")
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({ output$summaryTable <- renderUI({
...@@ -216,14 +218,7 @@ shinyServer ...@@ -216,14 +218,7 @@ shinyServer
label = "X : ", label = "X : ",
choices = c("..." = 0, sample_variables(data16S())) choices = c("..." = 0, sample_variables(data16S()))
), ),
box( collapsedBox(verbatimTextOutput("histScript"), title = "RCode")
title = "RCode",
width = NULL,
status = "primary",
collapsible = TRUE,
collapsed = TRUE,
verbatimTextOutput("histScript")
)
) )
}) })
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment