Commit 5511da30 authored by Midoux Cedric's avatar Midoux Cedric
Browse files

Merge branch 'class_sample'

parents 9f80df55 d1e83687
...@@ -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(
...@@ -150,10 +150,22 @@ shinyServer ...@@ -150,10 +150,22 @@ shinyServer
data16S() data16S()
}) })
output$sampledataTable <- renderTable({ output$sampledataTable <- renderUI({
validate(need(sample_data(data16S(), errorIfNULL = FALSE), "")) validate(need(sample_data(data16S(), errorIfNULL = FALSE), ""))
sapply(sample_data(data16S()), class) box(
}, rownames = TRUE, colnames = FALSE, caption = "Class of sample_data", caption.placement = "top") 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({ output$summaryTable <- renderUI({
validate(need(data16S(), "")) validate(need(data16S(), ""))
......
...@@ -83,7 +83,7 @@ shinyUI(dashboardPage( ...@@ -83,7 +83,7 @@ shinyUI(dashboardPage(
tabPanel( tabPanel(
"Summary", "Summary",
verbatimTextOutput("phyloseqPrint"), verbatimTextOutput("phyloseqPrint"),
tableOutput("sampledataTable"), uiOutput("sampledataTable"),
withLoader(uiOutput("summaryTable")), withLoader(uiOutput("summaryTable")),
tags$footer( tags$footer(
"Questions, problems or comments regarding this application should be sent to ", "Questions, problems or comments regarding this application should be sent to ",
......
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