I would like to vectorize the assign
function and create a set of arguments reflecting provided named vector that would be directly available in the .GlobalEnv
.
vec_args <- c(arg1 = 1,
arg2 = 2,
arg3 = 3)
Vectorize(assign)(x = names(vec_args),
value = vec_args,
envir = globalenv())
Error in dots[[3L]][[1L]] : wrong arguments for subsetting an environment
ag1 <- 1; arg2 <- 2; arg3 <- 3; ls()
# [1] "ag1" "arg2" "arg3" "vec_args"
or via assign
:
In effect, I would like to replicate the call:
assign(x = "arg1", value = vec_args[1], envir = globalenv())
for each element of a vector and use vector names to create names in .GlobalEnv
.
This functionality is already available via list2env
:
From a named ‘list x’, create an ‘environment’ containing all list components as objects, or “multi-assign” from ‘x’ into a pre-existing environment.
list2env(as.list(vec_args), envir = globalenv())
ls()
# [1] "arg1" "arg2" "arg3" "vec_args"
Something like the following would also work:
rm(list = ls())
vassign <- Vectorize(assign, c("x", "value"))
vec_args <- c(arg1 = 1, arg2 = 2, arg3 = 3)
vassign(names(vec_args), vec_args, envir = globalenv())
ls()
# [1] "arg1" "arg2" "arg3" "vassign" "vec_args"