Commit 30830cb3 authored by Midoux Cedric's avatar Midoux Cedric

tableGlom

parent 9b4f65e5
...@@ -61,7 +61,7 @@ output$tableGlom <- DT::renderDataTable(server = FALSE, { ...@@ -61,7 +61,7 @@ output$tableGlom <- DT::renderDataTable(server = FALSE, {
taxTableGlom <- Glom %>% taxTableGlom <- Glom %>%
tax_table() %>% tax_table() %>%
as.data.frame(stringsAsFactors = FALSE) %>% as.data.frame(stringsAsFactors = FALSE) %>%
dplyr::select(input$glomRank:1) %>% dplyr::select(1:input$glomRank) %>%
tibble::rownames_to_column() tibble::rownames_to_column()
otuTableGlom <- Glom %>% otuTableGlom <- Glom %>%
otu_table() %>% otu_table() %>%
......
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