diff --git a/DESCRIPTION b/DESCRIPTION index e9dc7503..46cbe493 100644 --- 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 index c8c4e802..586f4bda 100644 --- 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 index 8fb1a097..7a51cff4 100644 --- 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)