sink
and history
with a
couple of extra bells and whistles.txtStart(file, commands=TRUE, results=TRUE, append=FALSE, cmdfile,
visible.only=TRUE)
txtOut()
txtStop()
txtComment(txt,cmdtxt)
txtSkip(expr)
file
or replace itsource
d or copied and pasted fromfile
cmdfile
file
or cmdfile
txtSkip
returns the value of expr
.results
is TRUE and commands
is FALSE then the result
is similar to the results of sink
. If commands
is true as well then the results will show both the commands
and results similar to the output on the screen. If both
commands
and results
are FALSE then pretty much
the only thing these functions will accomplish is to waste some
computing time.
If cmdfile
is
specified then an additional file is created with the commands
used (similar to the history
command), this file can be
used with source
or copied and
pasted to the terminal.
The Start function specifies the file/directory to create and
starts the transcript,
The prompts are changed to remind you
that the commands/results are being copied to the transcript.
The Stop function stops the recording and resets the prompts.
The txtOut function is a short cut for the txtStart command that uses the current date and time in the filenames for the transcript and command files. This function is not part of the TeachingDemos package.
The R parser strips comments and does some reformating so the
transcript file may not match exactly with the terminal
output. Use the txtComment
functions to add a comment. This will show up as a line offset
by whitespace in the transcript file.
If cmdtxt
is specified then that line
will be inserted into cmdfile
preceeded by a # so it
will be skipped if sourced or copied.
The txtSkip
function will run the
code in expr
but will not include the commands or
results in the transcript file (this can be used for side
computations, or requests for help, etc.).sink
, history
,
Sweave
, the odfWeave package, the R2HTML package, the
R2wd packagetxtStart()
txtComment('This is todays transcript')
date()
x <- rnorm(25)
summary(x)
stem(x)
txtSkip(?hist)
hist(x)
Sys.Date()
Sys.time()
Run the code above in your browser using DataLab