Is there a "this" reference in R Functions?

Question

Is there a "this" reference in R that allows me to write

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

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

test(envir1)

instead of:

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

how about

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