# NOT RUN {
x <- 1:100
ref(x)
y <- list(x, x, x)
ref(y)
ref(x, y)
e <- new.env()
e$e <- e
e$x <- x
e$y <- list(x, e)
ref(e)
# Can also show references to global string pool if requested
ref(c("x", "x", "y"))
ref(c("x", "x", "y"), character = TRUE)
# }
Run the code above in your browser using DataLab