Merge branch 'main' into 936_variable_browser@main

Author: llrs-roche

DESCRIPTION

@@ -1,8 +1,8 @@
 Type: Package
 Package: teal.modules.general
 Title: General Modules for 'teal' Applications
-Version: 0.5.1.9010
-Date: 2025-10-27
+Version: 0.5.1.9011
+Date: 2025-10-29
 Authors@R: c(
     person("Dawid", "Kaledkowski", , "[email protected]", role = c("aut", "cre")),
     person("Pawel", "Rucki", , "[email protected]", role = "aut"),

NEWS.md

@@ -1,4 +1,4 @@
-# teal.modules.general 0.5.1.9010
+# teal.modules.general 0.5.1.9011
 
 ### Enhancements
 

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,