Example illustrating the deep assignment operator's (<<-) use in R

deepAssignmentOperatorExamples.R

####################################################
# case of global assignment
# parent environment is the global environment
# from Hadley Wickham's 'Advanced R'
#####################################################
x <- 0
f <- function() {
    x <<- 1

}
f()
x
#[1] 1

######################################################
# case of non-global assignment
# parent assignment is not the global environment
#####################################################
x <- 0
g <- function(){
  x <- 3
  print(x)
  f <- function() {
      x <<- 1
  }
  f()
  print(x)
}
g()
#[1] 3
#[1] 1
x
#[1] 0