From 51eb46b1ea061b44de69e407ca01a159a7fe2d24 Mon Sep 17 00:00:00 2001
From: Cedric Midoux <cedric.midoux@inra.fr>
Date: Tue, 16 Oct 2018 10:44:29 +0200
Subject: [PATCH] table options
---
server.R | 23 ++++++++++++++++++++---
1 file changed, 20 insertions(+), 3 deletions(-)
diff --git a/server.R b/server.R
index 8c666bb..eac2c69 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(), ""))
--
GitLab