Commit 51eb46b1 authored by Midoux Cedric's avatar Midoux Cedric
Browse files

table options

parent d23e22f2
library(shinydashboard) library(shinydashboard)
library(dplyr)
library(glue) library(glue)
shinyServer shinyServer
...@@ -222,18 +223,34 @@ shinyServer ...@@ -222,18 +223,34 @@ shinyServer
Glom <- tax_glom(data16S(), input$glomRank) Glom <- tax_glom(data16S(), input$glomRank)
taxTableGlom <- Glom %>% taxTableGlom <- Glom %>%
tax_table() %>% tax_table() %>%
as.data.frame() %>% as.data.frame(stringsAsFactors = FALSE) %>%
dplyr::select(1:input$glomRank) %>% dplyr::select(1:input$glomRank) %>%
tibble::rownames_to_column() tibble::rownames_to_column()
otuTableGlom <- Glom %>% otuTableGlom <- Glom %>%
otu_table() %>% otu_table() %>%
as.data.frame() %>% as.data.frame(stringsAsFactors = FALSE) %>%
tibble::rownames_to_column() tibble::rownames_to_column()
joinGlom <- joinGlom <-
dplyr::left_join(taxTableGlom, otuTableGlom, by = "rowname") %>% dplyr::left_join(taxTableGlom, otuTableGlom, by = "rowname") %>%
dplyr::select(-rowname) dplyr::select(-rowname)
return(joinGlom) return(joinGlom)
}) },
options = list(
filter = "top",
dom = "lBtip",
pageLength = 10,
lengthMenu = list(c(10, 25, 50, 100, -1), list('10', '25', '50', '100', 'All')),
buttons = list(
'colvis',
list(
extend = 'collection',
buttons = c('copy', 'csv', 'excel', 'pdf'),
text = 'Download'
)
),
colReorder = TRUE,
scrollX = TRUE
))
output$histUI <- renderUI({ output$histUI <- renderUI({
validate(need(data16S(), "")) validate(need(data16S(), ""))
......
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