fix: ci fixes - lints and docs

.lintr

@@ -1,5 +1,5 @@
 linters: linters_with_defaults(
-  line_length_linter = line_length_linter(120),
-  cyclocomp_linter = NULL,
-  object_usage_linter = NULL
-)
+    line_length_linter = line_length_linter(120),
+    cyclocomp_linter = NULL,
+    object_usage_linter = NULL
+  )

R/tm_g_gh_correlationplot.R

@@ -526,7 +526,7 @@ srv_g_correlationplot <- function(id,
 
       # get min max values
       if ((constraint_var == "BASE2" && any(grepl("SCR", visit_freq))) ||
-        (constraint_var == "BASE" && any(grepl("BL", visit_freq)))) {
+        (constraint_var == "BASE" && any(grepl("BL", visit_freq)))) { # nolint
         val <- stats::na.omit(switch(constraint_var,
           "BASE" = ANL$BASE[ANL$AVISITCD == "BL"],
           "BASE2" = ANL$BASE2[ANL$AVISITCD == "SCR"],

R/utils-data_constraints.r

@@ -107,7 +107,7 @@ constr_anl_q <- function(session, input, data, dataname, param_id, param_var, tr
 
     # get min max values
     if ((constraint_var == "BASE2" && any(grepl("SCR", visit_freq))) ||
-      (constraint_var == "BASE" && any(grepl("BL", visit_freq)))) {
+      (constraint_var == "BASE" && any(grepl("BL", visit_freq)))) { # nolint
       val <- stats::na.omit(switch(constraint_var,
         "BASE" = ANL$BASE[ANL$AVISITCD == "BL"],
         "BASE2" = ANL$BASE2[ANL$AVISITCD == "SCR"],

R/utils.R

@@ -38,7 +38,7 @@ plots_per_row_validate_rules <- function(required = TRUE) {
 #' an optional description, and the option to append the filter state list.
 #' Additionally, it display selected constraint options.
 #'
-#' @inheritParams teal.reporter::card_template
+#' @inheritParams teal::report_card_template
 #' @param constraint_list (`list`) a list containing constraint variables, including:
 #'   - constraint_var (`character(1)`) the constraint variable name.
 #'   - constraint_range_min (`numeric(1)`) the minimum constraint range value.