diff --git a/R/module_cluster_stats.R b/R/module_cluster_stats.R index ac82940..f7b13d2 100644 --- 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 + ) }