R函数中是否有“this”引用?

时间:2011-05-12 14:08:18

标签: r

R中是否有“this”引用允许我写

envir1 <- new.env()
assign("x", 4, envir=envir1)

test <- function(env1) {
    environment(this) <- env1
    return(x + 5)
} 

test(envir1)

而不是:

envir1 <- new.env()
assign("x", 4, envir=envir1)

test2 <- function() {
    return(x+1)
}

test <- function(env1) {
    environment(test2) <- env1
    return(test2())
}

test(envir1)

1 个答案:

答案 0 :(得分:10)

怎么样

test <- function(env1) {
    with(env1, {
        return(x + 5);
        })
}