chore: #1974 fix parsing issue that caused vignettes to crash

pharmaverse · Jun 27, 2023 · d1e92cc · d1e92cc
1 parent 80bf09d
commit d1e92cc
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 2 deletions.
diff --git a/R/call_derivation.R b/R/call_derivation.R
@@ -118,7 +118,7 @@ call_derivation <- function(dataset = NULL, derivation, variable_params, ...) {
   }
 
   all_params <- union(unlist(map(variable_params, names)), names(fixed_params))
-  assert_function(deparse(substitute(derivation)), all_params)
+  assert_function(derivation, all_params)
 
   for (i in seq_along(variable_params)) {
     fixed_params_ <- fixed_params[names(fixed_params) %notin% names(variable_params[[i]])]

diff --git a/R/globals.R b/R/globals.R
@@ -144,6 +144,7 @@ globalVariables(c(
   "VAR_CHECK",
   "TERM",
   "SRCVAR",
+  "TERMID",
   "TERMNAME",
   "TERM_NAME_ID",
   "TERM_UPPER",

diff --git a/R/slice_derivation.R b/R/slice_derivation.R
@@ -90,7 +90,7 @@ slice_derivation <- function(dataset,
   assert_function(derivation, params = c("dataset"))
   assert_s3_class(args, "params", optional = TRUE)
   if (!is.null(args)) {
-    assert_function(deparse(substitute(derivation)), names(args))
+    assert_function(derivation, names(args))
   }
   slices <- list2(...)
   assert_list_of(slices, "derivation_slice")