chore: fix R CMD check with missing arguments and using rlang that is…

… not in dependencies

R/tm_g_pp_vitals.R

@@ -206,6 +206,7 @@ template_vitals <- function(dataname = "ANL",
 #' @inheritParams template_vitals
 #' @param xaxis ([teal.transform::choices_selected()])\cr object with all
 #'   available choices and preselected option for the time variable from `dataname` to be put on the plot x-axis.
+#' @param decorators `r roxygen_decorators_param("tm_g_pp_vitals")`
 #'
 #' @inherit module_arguments return
 #'
@@ -443,19 +444,19 @@ srv_g_vitals <- function(id,
     )
 
     observeEvent(patient_data_base(),
-                 handlerExpr = {
-                   teal.widgets::updateOptionalSelectInput(
-                     session,
-                     "patient_id",
-                     choices = patient_data_base(),
-                     selected = if (length(patient_data_base()) == 1) {
-                       patient_data_base()
-                     } else {
-                       intersect(patient_id(), patient_data_base())
-                     }
-                   )
-                 },
-                 ignoreInit = TRUE
+      handlerExpr = {
+        teal.widgets::updateOptionalSelectInput(
+          session,
+          "patient_id",
+          choices = patient_data_base(),
+          selected = if (length(patient_data_base()) == 1) {
+            patient_data_base()
+          } else {
+            intersect(patient_id(), patient_data_base())
+          }
+        )
+      },
+      ignoreInit = TRUE
     )
 
     # Vitals tab ----

R/tm_t_abnormality_by_worst_grade.R

@@ -245,6 +245,7 @@ template_abnormality_by_worst_grade <- function(parentname, # nolint: object_len
 #' object with all available choices and preselected option for variable names that can be used as Worst Low Grade flag.
 #' @param worst_flag_indicator ([teal.transform::choices_selected()])\cr
 #' value indicating worst grade.
+#' @param decorators `r roxygen_decorators_param("tm_t_abnormality_by_worst_grade")`
 #'
 #' @inherit module_arguments return seealso
 #'

R/tm_t_ancova.R

@@ -421,6 +421,7 @@ template_ancova <- function(dataname = "ANL",
 #'
 #' @inheritParams module_arguments
 #' @inheritParams template_ancova
+#' @param decorators `r roxygen_decorators_param("tm_t_ancova")`
 #'
 #' @inherit module_arguments return
 #'

R/utils.R

@@ -968,7 +968,7 @@ srv_decorate_teal_data <- function(id, data, decorators, expr, expr_is_reactive
 
   missing_expr <- missing(expr)
   if (!missing_expr && !expr_is_reactive) {
-    expr <- rlang::enexpr(expr)
+    expr <- dplyr::enexpr(expr) # Using dplyr re-export to avoid adding rlang to Imports
   }
 
   moduleServer(id, function(input, output, session) {
@@ -980,9 +980,9 @@ srv_decorate_teal_data <- function(id, data, decorators, expr, expr_is_reactive
       if (missing_expr) {
         decorated_output()
       } else if (expr_is_reactive) {
-        eval_code(decorated_output(), expr())
+        teal.code::eval_code(decorated_output(), expr())
       } else {
-        eval_code(decorated_output(), expr)
+        teal.code::eval_code(decorated_output(), expr)
       }
     })
   })