From 5235e20f092418b81cf1a759e3e3381c52fc6413 Mon Sep 17 00:00:00 2001
From: Cedric Midoux <cedric.midoux@inra.fr>
Date: Tue, 16 Oct 2018 10:53:35 +0200
Subject: [PATCH] effet de bord dans la table agglomerate_taxa

---
 server.R | 26 +++++---------------------
 1 file changed, 5 insertions(+), 21 deletions(-)

diff --git a/server.R b/server.R
index eac2c69..16f183b 100644
--- a/server.R
+++ b/server.R
@@ -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(), ""))
-- 
GitLab