caller.R

Caller: local = TRUE

print(ls())

## character(0)

rm(list=ls())
print(ls())

## character(0)

CALLER <- "assigned in Caller"
print(ls())

## [1] "CALLER"

source('called.R', local = TRUE)

## character(0)
## [1] "CALLED"
## From called 
## assigned in Called 
## [1] "CALLED"
## End From called

cat('After source','\n')

## After source

cat(CALLED, '\n')

## assigned in Called

print(ls())

## [1] "CALLED"