R/q.move.R

In okux/qrmarkdown: Job Queue Management For Rmarkdown

q.move <- function(jid.path,to="progress")
{
  if(!file.exists(jid.path) )
  {
    stop(sprintf("jid.path:%s not found", jid.path))
  }

  load(file=jid.path)
  file.remove(jid.path)

  ticket$status = to

  to_path = sprintf('%s/%s/%s',
                    .pkg.log$log.dir,
                    to,
                    basename(ticket$jid))

  ticket$jid <- to_path # update new path

  save(ticket, file=to_path)
  return(to_path)
}