Merge pull request #91 from Boehringer-Ingelheim/330557-CM_snippet_sync

ml-ebs-ext · web-flow · commit 15bc6d9edf6e · 2026-04-02T14:48:30.000+02:00
Update CM.R
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: dv.explorer.parameter
 Type: Package
 Title: Parameter exploration modules
-Version: 0.2.1-9000
+Version: 0.2.1-9001
 Authors@R: c(
         person("Boehringer-Ingelheim Pharma GmbH & Co.KG", role = c("cph", "fnd")),
         person(given = "Luis", family = "Moris Fernandez", role = c("aut", "cre"), email = "luis.moris.fernandez@gmail.com"),
diff --git a/NEWS.md b/NEWS.md
@@ -1,6 +1,10 @@
+# dv.explorer.parameter 0.2.1-9001
+
+- [NOT USER-FACING] Update CM.R snippet
+
 # dv.explorer.parameter 0.2.1-9000
 
-- Speed early error feedback
+- Faster early error feedback
 
 # dv.explorer.parameter 0.2.1
 
diff --git a/R/CM.R b/R/CM.R
diff --git a/R/check_call_auto.R b/R/check_call_auto.R
diff --git a/R/map_afmm_auto.R b/R/map_afmm_auto.R
diff --git a/R/mod_boxplot.R b/R/mod_boxplot.R
@@ -969,11 +969,10 @@ check_mod_boxplot <- function(
   server_wrapper_func
 ) {
 
-  warn <- CM$container()
   err <- CM$container()
 
   # TODO: Replace this function with a generic one that performs the checks based on mod_boxplot_API_spec.
-  # Something along the lines of OK <- CM$check_API(mod_corr_hm_API_spec, args = match.call(), warn, err)
+  # Something along the lines of OK <- CM$check_API(mod_corr_hm_API_spec, args = match.call(), err)
   OK <- check_mod_boxplot_auto(
     afmm,
     datasets,
@@ -996,7 +995,6 @@ check_mod_boxplot <- function(
     default_sub_group,
     default_page_group,
     server_wrapper_func,
-    warn,
     err
   )
 
@@ -1021,11 +1019,11 @@ check_mod_boxplot <- function(
     check_unique_sub_cat_par_vis(
       datasets, "bm_dataset_name", bm_dataset_name,
       subjid_var, cat_var, par_var, visit_var, anlfl_vars,
-      warn = warn, err = err
+      err = err
     )
   }
 
-  res <- list(warnings = warn[["messages"]], errors = err[["messages"]])
+  res <- list(errors = err[["messages"]])
   return(res)
 }
 
@@ -1035,7 +1033,7 @@ dataset_info_boxplot <- function(bm_dataset_name, group_dataset_name, ...) {
   return(list(all = unique(c(bm_dataset_name, group_dataset_name)), subject_level = group_dataset_name))
 }
 
-mod_boxplot <- CM$module(mod_boxplot, check_mod_boxplot, dataset_info_boxplot, map_afmm_mod_boxplot_auto)
+mod_boxplot <- CM$module(mod_boxplot, check_mod_boxplot, dataset_info_boxplot)
 
 
 # Data manipulation
diff --git a/R/mod_corr_hm.R b/R/mod_corr_hm.R
@@ -1003,16 +1003,15 @@ mod_corr_hm_API_spec <- TC$group(
 check_mod_corr_hm <- function(
     afmm, datasets, module_id, bm_dataset_name, subjid_var, cat_var, par_var, visit_var,
     anlfl_vars, value_vars, default_cat, default_par, default_visit, default_value) {
-  warn <- CM$container()
   err <- CM$container()
 
   # TODO: Replace this function with a generic one that performs the checks based on mod_corr_hm_API_spec.
-  # Something along the lines of OK <- CM$check_API(mod_corr_hm_API_spec, args = match.call(), warn, err)
+  # Something along the lines of OK <- CM$check_API(mod_corr_hm_API_spec, args = match.call(), err)
 
   OK <- check_mod_corr_hm_auto(
     afmm, datasets, module_id, bm_dataset_name, subjid_var, cat_var, par_var, visit_var,
     anlfl_vars, value_vars, default_cat, default_par, default_visit, default_value,
-    warn, err
+    err
   )
 
   # Checks that API spec does not (yet?) capture
@@ -1025,11 +1024,11 @@ check_mod_corr_hm <- function(
     check_unique_sub_cat_par_vis(
       datasets, "bm_dataset_name", bm_dataset_name,
       subjid_var, cat_var, par_var, visit_var, anlfl_vars,
-      warn = warn, err = err
+      err = err
     )
   }
 
-  res <- list(warnings = warn[["messages"]], errors = err[["messages"]])
+  res <- list(errors = err[["messages"]])
   return(res)
 }
 
@@ -1039,4 +1038,4 @@ dataset_info_corr_hm <- function(bm_dataset_name, ...) {
   return(list(all = bm_dataset_name, subject_level = character(0)))
 }
 
-mod_corr_hm <- CM$module(mod_corr_hm, check_mod_corr_hm, dataset_info_corr_hm, map_afmm_mod_corr_hm_auto)
+mod_corr_hm <- CM$module(mod_corr_hm, check_mod_corr_hm, dataset_info_corr_hm)
diff --git a/R/mod_forest.R b/R/mod_forest.R
@@ -1357,17 +1357,16 @@ check_mod_forest <- function(
     numeric_factor_functions, subjid_var, cat_var, par_var, visit_var, value_vars,
     default_cat, default_par, default_visit, default_value, default_var, default_group,
     default_categorical_A, default_categorical_B) {
-  warn <- CM$container()
   err <- CM$container()
 
   # TODO: Replace this function with a generic one that performs the checks based on mod_forest_API_spec.
-  # Something along the lines of OK <- CM$check_API(mod_corr_hm_API_spec, args = match.call(), warn, err)
+  # Something along the lines of OK <- CM$check_API(mod_corr_hm_API_spec, args = match.call(), err)
 
   OK <- check_mod_forest_auto(
     afmm, datasets, module_id, bm_dataset_name, group_dataset_name, numeric_numeric_functions,
     numeric_factor_functions, subjid_var, cat_var, par_var, visit_var, value_vars,
     default_cat, default_par, default_visit, default_value, default_var, default_group,
-    default_categorical_A, default_categorical_B, warn, err
+    default_categorical_A, default_categorical_B, err
   )
 
   # Checks that API spec does not (yet?) capture
@@ -1381,7 +1380,7 @@ check_mod_forest <- function(
     )
   }
 
-  res <- list(warnings = warn[["messages"]], errors = err[["messages"]])
+  res <- list(errors = err[["messages"]])
   return(res)
 }
 
@@ -1391,7 +1390,7 @@ dataset_info_forest <- function(bm_dataset_name, group_dataset_name, ...) {
   return(list(all = unique(c(bm_dataset_name, group_dataset_name)), subject_level = group_dataset_name))
 }
 
-mod_forest <- CM$module(mod_forest, check_mod_forest, dataset_info_forest, map_afmm_mod_forest_auto)
+mod_forest <- CM$module(mod_forest, check_mod_forest, dataset_info_forest)
 
 # TODO: Move pearson_correlation and spearman_correlation to their own file
 # TODO: Maybe odds_ratio too
diff --git a/R/mod_lineplot.R b/R/mod_lineplot.R
@@ -1876,18 +1876,17 @@ check_mod_lineplot <- function(
     default_centrality_fn, default_dispersion_fn, default_cat, default_par,
     default_val, default_visit_var, default_visit_val, default_main_group, default_sub_group,
     default_transparency, default_y_axis_projection) {
-  warn <- CM$container()
   err <- CM$container()
 
   # TODO: Replace this function with a generic one that performs the checks based on mod_corr_hm_API_spec.
-  # Something along the lines of OK <- CM$check_API(mod_corr_hm_API_spec, args = match.call(), warn, err)
+  # Something along the lines of OK <- CM$check_API(mod_corr_hm_API_spec, args = match.call(), err)
 
   OK <- check_mod_lineplot_auto(
     afmm, datasets, module_id, bm_dataset_name, group_dataset_name, receiver_id, summary_fns,
     subjid_var, cat_var, par_var, visit_vars, cdisc_visit_vars, anlfl_vars, value_vars, additional_listing_vars,
     ref_line_vars, default_centrality_fn, default_dispersion_fn, default_cat, default_par, default_val,
     default_visit_var, default_visit_val, default_main_group, default_sub_group, default_transparency,
-    default_y_axis_projection, warn, err
+    default_y_axis_projection, err
   )
 
   # Checks that API spec does not (yet?) capture
@@ -1897,7 +1896,7 @@ check_mod_lineplot <- function(
       check_unique_sub_cat_par_vis(
         datasets, "bm_dataset_name", bm_dataset_name,
         subjid_var, cat_var, par_var, visit_var, anlfl_vars,
-        warn = warn, err = err
+        err = err
       )
     }
   }
@@ -1988,7 +1987,7 @@ check_mod_lineplot <- function(
     }
   }
 
-  res <- list(warnings = warn[["messages"]], errors = err[["messages"]])
+  res <- list(errors = err[["messages"]])
   return(res)
 }
 
@@ -1998,4 +1997,4 @@ dataset_info_lineplot <- function(bm_dataset_name, group_dataset_name, ...) {
   return(list(all = unique(c(bm_dataset_name, group_dataset_name)), subject_level = group_dataset_name))
 }
 
-mod_lineplot <- CM$module(mod_lineplot, check_mod_lineplot, dataset_info_lineplot, map_afmm_mod_lineplot_auto)
+mod_lineplot <- CM$module(mod_lineplot, check_mod_lineplot, dataset_info_lineplot)
diff --git a/R/mod_roc.R b/R/mod_roc.R
@@ -1147,15 +1147,14 @@ check_mod_roc <- function(
     afmm, datasets, module_id, pred_dataset_name, resp_dataset_name, group_dataset_name, pred_cat_var,
     pred_par_var, pred_value_vars, pred_visit_var, resp_cat_var, resp_par_var, resp_value_vars,
     resp_visit_var, subjid_var, quantile_type, compute_roc_fn, compute_metric_fn) {
-  warn <- CM$container()
   err <- CM$container()
 
   # TODO: Replace this function with a generic one that performs the checks based on mod_boxplot_API_spec.
-  # Something along the lines of OK <- CM$check_API(mod_corr_hm_API_spec, args = match.call(), warn, err)
+  # Something along the lines of OK <- CM$check_API(mod_corr_hm_API_spec, args = match.call(), err)
   OK <- check_mod_roc_auto(
     afmm, datasets, module_id, pred_dataset_name, resp_dataset_name, group_dataset_name, pred_cat_var,
     pred_par_var, pred_value_vars, pred_visit_var, resp_cat_var, resp_par_var, resp_value_vars,
-    resp_visit_var, subjid_var, quantile_type, compute_roc_fn, compute_metric_fn, warn, err
+    resp_visit_var, subjid_var, quantile_type, compute_roc_fn, compute_metric_fn, err
   )
 
   # Checks that API spec does not (yet?) capture
@@ -1171,21 +1170,21 @@ check_mod_roc <- function(
   if (OK[["subjid_var"]] && OK[["pred_cat_var"]] && OK[["pred_par_var"]] && OK[["pred_visit_var"]]) {
     check_unique_sub_cat_par_vis(
       datasets, "pred_dataset_name", pred_dataset_name,
-      subjid_var, pred_cat_var, pred_par_var, pred_visit_var, anlfl_vars = NULL, warn = warn, err = err
+      subjid_var, pred_cat_var, pred_par_var, pred_visit_var, anlfl_vars = NULL, err = err
     )
   }
 
   if (OK[["subjid_var"]] && OK[["resp_cat_var"]] && OK[["resp_par_var"]] && OK[["resp_visit_var"]]) {
     check_unique_sub_cat_par_vis(
       datasets, "resp_dataset_name", resp_dataset_name,
       subjid_var, resp_cat_var, resp_par_var, resp_visit_var, anlfl_vars = NULL,
-      warn, err
+      err
     )
   }
 
   # TODO: check resp_value_vars are binary?
 
-  res <- list(warnings = warn[["messages"]], errors = err[["messages"]])
+  res <- list(errors = err[["messages"]])
   return(res)
 }
 
@@ -1198,7 +1197,7 @@ dataset_info_roc <- function(pred_dataset_name, resp_dataset_name, group_dataset
   ))
 }
 
-mod_roc <- CM$module(mod_roc, check_mod_roc, dataset_info_roc, map_afmm_mod_roc_auto)
+mod_roc <- CM$module(mod_roc, check_mod_roc, dataset_info_roc)
 
 # Server Logic
 
diff --git a/R/mod_scatter.R b/R/mod_scatter.R
@@ -897,29 +897,28 @@ check_mod_scatterplot <- function(
     default_x_cat, default_x_par, default_x_value, default_x_visit,
     default_y_cat, default_y_par, default_y_value, default_y_visit,
     default_group, default_color, compute_lm_cor_fn) {
-  warn <- CM$container()
   err <- CM$container()
 
   # TODO: Replace this function with a generic one that performs the checks based on mod_boxplot_API_spec.
-  # Something along the lines of OK <- CM$check_API(mod_corr_hm_API_spec, args = match.call(), warn, err)
+  # Something along the lines of OK <- CM$check_API(mod_corr_hm_API_spec, args = match.call(), err)
   OK <- check_mod_scatterplot_auto(
     afmm, datasets, module_id, bm_dataset_name, group_dataset_name,
     cat_var, par_var, value_vars, visit_var, anlfl_vars, subjid_var,
     default_x_cat, default_x_par, default_x_value, default_x_visit,
     default_y_cat, default_y_par, default_y_value, default_y_visit,
-    default_group, default_color, compute_lm_cor_fn, warn, err
+    default_group, default_color, compute_lm_cor_fn, err
   )
 
   # Checks that API spec does not (yet?) capture
   if (OK[["subjid_var"]] && OK[["cat_var"]] && OK[["par_var"]] && OK[["visit_var"]] && OK[["anlfl_vars"]]) {
     check_unique_sub_cat_par_vis(
       datasets, "bm_dataset_name", bm_dataset_name,
       subjid_var, cat_var, par_var, visit_var, anlfl_vars,
-      warn = warn, err = err
+      err = err
     )
   }
 
-  res <- list(warnings = warn[["messages"]], errors = err[["messages"]])
+  res <- list(errors = err[["messages"]])
   return(res)
 }
 
@@ -929,7 +928,7 @@ dataset_info_scatterplot <- function(bm_dataset_name, group_dataset_name, ...) {
   return(list(all = unique(c(bm_dataset_name, group_dataset_name)), subject_level = group_dataset_name))
 }
 
-mod_scatterplot <- CM$module(mod_scatterplot, check_mod_scatterplot, dataset_info_scatterplot, map_afmm_mod_scatterplot_auto)
+mod_scatterplot <- CM$module(mod_scatterplot, check_mod_scatterplot, dataset_info_scatterplot)
 
 # Logic functions ----
 
diff --git a/R/mod_scatter_matrix.R b/R/mod_scatter_matrix.R
@@ -613,27 +613,26 @@ check_mod_scatterplotmatrix <- function(
     afmm, datasets, module_id, bm_dataset_name, group_dataset_name,
     cat_var, par_var, value_vars, visit_var, anlfl_vars, subjid_var,
     default_cat, default_par, default_visit, default_value, default_main_group) {
-  warn <- CM$container()
   err <- CM$container()
 
   # TODO: Replace this function with a generic one that performs the checks based on mod_boxplot_API_spec.
-  # Something along the lines of OK <- CM$check_API(mod_corr_hm_API_spec, args = match.call(), warn, err)
+  # Something along the lines of OK <- CM$check_API(mod_corr_hm_API_spec, args = match.call(), err)
   OK <- check_mod_scatterplotmatrix_auto(
     afmm, datasets, module_id, bm_dataset_name, group_dataset_name,
     cat_var, par_var, value_vars, visit_var, anlfl_vars, subjid_var,
-    default_cat, default_par, default_visit, default_value, default_main_group, warn, err
+    default_cat, default_par, default_visit, default_value, default_main_group, err
   )
 
   # Checks that API spec does not (yet?) capture
   if (OK[["subjid_var"]] && OK[["cat_var"]] && OK[["par_var"]] && OK[["visit_var"]] && OK[["anlfl_vars"]]) {
     check_unique_sub_cat_par_vis(
       datasets, "bm_dataset_name", bm_dataset_name,
       subjid_var, cat_var, par_var, visit_var, anlfl_vars,
-      warn = warn, err = err
+      err = err
     )
   }
 
-  res <- list(warnings = warn[["messages"]], errors = err[["messages"]])
+  res <- list(errors = err[["messages"]])
   return(res)
 }
 
@@ -644,8 +643,7 @@ dataset_info_scatterplotmatrix <- function(bm_dataset_name, group_dataset_name,
 }
 
 mod_scatterplotmatrix <- CM$module(
-  mod_scatterplotmatrix, check_mod_scatterplotmatrix,
-  dataset_info_scatterplotmatrix, map_afmm_mod_scatterplotmatrix_auto
+  mod_scatterplotmatrix, check_mod_scatterplotmatrix, dataset_info_scatterplotmatrix
 )
 
 # Logic functions ----
diff --git a/R/mod_wfphm.R b/R/mod_wfphm.R
@@ -2465,14 +2465,13 @@ check_mod_wfphm <- function(
     afmm, datasets, module_id, bm_dataset_name, group_dataset_name, cat_var, par_var, visit_var, anlfl_vars, subjid_var,
     value_vars, bar_group_palette, cat_palette, tr_mapper, show_x_ticks) {
 
-  warn <- CM$container()
   err <- CM$container()
 
   # TODO: Replace this function with a generic one that performs the checks based on mod_boxplot_API_spec.
-  # Something along the lines of OK <- CM$check_API(mod_corr_hm_API_spec, args = match.call(), warn, err)
+  # Something along the lines of OK <- CM$check_API(mod_corr_hm_API_spec, args = match.call(), err)
   OK <- check_mod_wfphm_auto(
     afmm, datasets, module_id, bm_dataset_name, group_dataset_name, cat_var, par_var, visit_var, anlfl_vars, subjid_var,
-    value_vars, bar_group_palette, cat_palette, tr_mapper, show_x_ticks, warn, err
+    value_vars, bar_group_palette, cat_palette, tr_mapper, show_x_ticks, err
   )
 
   # Checks that API spec does not (yet?) capture
@@ -2482,11 +2481,11 @@ check_mod_wfphm <- function(
     check_unique_sub_cat_par_vis(
       datasets, "bm_dataset_name", bm_dataset_name,
       subjid_var, cat_var, par_var, visit_var, anlfl_vars,
-      warn = warn, err = err
+      err = err
     )
   }
 
-  res <- list(warnings = warn[["messages"]], errors = err[["messages"]])
+  res <- list(errors = err[["messages"]])
   return(res)
 }
 
@@ -2497,4 +2496,4 @@ dataset_info_wfphm <- function(bm_dataset_name, group_dataset_name, ...) {
   return(list(all = unique(c(bm_dataset_name, group_dataset_name)), subject_level = group_dataset_name))
 }
 
-mod_wfphm <- CM$module(mod_wfphm, check_mod_wfphm, dataset_info_wfphm, map_afmm_mod_wfphm_auto)
+mod_wfphm <- CM$module(mod_wfphm, check_mod_wfphm, dataset_info_wfphm)
diff --git a/R/utils-check.R b/R/utils-check.R
@@ -35,7 +35,7 @@ check_unique_sub_cat_par_vis_combinations <- function(dataset, sub_var, cat_var,
   )
 }
 
-check_unique_sub_cat_par_vis_ <- function(datasets, ds_name, ds_value, sub, cat, par, vis, anlfl, warn, err) {
+check_unique_sub_cat_par_vis_ <- function(datasets, ds_name, ds_value, sub, cat, par, vis, anlfl, err) {
     ok <- TRUE
     df_to_string <- function(df) {
       names(df) <- sprintf("[%s] ", names(df))
@@ -190,19 +190,19 @@ check_unique_sub_cat_par_vis_ <- function(datasets, ds_name, ds_value, sub, cat,
     return(ok)
 }
 
-check_unique_sub_cat_par_vis <- function(datasets, ds_name, ds_value, sub, cat, par, vis, anlfl_vars, warn, err) {
+check_unique_sub_cat_par_vis <- function(datasets, ds_name, ds_value, sub, cat, par, vis, anlfl_vars, err) {
   if (length(anlfl_vars) == 0) {
     # Check grouping values are unique without subsetting on analysis flags
     check_unique_sub_cat_par_vis_(
       datasets, ds_name, ds_value, sub, cat, par, vis, NULL,
-      warn = warn, err = err
+      err = err
     )
   } else {
     # Check grouping values are unique for specified analysis flags
     for (anlfl_var in anlfl_vars) {
       check_unique_sub_cat_par_vis_(
         datasets, ds_name, ds_value, sub, cat, par, vis, anlfl_var,
-        warn = warn, err = err
+        err = err
       )
     }
   }

Original file line number	Diff line number	Diff line change
`@@ -1357,17 +1357,16 @@ check_mod_forest <- function(`
`1357`	`1357`	`numeric_factor_functions, subjid_var, cat_var, par_var, visit_var, value_vars,`
`1358`	`1358`	`default_cat, default_par, default_visit, default_value, default_var, default_group,`
`1359`	`1359`	`default_categorical_A, default_categorical_B) {`
`1360`		`- warn <- CM$container()`
`1361`	`1360`	`err <- CM$container()`
`1362`	`1361`
`1363`	`1362`	`# TODO: Replace this function with a generic one that performs the checks based on mod_forest_API_spec.`
`1364`		`- # Something along the lines of OK <- CM$check_API(mod_corr_hm_API_spec, args = match.call(), warn, err)`
	`1363`	`+ # Something along the lines of OK <- CM$check_API(mod_corr_hm_API_spec, args = match.call(), err)`
`1365`	`1364`
`1366`	`1365`	`OK <- check_mod_forest_auto(`
`1367`	`1366`	`afmm, datasets, module_id, bm_dataset_name, group_dataset_name, numeric_numeric_functions,`
`1368`	`1367`	`numeric_factor_functions, subjid_var, cat_var, par_var, visit_var, value_vars,`
`1369`	`1368`	`default_cat, default_par, default_visit, default_value, default_var, default_group,`
`1370`		`- default_categorical_A, default_categorical_B, warn, err`
	`1369`	`+ default_categorical_A, default_categorical_B, err`
`1371`	`1370`	`)`
`1372`	`1371`
`1373`	`1372`	`# Checks that API spec does not (yet?) capture`
`@@ -1381,7 +1380,7 @@ check_mod_forest <- function(`
`1381`	`1380`	`)`
`1382`	`1381`	`}`
`1383`	`1382`
`1384`		`- res <- list(warnings = warn[["messages"]], errors = err[["messages"]])`
	`1383`	`+ res <- list(errors = err[["messages"]])`
`1385`	`1384`	`return(res)`
`1386`	`1385`	`}`
`1387`	`1386`
`@@ -1391,7 +1390,7 @@ dataset_info_forest <- function(bm_dataset_name, group_dataset_name, ...) {`
`1391`	`1390`	`return(list(all = unique(c(bm_dataset_name, group_dataset_name)), subject_level = group_dataset_name))`
`1392`	`1391`	`}`
`1393`	`1392`
`1394`		`-mod_forest <- CM$module(mod_forest, check_mod_forest, dataset_info_forest, map_afmm_mod_forest_auto)`
	`1393`	`+mod_forest <- CM$module(mod_forest, check_mod_forest, dataset_info_forest)`
`1395`	`1394`
`1396`	`1395`	`# TODO: Move pearson_correlation and spearman_correlation to their own file`
`1397`	`1396`	`# TODO: Maybe odds_ratio too`
Original file line number	Diff line number	Diff line change
`@@ -1876,18 +1876,17 @@ check_mod_lineplot <- function(`
`1876`	`1876`	`default_centrality_fn, default_dispersion_fn, default_cat, default_par,`
`1877`	`1877`	`default_val, default_visit_var, default_visit_val, default_main_group, default_sub_group,`
`1878`	`1878`	`default_transparency, default_y_axis_projection) {`
`1879`		`- warn <- CM$container()`
`1880`	`1879`	`err <- CM$container()`
`1881`	`1880`
`1882`	`1881`	`# TODO: Replace this function with a generic one that performs the checks based on mod_corr_hm_API_spec.`
`1883`		`- # Something along the lines of OK <- CM$check_API(mod_corr_hm_API_spec, args = match.call(), warn, err)`
	`1882`	`+ # Something along the lines of OK <- CM$check_API(mod_corr_hm_API_spec, args = match.call(), err)`
`1884`	`1883`
`1885`	`1884`	`OK <- check_mod_lineplot_auto(`
`1886`	`1885`	`afmm, datasets, module_id, bm_dataset_name, group_dataset_name, receiver_id, summary_fns,`
`1887`	`1886`	`subjid_var, cat_var, par_var, visit_vars, cdisc_visit_vars, anlfl_vars, value_vars, additional_listing_vars,`
`1888`	`1887`	`ref_line_vars, default_centrality_fn, default_dispersion_fn, default_cat, default_par, default_val,`
`1889`	`1888`	`default_visit_var, default_visit_val, default_main_group, default_sub_group, default_transparency,`
`1890`		`- default_y_axis_projection, warn, err`
	`1889`	`+ default_y_axis_projection, err`
`1891`	`1890`	`)`
`1892`	`1891`
`1893`	`1892`	`# Checks that API spec does not (yet?) capture`
`@@ -1897,7 +1896,7 @@ check_mod_lineplot <- function(`
`1897`	`1896`	`check_unique_sub_cat_par_vis(`
`1898`	`1897`	`datasets, "bm_dataset_name", bm_dataset_name,`
`1899`	`1898`	`subjid_var, cat_var, par_var, visit_var, anlfl_vars,`
`1900`		`- warn = warn, err = err`
	`1899`	`+ err = err`
`1901`	`1900`	`)`
`1902`	`1901`	`}`
`1903`	`1902`	`}`
`@@ -1988,7 +1987,7 @@ check_mod_lineplot <- function(`
`1988`	`1987`	`}`
`1989`	`1988`	`}`
`1990`	`1989`
`1991`		`- res <- list(warnings = warn[["messages"]], errors = err[["messages"]])`
	`1990`	`+ res <- list(errors = err[["messages"]])`
`1992`	`1991`	`return(res)`
`1993`	`1992`	`}`
`1994`	`1993`
`@@ -1998,4 +1997,4 @@ dataset_info_lineplot <- function(bm_dataset_name, group_dataset_name, ...) {`
`1998`	`1997`	`return(list(all = unique(c(bm_dataset_name, group_dataset_name)), subject_level = group_dataset_name))`
`1999`	`1998`	`}`
`2000`	`1999`
`2001`		`-mod_lineplot <- CM$module(mod_lineplot, check_mod_lineplot, dataset_info_lineplot, map_afmm_mod_lineplot_auto)`
	`2000`	`+mod_lineplot <- CM$module(mod_lineplot, check_mod_lineplot, dataset_info_lineplot)`