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
|
# $Id: sinkplot.R 1673 2013-06-27 20:20:46Z warnes $
sinkplotEnv <-new.env()
sinkplot <- function(operation=c("start","plot","cancel"),...)
{
operation <- match.arg(operation)
if( operation=="start" )
{
if (exists(".sinkplot.conn", envir=sinkplotEnv) &&
get(".sinkplot.conn", envir=sinkplotEnv) )
stop("sinkplot already in force")
.sinkplot.conn <- textConnection(".sinkplot.data", "w", local=FALSE)
assign(x=".sinkplot.conn", value=.sinkplot.conn, envir=sinkplotEnv)
on.exit(sink())
sink(.sinkplot.conn)
on.exit()
}
else
{
if (!exists(".sinkplot.conn", envir=sinkplotEnv) ||
!get(".sinkplot.conn", envir=sinkplotEnv) )
stop("No sinkplot currently in force")
sink()
data <- get(".sinkplot.data", envir=sinkplotEnv)
if( operation=="plot" )
textplot( paste( data, collapse="\n"), ... )
close(get(".sinkplot.conn", envir=sinkplotEnv))
if(exists(".sinkplot.data", envir=sinkplotEnv, inherits=FALSE))
rm(list=".sinkplot.data", pos=sinkplotEnv, inherits=FALSE)
if(exists(".sinkplot.conn", envir=sinkplotEnv, inherits=FALSE))
rm(list=".sinkplot.conn", pos=sinkplotEnv, inherits=FALSE)
invisible(data)
}
}
|
