fix dependencies

insightsengineering · Nov 13, 2024 · 2f8d88f · 2f8d88f
1 parent b7e837c
commit 2f8d88f
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 4 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -30,7 +30,9 @@ Imports:
     checkmate (>= 2.1.0),
     grDevices,
     lifecycle (>= 0.2.0),
-    rlang (>= 1.1.0)
+    rlang (>= 1.1.0),
+    stats,
+    utils
 Suggests:
     cli (>= 3.4.0),
     knitr (>= 1.42),

diff --git a/R/qenv-c.R b/R/qenv-c.R
@@ -89,7 +89,7 @@ c.qenv <- function(...) {
         stop(join_validation)
       }
 
-      x@code <- modifyList(x@code, y@code)
+      x@code <- utils::modifyList(x@code, y@code)
 
       # insert (and overwrite) objects from y to x
       x@.xData <- rlang::env_clone(x@.xData, parent = parent.env(.GlobalEnv))

diff --git a/R/qenv-eval_code.R b/R/qenv-eval_code.R
@@ -36,7 +36,7 @@ setMethod("eval_code", signature = c("qenv", "character"), function(object, code
   if (length(parsed_code) == 0) {
     # empty code, or just comments
     attr(code, "dependency") <- extract_dependency(parsed_code) # in case comment contains @linksto tag
-    object@code <- c(object@code, setNames(list(code), sample.int(.Machine$integer.max, size = 1)))
+    object@code <- c(object@code, stats::setNames(list(code), sample.int(.Machine$integer.max, size = 1)))
     return(object)
   }
   code_split <- split_code(paste(code, collapse = "\n"))
@@ -84,7 +84,7 @@ setMethod("eval_code", signature = c("qenv", "character"), function(object, code
       return(x)
     }
     attr(current_code, "dependency") <- extract_dependency(current_call)
-    object@code <- c(object@code, setNames(list(current_code), sample.int(.Machine$integer.max, size = 1)))
+    object@code <- c(object@code, stats::setNames(list(current_code), sample.int(.Machine$integer.max, size = 1)))
   }
 
   lockEnvironment(object@.xData, bindings = TRUE)