From da4b10110705e9875b2f7e3eed10134f1f9f5ca9 Mon Sep 17 00:00:00 2001
From: atusy <30277794+atusy@users.noreply.github.com>
Date: Tue, 15 Oct 2019 10:51:35 +0900
Subject: [PATCH] tweak DT output for membership and add DT output for
 quantified map

---
 R/shiny-server-.R     | 7 ++++++-
 R/shiny-ui-quantify.R | 4 ++--
 2 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/R/shiny-server-.R b/R/shiny-server-.R
index 11f658f..d648a08 100644
--- a/R/shiny-server-.R
+++ b/R/shiny-server-.R
@@ -250,7 +250,7 @@ shiny_server <- function(input, output, session) {
     shiny::req(cluster_out())
     DT(
       cluster_out(), digits = 2, 
-      options = DT_options()[c("scrollY", "scrollCollapse")]
+      options = DT_options(paging = TRUE, pageLength = 100)
     )
   })
   output$cluster_centroid <- DT::renderDT({
@@ -275,6 +275,11 @@ shiny_server <- function(input, output, session) {
       saving = FALSE
     )
   })
+  
+  output$qmap_dt <- DT::renderDT({
+    shiny::req(qmap_out())
+    DT(qmap_out(), digits = 2, options = DT_options(paging = TRUE, pageLength = 100))
+  })
 
   qmap_elint <- shiny::reactive(setdiff(names(qmap_out()), c("x", "y")))
   
diff --git a/R/shiny-ui-quantify.R b/R/shiny-ui-quantify.R
index 7b075d4..e045d81 100644
--- a/R/shiny-ui-quantify.R
+++ b/R/shiny-ui-quantify.R
@@ -50,8 +50,8 @@ shiny_ui_quantify <- function() {
           )
         ),
         tab_panel("Histogram", plotOutput("qmap_histogram", height = "100%")),
-        tab_panel("Summary", DTOutput("qmap_summary", height = "100%")
-        )
+        tab_panel("Summary", DTOutput("qmap_summary", height = "100%")),
+        tab_panel("Raw", DTOutput("qmap_dt", height = "100%"))
       )
     )
   )