Fixes plot settings that did not have an accordion wrapper (#939)

# Pull Request

<!--- Replace `#nnn` with your issue link for reference. -->

- Fixes
#937

Companion PR:
- insightsengineering/teal.modules.clinical#1436
- #939

### Note to reviewer

:information_source: Please check each example app of the affected
module

### Changes description

- [x] Adds `bslib::accordion` wrapper to plot settings that were missing
- [x] Check other modules / encoding if there are any that have the same
problem

---------

Co-authored-by: Lluís Revilla <[email protected]>

Author: averissimo

R/tm_a_pca.R

@@ -245,7 +245,7 @@ ui_a_pca <- function(id, ...) {
           is_single_dataset = is_single_dataset_value
         ),
         bslib::accordion(
-          open = TRUE,
+          open = c("Display", "Pre-processing", "Selected plot specific settings"),
           bslib::accordion_panel(
             title = "Display",
             checkboxGroupInput(
@@ -321,7 +321,6 @@ ui_a_pca <- function(id, ...) {
           ),
           bslib::accordion_panel(
             title = "Plot settings",
-            collapsed = TRUE,
             conditionalPanel(
               condition = sprintf(
                 "input['%s'] == 'Elbow plot' || input['%s'] == 'Eigenvector plot'",

R/tm_outliers.R

@@ -294,7 +294,6 @@ ui_outliers <- function(id, ...) {
         open = TRUE,
         bslib::accordion_panel(
           title = "Method parameters",
-          collapsed = FALSE,
           teal.widgets::optionalSelectInput(
             inputId = ns("method"),
             label = "Method",
@@ -362,14 +361,17 @@ ui_outliers <- function(id, ...) {
           decorators = select_decorators(args$decorators, "cumulative_plot")
         )
       ),
-      bslib::accordion_panel(
-        title = "Plot settings",
-        selectInput(
-          inputId = ns("ggtheme"),
-          label = "Theme (by ggplot):",
-          choices = ggplot_themes,
-          selected = args$ggtheme,
-          multiple = FALSE
+      bslib::accordion(
+        open = TRUE,
+        bslib::accordion_panel(
+          title = "Plot settings",
+          selectInput(
+            inputId = ns("ggtheme"),
+            label = "Theme (by ggplot):",
+            choices = ggplot_themes,
+            selected = args$ggtheme,
+            multiple = FALSE
+          )
         )
       )
     ),
@@ -738,10 +740,11 @@ srv_outliers <- function(id, data, outlier_var,
               categorical_var_name = as.name(categorical_var)
             )
           )
-        ) |> within({
-          table <- rtables::df_to_tt(summary_data)
-          table
-        })
+        ) |>
+          within({
+            table <- rtables::df_to_tt(summary_data)
+            table
+          })
       } else {
         msg <- "No categorical variable selected, summary table cannot be created."
         showNotification(msg,

R/tm_variable_browser.R

@@ -160,10 +160,9 @@ ui_variable_browser <- function(id,
             teal.widgets::plot_with_settings_ui(ns("variable_plot")),
             tags$br(),
             bslib::accordion(
-              open = TRUE,
+              open = FALSE,
               bslib::accordion_panel(
                 title = "Plot settings",
-                collapsed = TRUE,
                 selectInput(
                   inputId = ns("ggplot_theme"), label = "ggplot2 theme",
                   choices = ggplot_themes,