R/jid.params.R

In okux/qrmarkdown: Job Queue Management For Rmarkdown

jid.params <- function(jid, debug=TRUE)
{
   if( file.exists(jid) )
   {
    load(file=as.character(jid))

    if( debug) print(ticket)

    return(ticket$params)
  } else
  {
    warning('invalid jid file path.')
    return(NULL)
  }

}

save.data.in.jid <- function(jid,...)
{
  load(file=as.character(jid))

  save(ticket, ..., file=jid)
}