## Print a couple of cute messages when R exits.
helloWorld <- function() cat("\nHello World!\n")
byeWorld <- function() cat("\nGoodbye World!\n")
.Last <- lastAdd(byeWorld)
.Last <- lastAdd(helloWorld)
## Not run:
# q("no")
#
# ## Should yield:
# ##
# ## Save workspace image? [y/n/c]: n
# ##
# ## Hello World!
# ##
# ## Goodbye World!
# ##
# ## Process R finished at Tue Nov 22 10:28:55 2005
# ## End(Not run)
## Unix-flavour example: send Rplots.ps to printer on exit.
myLast <- function()
{
cat("Now sending PostScript graphics to the printer:\n")
system("lpr Rplots.ps")
cat("bye bye...\n")
}
.Last <- lastAdd(myLast)
## Not run:
# quit("yes")
#
# ## Should yield:
# ##
# ## Now sending PostScript graphics to the printer:
# ## lpr: job 1341 queued
# ## bye bye...
# ##
# ## Process R finished at Tue Nov 22 10:28:55 2005
# ## End(Not run)
Run the code above in your browser using DataCamp Workspace