向量化分配函数并在全局环境中创建对象 [英] Vectorize the assign function and create objects in global environment

问题描述

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

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())

错误

点号错误[[3L]] [[1L]]:错误的参数设置了 环境

Error in dots[[3L]][[1L]] : wrong arguments for subsetting an environment

所需结果

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

或通过assign:

实际上，我想复制该呼叫:

In effect, I would like to replicate the call:

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

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

for each element of a vector and use vector names to create names in .GlobalEnv.

推荐答案

此功能已通过list2env提供:

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

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"

这篇关于向量化分配函数并在全局环境中创建对象的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！