Run.R.From.R <- function() {
# Informational only
# shell("echo xx = list() > Rcmds.txt")
# shell("echo xx[[1]] = 33 >> Rcmds.txt")
# shell("echo xx[[2]] = 77 >> Rcmds.txt")
# shell("echo save(xx, file = 'Save.Rdata') >> Rcmds.txt")
# shell("echo xx >> Rcmds.txt")
# shell(" W:\\R\\R-2.6.2\\bin\\R.exe --slave --no-site-file --no-init-file -f Rcmds.txt")
# xx <- load("Save.Rdata")
# shell("del Rcmds.txt")
# shell("del Save.Rdata")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.