This function allows the printed output of R commands to be captured
and displayed on a graphics device.
The capture process is started by calling
sinkplot("start"). Now R commands can be executed and all
printed output (except errors) will be captured. When the desired
text has been captured sinkplot("plot") can be called to
actually display the output. sinkplot("cancel") can be used to
abort the output capture without plotting.
The current implementation does not allow sinkplot to be nested.
Value
Invisibly returns a character vector containing one element for each
line of the captured output.
set.seed(12456)
x <- factor(sample( LETTERS[1:5], 50, replace=TRUE))
y <- rnorm(50, mean=as.numeric(x), sd=1)
## construct a figure showing a box plot of the data, followed by an
## analysis of variance table for the data
layout(cbind(1:2), heights=c(2,1))
boxplot(y~x, col="darkgreen")
sinkplot()
anova(lm(y~x))
sinkplot("plot",col="darkgreen")