Nothing
#### Read all CTVs in the package:
library("ctv")
cdir <- system.file("ctv", package="ctv")
ctvs <- list.files(cdir, pattern = "\\.(ctv|md)$")
ctvs
if(require("knitr") & require("rmarkdown") & require("xml2")) {
rr <- sapply(ctvs,
function(ctv) {
cat(sprintf("%25s ",ctv))
R <- read.ctv(file.path(cdir, ctv))
cat("[ok]\n")
R
},
simplify=FALSE)
for(n in names(rr)) {
cat(n," :\n", rep.int("=", nchar(n)),"\n", sep='')
print(rr[[n]])
cat("--------------------------------------------------------\n")
}
}
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.