test <- function(z) { 

  browser()

}

outter <- function() {
  x <- 7
  e.outter <- environment()
  test()

}

## global: 
x <- 5

outter()
en <- get("e.outter", parent.frame())
en$x