Date: r Sys.Date() JID: r params$jid

knitr::opts_chunk$set(echo = TRUE)

Dynamic Call Flow

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)) 


okux/qrmarkdown documentation built on Dec. 22, 2021, 4:17 a.m.