Commit 5235e20f authored by Midoux Cedric's avatar Midoux Cedric

effet de bord dans la table agglomerate_taxa

parent 51eb46b1
......@@ -213,18 +213,18 @@ shinyServer
choices = rank_names(data16S()),
inline = TRUE
),
dataTableOutput("tableGlom")
DT::dataTableOutput("tableGlom")
)
)
)
})
output$tableGlom <- renderDataTable({
output$tableGlom <- DT::renderDataTable(server = FALSE, {
Glom <- tax_glom(data16S(), input$glomRank)
taxTableGlom <- Glom %>%
tax_table() %>%
as.data.frame(stringsAsFactors = FALSE) %>%
dplyr::select(1:input$glomRank) %>%
dplyr::select(input$glomRank:1) %>%
tibble::rownames_to_column()
otuTableGlom <- Glom %>%
otu_table() %>%
......@@ -233,24 +233,8 @@ shinyServer
joinGlom <-
dplyr::left_join(taxTableGlom, otuTableGlom, by = "rowname") %>%
dplyr::select(-rowname)
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
))
beautifulTable(joinGlom)
})
output$histUI <- renderUI({
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