## Not run: ------------------------------------
# ## Example ~/.Renviron on Unix
# R_LIBS=~/R/library
# PAGER=/usr/local/bin/less
# 
# ## Example .Renviron on Windows
# R_LIBS=C:/R/library
# MY_TCLTK="c:/Program Files/Tcl/bin"
# 
# ## Example of setting R_DEFAULT_PACKAGES (from R CMD check)
# R_DEFAULT_PACKAGES='utils,grDevices,graphics,stats'
# # this loads the packages in the order given, so they appear on
# # the search path in reverse order.
# 
# ## Example of .Rprofile
# options(width=65, digits=5)
# options(show.signif.stars=FALSE)
# setHook(packageEvent("grDevices", "onLoad"),
#         function(...) grDevices::ps.options(horizontal=FALSE))
# set.seed(1234)
# .First <- function() cat("\n   Welcome to R!\n\n")
# .Last <- function()  cat("\n   Goodbye!\n\n")
# 
# ## Example of Rprofile.site
# local({
#   # add MASS to the default packages, set a CRAN mirror
#   old <- getOption("defaultPackages"); r <- getOption("repos")
#   r["CRAN"] <- "http://my.local.cran"
#   options(defaultPackages = c(old, "MASS"), repos = r)
#   ## (for Unix terminal users) set the width from COLUMNS if set
#   cols <- Sys.getenv("COLUMNS")
#   if(nzchar(cols)) options(width = as.integer(cols))
#   # interactive sessions get a fortune cookie (needs fortunes package)
#   if (interactive())
#     fortunes::fortune()
# })
# 
# ## if .Renviron contains
# FOOBAR="coo\bar"doh\ex"abc\"def'"
# 
# ## then we get
# # > cat(Sys.getenv("FOOBAR"), "\n")
# # coo\bardoh\exabc"def'
## ---------------------------------------------Run the code above in your browser using DataLab