Merge remote-tracking branch 'origin/main' into redesign_extraction@main

Author: gogonzo

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.9012
+Date: 2025-10-30
 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.9012
 
 ### Enhancements
 

R/tm_a_pca.R

@@ -262,7 +262,7 @@ ui_a_pca.default <- 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(
@@ -338,7 +338,6 @@ ui_a_pca.default <- 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

@@ -296,7 +296,6 @@ ui_outliers <- function(id, ...) {
         open = TRUE,
         bslib::accordion_panel(
           title = "Method parameters",
-          collapsed = FALSE,
           teal.widgets::optionalSelectInput(
             inputId = ns("method"),
             label = "Method",
@@ -364,14 +363,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
+          )
         )
       )
     ),
@@ -740,10 +742,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,