addLast.html
2.36 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html><head><title>R: Add a function to be executed when R exits.</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" type="text/css" href="../../R.css">
</head><body>
<table width="100%" summary="page for addLast {gtools}"><tr><td>addLast {gtools}</td><td align="right">R Documentation</td></tr></table>
<h2>Add a function to be executed when R exits.</h2>
<h3>Description</h3>
<p>
Add a function to be executed when R exits.
</p>
<h3>Usage</h3>
<pre>
addLast(fun)
</pre>
<h3>Arguments</h3>
<table summary="R argblock">
<tr valign="top"><td><code>fun</code></td>
<td>
Function to be called.</td></tr>
</table>
<h3>Details</h3>
<p>
<code>addLast</code> defines <code>.Last</code> (if not already present) or redifines it
so that the function <code>fun</code> will be called when R exits. The
latter is accomplished by saving the current definition of <code>.Last</code> and
creating a new <code>.Last</code> function that calls <code>fun</code> and then the
original <code>.Last</code> function.
</p>
<h3>Value</h3>
<p>
None.</p>
<h3>Author(s)</h3>
<p>
Gregory R. Warnes <a href="mailto:warnes@bst.rochester.edu">warnes@bst.rochester.edu</a>
</p>
<h3>See Also</h3>
<p>
<code><a href="../../base/html/.Last.html">.Last</a></code>
</p>
<h3>Examples</h3>
<pre>
## 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)
</pre>
<hr><div align="center">[Package <em>gtools</em> version 2.4.0 <a href="00Index.html">Index]</a></div>
</body></html>