- f <- function(a) {
- eval(substitute(a <- 1), parent.frame())
- }
- f2 <- function(a2) {
- eval(substitute(a2 <- 2, parent.frame()))
- }
- f3 <- function(a3) {
- eval(substitute(a3 <- 3, parent.frame()), parent.frame())
- }
- f4 <- function(a4) {
- eval(substitute(a4 <- 4))
- }
- b <- 0
- f(b)
- print(b)
- b2 <- 0
- f2(b2)
- print(b2)
- b3 <- 0
- f3(b3)
- print(b3)
- b4 <- 0
- f4(b4)
- print(b4)