tweak DT output for membership and add DT output for quantified map

atusy · Oct 15, 2019 · da4b101 · da4b101
1 parent 8550dda
commit da4b101
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 3 deletions.
diff --git 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
@@ -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%"))
       )
     )
   )