correct lintr

insightsengineering · Oct 31, 2023 · 0a8d756 · 0a8d756
1 parent 532eed8
commit 0a8d756
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 1 deletion.
diff --git a/R/g_lineplot.R b/R/g_lineplot.R
@@ -477,7 +477,9 @@ h_format_row <- function(x, format, labels = NULL) {
 #' @param x (`character`)\cr x variable name.
 #' @param y (`character`)\cr y variable name.
 #' @param group_var (`character` or `NA`)\cr group variable name.
+#' @param strata (`character` or `NA`)\cr deprecated, group variable name.
 #' @param subject_var (`character` or `NA`)\cr subject variable name.
+#' @param cohort_id (`character` or `NA`)\cr deprecated, subject variable name.
 #' @param paramcd (`character` or `NA`)\cr `paramcd` variable name.
 #' @param y_unit (`character` or `NA`)\cr `y_unit` variable name.
 #'
@@ -489,11 +491,14 @@ h_format_row <- function(x, format, labels = NULL) {
 #'
 #' @export
 control_lineplot_vars <- function(x = "AVISIT", y = "AVAL", group_var = "ARM", paramcd = "PARAMCD", y_unit = "AVALU",
-                                  subject_var = "USUBJID", strata = lifecycle::deprecated(), cohort_id = lifecycle::deprecated()) {
+                                  subject_var = "USUBJID", strata = lifecycle::deprecated(),
+                                  cohort_id = lifecycle::deprecated()) {
   checkmate::assert_string(x)
   checkmate::assert_string(y)
   checkmate::assert_string(group_var, na.ok = TRUE)
+  checkmate::assert_string(strata, na.ok = TRUE)
   checkmate::assert_string(subject_var, na.ok = TRUE)
+  checkmate::assert_string(cohort_id, na.ok = TRUE)
   checkmate::assert_string(paramcd, na.ok = TRUE)
   checkmate::assert_string(y_unit, na.ok = TRUE)
 

diff --git a/man/control_lineplot_vars.Rd b/man/control_lineplot_vars.Rd