refac: separate content for cluster-stats from details/summary

mrc-ide · Mar 14, 2024 · cf27f45 · cf27f45
1 parent afe25e4
commit cf27f45
Showing 1 changed file with 9 additions and 9 deletions.
diff --git a/R/module_cluster_stats.R b/R/module_cluster_stats.R
@@ -1,10 +1,7 @@
 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)"),
+  box_content = tagList(
     shiny::br(),
 
     # text to print choice
@@ -15,14 +12,17 @@ clusterStatsUI = function(id) {
     shiny::tabsetPanel(
       id = ns("plot_tabs"),
 
-      # Tables tab
+      # Tabs for "Tables", "Plots" and "RDS"
       tablesUI(ns("table1")),
-
-      # Plots tab
       plotsUI(ns("plot1")),
-
-      # RDS tab
       rdsUI(ns("rds1"))
     )
   )
+
+  # use details and summary to create expandable section
+  htmltools::tags$details(
+    # preview of expandable section
+    htmltools::tags$summary("Cluster statistics (click to expand)"),
+    box_content
+  )
 }