Nothing
### R code from vignette source 'rtfSweave-intro.Rnw'
###################################################
### code chunk number 1: rtfSweave-intro.Rnw:216-224
###################################################
preprocess <- function(original.rtf, new.rtf){
doc <- readLines(original.rtf)
doc <-
sub("^{\\paragraph$",
"{\\pard \\sb120 \\sa120 \\f0 \\fs24",
doc)
writeLines(doc, new.rtf)
}
###################################################
### code chunk number 2: rtfSweave-intro.Rnw:284-292
###################################################
tmp <- tempfile()
png(tmp, height = 2, width = 2, units = "in", res = 10)
plot(1:10)
dev.off()
size <- file.info(tmp)$size
hex <- readBin(tmp, what = "raw", size)
cat(hex, fill = 60, sep = " ")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.