refac: extract function for cluster-stats UI

mrc-ide · Mar 14, 2024 · afe25e4 · afe25e4
1 parent d4f2232
commit afe25e4
Show file tree

Hide file tree

Showing 2 changed files with 29 additions and 27 deletions.
diff --git a/R/app_ui.R b/R/app_ui.R
@@ -26,33 +26,7 @@ app_ui = function(request) {
       shiny::tabPanel(
         title = "Data",
         shiny::fluidRow(
-          shiny::column(
-            12,
-            # use details and summary to create expandable section
-            htmltools::tags$details(
-              # preview of expandable section
-              htmltools::tags$summary("Cluster statistics (click to expand)"),
-              shiny::br(),
-
-              # text to print choice
-              shiny::textOutput("select_text"),
-              shiny::br(),
-
-              # output options
-              shiny::tabsetPanel(
-                id = "plot_tabs",
-
-                # Tables tab
-                tablesUI("table1"),
-
-                # Plots tab
-                plotsUI("plot1"),
-
-                # RDS tab
-                rdsUI("rds1")
-              )
-            )
-          )
+          shiny::column(12, clusterStatsUI(id = NULL))
         ), # end fluid row
 
         # Bottom row - show tree (static html output from tfpscanner)

diff --git a/R/module_cluster_stats.R b/R/module_cluster_stats.R
@@ -0,0 +1,28 @@
+clusterStatsUI = function(id) {
+  ns = NS(id)
+
+  # use details and summary to create expandable section
+  htmltools::tags$details(
+    # preview of expandable section
+    htmltools::tags$summary("Cluster statistics (click to expand)"),
+    shiny::br(),
+
+    # text to print choice
+    shiny::textOutput(ns("select_text")),
+    shiny::br(),
+
+    # output options
+    shiny::tabsetPanel(
+      id = ns("plot_tabs"),
+
+      # Tables tab
+      tablesUI(ns("table1")),
+
+      # Plots tab
+      plotsUI(ns("plot1")),
+
+      # RDS tab
+      rdsUI(ns("rds1"))
+    )
+  )
+}