latest release

R/app_version.R

@@ -1 +1 @@
-app_version <- function()'25.10.2'
+app_version <- function()'25.10.3'

R/create-column-mod.R

@@ -105,7 +105,7 @@ create_column_ui <- function(id) {
       actionButton(
         inputId = ns("compute"),
         label = tagList(
-          phosphoricons::ph("gear"), i18n$t("Create column")
+          phosphoricons::ph("pencil"), i18n$t("Create column")
         ),
         class = "btn-outline-primary",
         width = "100%"
@@ -113,7 +113,8 @@ create_column_ui <- function(id) {
       actionButton(
         inputId = ns("remove"),
         label = tagList(
-          phosphoricons::ph("trash")
+          phosphoricons::ph("x-circle"),
+          i18n$t("Cancel")
         ),
         class = "btn-outline-danger",
         width = "100%"
@@ -140,9 +141,7 @@ create_column_server <- function(id,
       info_alert <- shinyWidgets::alert(
         status = "info",
         phosphoricons::ph("question"),
-        i18n$t("Choose a name for the column to be created or modified,"),
-        i18n$t("then enter an expression before clicking on the button above to validate or on "),
-        phosphoricons::ph("trash"), i18n$t("to delete it.")
+        i18n$t("Choose a name for the column to be created or modified, then enter an expression before clicking on the button below to create the variable, or cancel to exit without saving anything.")
       )
 
       rv <- reactiveValues(
@@ -244,6 +243,7 @@ list_allowed_operations <- function() {
 }
 
 
+
 #' @inheritParams shiny::modalDialog
 #' @export
 #'

R/datagrid-infos-mod.R

@@ -166,7 +166,7 @@ describe_col_factor <- function(x, with_summary = TRUE) {
       style = htmltools::css(fontStyle = "italic"),
       get_var_icon(x),
       # phosphoricons::ph("list-bullets"),
-      "factor"
+      class(x)
     ),
     if (with_summary) {
       tagList(
@@ -319,7 +319,7 @@ construct_col_summary <- function(data) {
         values <- data[[col]]
         content <- if (inherits(values, "character")) {
           describe_col_char(values)
-        } else if (inherits(values, "factor")) {
+        } else if (inherits(values, c("factor","logical"))) {
           describe_col_factor(values)
         } else if (inherits(values, c("numeric", "integer"))) {
           describe_col_num(values)

R/hosted_version.R

@@ -1 +1 @@
-hosted_version <- function()'v25.10.2-251007'
+hosted_version <- function()'v25.10.3-251008'

R/import_globalenv-ext.R

@@ -73,7 +73,7 @@ import_globalenv_ui <- function(id,
         id = ns("import-result"),
         status = "info",
         tags$b(i18n$t("No data selected!")),
-        i18n$t("Use a datasat from your environment or from the environment of a package."),
+        i18n$t("Use a dataset from your environment or from the environment of a package."),
         dismissible = TRUE
       )
     ),
@@ -150,7 +150,9 @@ import_globalenv_server <- function(id,
         selected = character(0),
         choices = choices,
         choicesOpt = choicesOpt,
-        options = list(title = i18n$t("List of datasets..."))
+        options = list(
+          title = i18n$t("List of datasets..."),
+                       "live-search" = TRUE)
       )
     })
 
@@ -159,7 +161,7 @@ import_globalenv_server <- function(id,
         id = "import-result",
         status = "info",
         tags$b(i18n$t("No data selected!")),
-        i18n$t("Use a datasat from your environment or from the environment of a package."),
+        i18n$t("Use a dataset from your environment or from the environment of a package."),
         dismissible = TRUE
       )
     )

R/plot_box.R

@@ -35,7 +35,7 @@ plot_box <- function(data, pri, sec, ter = NULL,...) {
     )
   })
 
-  wrap_plot_list(out,title=glue::glue("Grouped by {get_label(data,ter)}"),...)
+  wrap_plot_list(out,title=glue::glue(i18n$t("Grouped by {get_label(data,ter)}")),...)
 }
 
 

R/plot_sankey.R

@@ -119,7 +119,7 @@ plot_sankey <- function(data, pri, sec, ter = NULL, color.group = "pri", colors
 #'   plot_sankey_single("first", "last", color.group = "pri")
 #' mtcars |>
 #'   default_parsing() |>
-#' plot_sankey_single("cyl", "vs", color.group = "pri")
+#'   plot_sankey_single("cyl", "vs", color.group = "pri")
 plot_sankey_single <- function(data, pri, sec, color.group = c("pri", "sec"), colors = NULL, ...) {
   color.group <- match.arg(color.group)
 

R/plot_violin.R

@@ -26,7 +26,7 @@ plot_violin <- function(data, pri, sec, ter = NULL) {
       )
     })
 
-    wrap_plot_list(out, title = glue::glue("Grouped by {get_label(data,ter)}"))
+    wrap_plot_list(out, title = glue::glue(i18n$t("Grouped by {get_label(data,ter)}")))
   })
   # patchwork::wrap_plots(out,guides = "collect")
 }

R/redcap_read_shiny_module.R

@@ -26,12 +26,6 @@ m_redcap_readUI <- function(id, title = TRUE, url = NULL) {
       width = "100%"
     ),
     shiny::helpText(i18n$t("Format should be either 'https://redcap.your.institution/' or 'https://your.institution/redcap/'")),
-    # shiny::textInput(
-    #   inputId = ns("api"),
-    #   label = "API token",
-    #   value = "",
-    #   width = "100%"
-    # ),
     shiny::passwordInput(
       inputId = ns("api"),
       label = i18n$t("API token"),
@@ -55,7 +49,7 @@ m_redcap_readUI <- function(id, title = TRUE, url = NULL) {
       shinyWidgets::alert(
         id = ns("connect-result"),
         status = "info",
-        tags$p(phosphoricons::ph("info", weight = "bold"), "Please fill in server address (URI) and API token, then press 'Connect'.")
+        tags$p(phosphoricons::ph("info", weight = "bold"), i18n$t("Please fill in web address and API token, then press 'Connect'."))
       ),
       dismissible = TRUE
     ),

R/regression-module.R

@@ -69,18 +69,18 @@ regression_ui <- function(id, ...) {
               #   )
               # ),
               shiny::uiOutput(outputId = ns("regression_type")),
-              shiny::radioButtons(
-                inputId = ns("all"),
-                label = i18n$t("Specify covariables"),
-                inline = TRUE,
-                selected = 2,
-                choiceNames = c(
-                  "Yes",
-                  "No"
-                ),
-                choiceValues = c(1, 2)
-              ),
-              # shiny::uiOutput(outputId = ns("all")),
+              # shiny::radioButtons(
+              #   inputId = ns("all"),
+              #   label = i18n$t("Specify covariables"),
+              #   inline = TRUE,
+              #   selected = 2,
+              #   choiceNames = c(
+              #     "Yes",
+              #     "No"
+              #   ),
+              #   choiceValues = c(1, 2)
+              # ),
+              shiny::uiOutput(outputId = ns("all_vars")),
               shiny::conditionalPanel(
                 condition = "input.all==1",
                 shiny::uiOutput(outputId = ns("regression_vars")),
@@ -102,17 +102,7 @@ regression_ui <- function(id, ...) {
               ),
               shiny::helpText(i18n$t("Press 'Analyse' to create the regression model and after changing parameters.")),
               shiny::tags$br(),
-              shiny::radioButtons(
-                inputId = ns("add_regression_p"),
-                label = i18n$t("Show p-value"),
-                inline = TRUE,
-                selected = "yes",
-                choiceNames = c(
-                  "Yes",
-                  "No"
-                ),
-                choiceValues = c("yes", "no")
-              ),
+              shiny::uiOutput(outputId = ns("add_regression_p")),
               # shiny::tags$br(),
               # shiny::radioButtons(
               #   inputId = ns("tbl_theme"),
@@ -260,20 +250,32 @@ regression_server <- function(id,
         bslib::accordion_panel_update(id = "acc_checks", target = "acc_pan_checks", title = i18n$t("Checks"))
       })
 
-      # shiny::observe({
-      #   shiny::updateRadioButtons(
-      #     session = session,
-      #     inputId = "all",
-      #     label = i18n$t("Specify covariables"),
-      #     # inline = TRUE,
-      #     # selected = 2,
-      #     choiceNames = c(
-      #       i18n$t("Yes"),
-      #       i18n$t("No")
-      #     ),
-      #     choiceValues = c(1, 2)
-      #   )
-      # })
+      output$all_vars <- shiny::renderUI(
+        shiny::radioButtons(
+          inputId = ns("all"),
+          label = i18n$t("Specify covariables"),
+          inline = TRUE,
+          selected = 2,
+          choiceNames = c(
+            i18n$t("Yes"),
+            i18n$t("No")
+          ),
+          choiceValues = c(1, 2)
+        ),
+      )
+
+      output$add_regression_p <- shiny::renderUI(
+        shiny::radioButtons(
+        inputId = ns("add_regression_p"),
+        label = i18n$t("Show p-value"),
+        inline = TRUE,
+        selected = "yes",
+        choiceNames = c(
+          i18n$t("Yes"),
+          i18n$t("No")
+        ),
+        choiceValues = c("yes", "no")
+      ))
 
 
 

R/ui_elements.R

@@ -99,7 +99,7 @@ ui_elements <- function(selection) {
             import_globalenv_ui(
               id = "env",
               title = NULL,
-              packages = c("NHANES", "stRoke")
+              packages = c("NHANES", "stRoke", "datasets")
             )
           ),
           # shiny::conditionalPanel(
@@ -330,6 +330,7 @@ ui_elements <- function(selection) {
         ),
         shiny::tags$br(),
         shiny::helpText(i18n$t("Reset to original imported dataset. Careful! There is no un-doing.")),
+        shiny::tags$br(),
         shiny::tags$br()
       )
       # )
@@ -442,7 +443,7 @@ ui_elements <- function(selection) {
                   title = "Settings",
                   icon = bsicons::bs_icon("x-circle"),
                   shiny::uiOutput("missings_var"),
-                  shiny::helpText(i18n$t("To consider if data is missing by random, choose the outcome/dependent variable, if it has any missings to evaluate if there is a significant difference across other variables depending on missing data or not."))
+                  shiny::helpText(i18n$t("To consider if data is missing by random, choose the outcome/dependent variable (only variables with any missings are available). If there is a significant difference across other variables depending on missing observations, it may not be missing at random."))
                 )
               )
             ),