将列表元素作为独立对象返回到全局环境中

Question

我有一个列表,并希望将列表的元素分解为全局环境中的单独对象.

例如,我想要列表:

obj <- list(a=1:5, b=2:10, c=-5:5)

是三个单独的对象a,b和c.

我尝试用以下方法实现这一点:

lapply(obj, FUN = function(x) names(x)[1] <<- x[1])

但它失败了Error in names(x)[1] <<- x[1] : object 'x' not found.

我怎样才能实现目标？

Answer 1

将列表映射到环境有特殊功能:

> obj <- list(a=1:5, b=2:10, c=-5:5)
> ls()
[1] "obj"
> list2env(obj,globalenv())
<environment: R_GlobalEnv>
> ls()
[1] "a"   "b"   "c"   "obj"

PS这是我作为答案提供的评论

Answer 2

这也可行:

lapply(seq_along(obj), function(i) assign(names(obj)[i], obj[[i]], envir = .GlobalEnv))