矢量化assign函数并在全局环境中创建对象

Question

我想对assign函数进行向量化，并创建一组反映提供的命名向量的参数，这些参数可直接在.GlobalEnv中使用。

代码

vec_args <- c(arg1 = 1,
              arg2 = 2,
              arg3 =  3)

Vectorize(assign)(x = names(vec_args),
                  value = vec_args,
                  envir = globalenv())

错误

  

点[[3L]] [[1L]]出错：用于子集化的错误参数   环境

期望的结果

ag1 <- 1; arg2 <- 2; arg3 <- 3; ls()
# [1] "ag1"        "arg2"       "arg3"       "vec_args"

或通过assign：

实际上，我想复制一下这个电话：

assign(x = "arg1", value = vec_args[1], envir = globalenv())

对于向量的每个元素，并使用向量名称在.GlobalEnv中创建名称。

Answer 1

此功能已通过list2env提供：

  

从名为'列表x'创建一个'环境'，其中包含所有列表组件作为对象，或者从'x'“多分配”到预先存在的环境中。

list2env(as.list(vec_args), envir = globalenv())
ls()
# [1] "arg1"     "arg2"     "arg3"     "vec_args"

以下内容也适用：

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"