powered by
is.global(n = 1)
globalenv
parent.frame
is.global() lapply(1:3, function(i) is.global()) FUN <- function() is.global(); FUN() FUN2 <- function(x = is.global(2)) x FUN2() FUN3 <- function() FUN2(); FUN3()
Run the code above in your browser using DataLab