一次为环境分配多个值

时间:2014-05-13 21:27:21

标签: r environment r-s3

给定环境xassign(x, value, envir = e)的便捷简写就是写e[[x]] <- value。目前,没有模拟子集运算符一次分配多个对象:

> e = new.env(parent = emptyenv())
> e[["a"]] <- 1
> ls(e)
[1] "a"
> e[c("b", "c")] <- c(1,2)
Error in e[c("b", "c")] <- c(1, 2) : 
  object of type 'environment' is not subsettable

我希望使用[<-的内置S3功能编写一个。我注意到的第一个奇怪的是,尽管模仿了S3函数,[[<-[<-都是原始函数:

> methods("[<-")
[1] [<-.data.frame  [<-.Date        [<-.environment [<-.factor      [<-.POSIXct     [<-.POSIXlt     [<-.raster*     [<-.ts* 

通常,S3函数的格式是正文只是对UseMethod的调用。例如:

> summary
function (object, ...) 
UseMethod("summary")
<bytecode: 0x1a7c3a8>
<environment: namespace:base>

除了赋值运算符是原始的,对[[<-environment没有S3方法:

> methods(class = environment)
[1] as.list.environment

因此,如果原始函数存在默认值,则必须使用默认值来完成使用[[<-的原始赋值。尽管如此,我还为[<-.environment实现了一个S3函数:

> `[<-.environment` = function(x, names, values) {
mapply(function(name, value) { x[[name]] <- value }, names, values) }

这似乎表现得如下所示:

> methods(class = environment)
[1] [<-.environment     as.list.environment
> methods(`[<-`)
[1] [<-.data.frame  [<-.Date        [<-.environment [<-.factor      [<-.POSIXct     [<-.POSIXlt     [<-.raster*     [<-.ts*  

然而,它遇到了同样的错误:

> e = new.env(parent = emptyenv())
> e[c("b", "c")] <- c(1,2)
Error in e[c("b", "c")] <- c(1, 2) : 
  object of type 'environment' is not subsettable

有人可以解释与[<-[[<-的S3方法的不一致,以及如何正确实现环境的子集分配?

1 个答案:

答案 0 :(得分:1)

这是一个从?list2env

修改的开始
L <- list(a = 1, b = 2:4, p = pi, ff = gl(3, 4, labels = LETTERS[1:3]))
e <- list2env(L)
addToEnv <- function(e, names, values) {
    l1 <- sapply(values, list)
    names(l1) <- names
    el1 <- mget(ls(e), envir=e)
    al1 <- as.list(c(el1, l1))
    return(list2env(al1))
    }
e2 <- addToEnv(e, names=letters[7:8], values=letters[9:10])
mget(ls(e2), envir=e2)

,并提供:

$a
[1] 1

$b
[1] 2 3 4

$ff
 [1] A A A A B B B B C C C C
Levels: A B C

$g
[1] "i"

$h
[1] "j"

$p
[1] 3.141593

我承认这不是高效的,但应适用于小型环境。