Date: r Sys.Date()
JID: r params$jid
knitr::opts_chunk$set(echo = TRUE)
we kick off new job process inside of job
message('we are queueing new job inside!') Sys.setenv(QWD='/Users/chriso/Documents/Code/Rlib/qrmarkdown/log') require(qrmarkdown) dox <- function(x) { return( q.push(script = 'tests/myTest.Rmd') ) } new.job <- lapply(1:3, dox) # queue 3 sub process from this job q.wait(unlist(new.job))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.