Non-destructively construct a .Last function to be executed when R exits.

Non-destructively construct a .Last function to be executed when R exits.

lastAdd(fun)

Arguments

fun

Function to be called.

Value

A new function to be used for .Last.

Details

lastAdd constructs a new function which can be used to replace the existing definition of .Last, which will be executed when R terminates normally.

If a .Last function already exists in the global environment, the original definition is stored in a private environment, and the new function is defined to call the function fun and then to call the previous (stored) definition of .Last.

If no .Last function exists in the global environment, lastAdd simply returns the function fun.

Note

This function replaces the (now defunct) addLast function.

See also

.Last

Author

Gregory R. Warnes greg@warnes.net

Examples

## 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)
#> 
#> Hello World!
if (FALSE) { # \dontrun{
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
} # }