addLast {gtools} | R Documentation |
Add a function to be executed when R exits.
addLast(fun)
fun |
Function to be called. |
addLast
defines .Last
(if not already present) or redifines it
so that the function fun
will be called when R exits. The
latter is accomplished by saving the current definition of .Last
and
creating a new .Last
function that calls fun
and then the
original .Last
function.
None.
Gregory R. Warnes greg@warnes.net
## Not run: ## Print a couple of cute messages when R exits. helloWorld <- function() cat("\nHello World!\n") byeWorld <- function() cat("\nGoodbye World!\n") addLast(byeWorld) addLast(helloWorld) 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 ## 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") } addLast(myLast) 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)