¿Hay una referencia "this" en R Functions?

Question

¿Hay un "presente" de referencia en I que me permite escribir

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

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

test(envir1) 

en lugar de:

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

¿qué tal

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