txt <- "global variable"

my_function <- function() {

  txt = "fantastic"

  paste("R is", txt)

}

​

my_function()

​

txt # print txt

​