diff --git a/server.R b/server.R index 8c666bb98212440539d95f5a9bd7db8cceb57c90..eac2c690654925fe3629920478fe35fb709d0e3d 100644 --- a/server.R +++ b/server.R @@ -1,4 +1,5 @@ library(shinydashboard) +library(dplyr) library(glue) shinyServer @@ -222,18 +223,34 @@ shinyServer Glom <- tax_glom(data16S(), input$glomRank) taxTableGlom <- Glom %>% tax_table() %>% - as.data.frame() %>% + as.data.frame(stringsAsFactors = FALSE) %>% dplyr::select(1:input$glomRank) %>% tibble::rownames_to_column() otuTableGlom <- Glom %>% otu_table() %>% - as.data.frame() %>% + as.data.frame(stringsAsFactors = FALSE) %>% tibble::rownames_to_column() 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 + )) output$histUI <- renderUI({ validate(need(data16S(), ""))