foo <- "hello"
bar <- function() {
  foo()
}