# NOT RUN {
myVariableGeneratingFunction <- function()
{
x <- 1
y <- 2
local_variables()
}
myMainFunction <- function()
{
source_variables(myVariableGeneratingFunction())
print(c(x, y))
}
# }
Run the code above in your browser using DataLab