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

Question

是否有R A “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) 

Answer 1

怎么样

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