update strata var to group_var

R/tm_g_lineplot.R

@@ -5,7 +5,7 @@
 #' @inheritParams tern::g_lineplot
 #' @inheritParams tern::control_lineplot_vars
 #' @inheritParams template_arguments
-#' @param strata (`string` or `NA`)\cr group variable name.
+#' @param group_var (`string` or `NA`)\cr group variable name.
 #' @param param (`character`)\cr parameter to filter the data by.
 #' @param incl_screen (`logical`)\cr whether the screening visit should be included.
 #' @param ggplot2_args (`ggplot2_args`) optional\cr object created by [teal.widgets::ggplot2_args()] with settings
@@ -22,7 +22,7 @@
 #'
 #' @keywords internal
 template_g_lineplot <- function(dataname = "ANL",
-                                strata = "ARM",
+                                group_var = "ARM",
                                 x = "AVISIT",
                                 y = "AVAL",
                                 y_unit = "AVALU",
@@ -41,7 +41,7 @@ template_g_lineplot <- function(dataname = "ANL",
                                 y_lab = "",
                                 ggplot2_args = teal.widgets::ggplot2_args()) {
   checkmate::assert_string(dataname)
-  checkmate::assert_string(strata)
+  checkmate::assert_string(group_var)
   checkmate::assert_string(x)
   checkmate::assert_string(y)
   checkmate::assert_string(y_unit)
@@ -72,15 +72,15 @@ template_g_lineplot <- function(dataname = "ANL",
     )
   }
 
-  # droplevels for strata
+  # droplevels for group_var
   data_list <- add_expr(
     data_list,
     substitute_names(
       expr = dplyr::mutate(
         arm_var = droplevels(arm_var)
       ),
       names = list(
-        arm_var = as.name(strata)
+        arm_var = as.name(group_var)
       )
     )
   )
@@ -96,7 +96,7 @@ template_g_lineplot <- function(dataname = "ANL",
 
   z$variables <- substitute(
     expr = variables <- control_lineplot_vars(x = x, y = y, group_var = arm, paramcd = paramcd, y_unit = y_unit),
-    env = list(x = x, y = y, arm = strata, paramcd = paramcd, y_unit = y_unit)
+    env = list(x = x, y = y, arm = group_var, paramcd = paramcd, y_unit = y_unit)
   )
 
   mid_choices <- c(
@@ -233,7 +233,7 @@ template_g_lineplot <- function(dataname = "ANL",
 #'     tm_g_lineplot(
 #'       label = "Line Plot",
 #'       dataname = "ADLB",
-#'       strata = choices_selected(
+#'       group_var = choices_selected(
 #'         variable_choices(ADSL, c("ARM", "ARMCD", "ACTARMCD")),
 #'         "ARM"
 #'       ),
@@ -256,11 +256,11 @@ template_g_lineplot <- function(dataname = "ANL",
 tm_g_lineplot <- function(label,
                           dataname,
                           parentname = ifelse(
-                            inherits(strata, "data_extract_spec"),
-                            teal.transform::datanames_input(strata),
+                            inherits(group_var, "data_extract_spec"),
+                            teal.transform::datanames_input(group_var),
                             "ADSL"
                           ),
-                          strata = teal.transform::choices_selected(
+                          group_var = teal.transform::choices_selected(
                             teal.transform::variable_choices(parentname, c("ARM", "ARMCD", "ACTARMCD")), "ARM"
                           ),
                           x = teal.transform::choices_selected(
@@ -316,7 +316,7 @@ tm_g_lineplot <- function(label,
 
   args <- as.list(environment())
   data_extract_list <- list(
-    strata = cs_to_des_select(strata, dataname = parentname),
+    group_var = cs_to_des_select(group_var, dataname = parentname),
     param = cs_to_des_filter(param, dataname = dataname),
     x = cs_to_des_select(x, dataname = dataname, multiple = FALSE),
     y = cs_to_des_select(y, dataname = dataname, multiple = FALSE),
@@ -348,7 +348,7 @@ tm_g_lineplot <- function(label,
 ui_g_lineplot <- function(id, ...) {
   a <- list(...)
   is_single_dataset_value <- teal.transform::is_single_dataset(
-    a$strata,
+    a$group_var,
     a$paramcd,
     a$x,
     a$param,
@@ -369,17 +369,17 @@ ui_g_lineplot <- function(id, ...) {
       teal.reporter::simple_reporter_ui(ns("simple_reporter")),
       ###
       tags$label("Encodings", class = "text-primary"),
-      teal.transform::datanames_input(a[c("strata", "paramcd", "x", "y", "y_unit", "param")]),
+      teal.transform::datanames_input(a[c("group_var", "paramcd", "x", "y", "y_unit", "param")]),
       teal.transform::data_extract_ui(
         id = ns("param"),
         label = "Select Biomarker",
         data_extract_spec = a$param,
         is_single_dataset = is_single_dataset_value
       ),
       teal.transform::data_extract_ui(
-        id = ns("strata"),
+        id = ns("group_var"),
         label = "Select Treatment Variable",
-        data_extract_spec = a$strata,
+        data_extract_spec = a$group_var,
         is_single_dataset = is_single_dataset_value
       ),
       teal.transform::data_extract_ui(
@@ -508,7 +508,7 @@ srv_g_lineplot <- function(id,
                            dataname,
                            parentname,
                            paramcd,
-                           strata,
+                           group_var,
                            x,
                            y,
                            param,
@@ -525,12 +525,12 @@ srv_g_lineplot <- function(id,
   moduleServer(id, function(input, output, session) {
     teal.logger::log_shiny_input_changes(input, namespace = "teal.modules.clinical")
     selector_list <- teal.transform::data_extract_multiple_srv(
-      data_extract = list(x = x, y = y, strata = strata, paramcd = paramcd, y_unit = y_unit, param = param),
+      data_extract = list(x = x, y = y, group_var = group_var, paramcd = paramcd, y_unit = y_unit, param = param),
       datasets = data,
       select_validation_rule = list(
         x = shinyvalidate::sv_required("Please select a time variable"),
         y = shinyvalidate::sv_required("Please select an analysis variable"),
-        strata = shinyvalidate::sv_required("Please select a treatment variable")
+        group_var = shinyvalidate::sv_required("Please select a treatment variable")
       ),
       filter_validation_rule = list(
         param = shinyvalidate::sv_required(message = "Please select Biomarker filter.")
@@ -569,7 +569,7 @@ srv_g_lineplot <- function(id,
       adsl_filtered <- merged$anl_q()[[parentname]]
       anl_filtered <- merged$anl_q()[[dataname]]
 
-      input_strata <- names(merged$anl_input_r()$columns_source$strata)
+      input_strata <- names(merged$anl_input_r()$columns_source$group_var)
       input_x_var <- names(merged$anl_input_r()$columns_source$x)
       input_y <- names(merged$anl_input_r()$columns_source$y)
       input_param <- unlist(param$filter)["vars_selected"]
@@ -612,7 +612,7 @@ srv_g_lineplot <- function(id,
 
       my_calls <- template_g_lineplot(
         dataname = "ANL",
-        strata = names(merged$anl_input_r()$columns_source$strata),
+        group_var = names(merged$anl_input_r()$columns_source$group_var),
         y = names(merged$anl_input_r()$columns_source$y),
         x = names(merged$anl_input_r()$columns_source$x),
         paramcd = names(merged$anl_input_r()$columns_source$paramcd),

tests/testthat/test-tm_g_lineplot.R

@@ -7,7 +7,7 @@ testthat::test_that("template_g_lineplot works as expected with default argument
 
 testthat::test_that("template_g_lineplot gives correct data expression with custom arguments", {
   result <- template_g_lineplot(
-    strata = "ARMCD",
+    group_var = "ARMCD",
     y = "CHG",
     mid = "median",
     interval = "median_ci",