Playing with RStudio Daily jobs

job.r

add_job <- function(name, status, progressUnits, 
                    actions, estimate, estimateRemaining, 
                    running, autoRemove, group) {
  rstudioapi::callFun("addJob", 
                      name = name, 
                      status = status, 
                      progressUnits = progressUnits, 
                      actions = actions, 
                      estimate = estimate, 
                      estimateRemaining = estimateRemaining, 
                      running = running, 
                      autoRemove = autoRemove, 
                      group = group)
}

remove_job <- function(job) {
  rstudioapi::callFun("removeJob", job = job)
}

add_job_progress <- function(job, units) {
  rstudioapi::callFun("addJobProgress", job = job, units = units)
}

# ------------------------------------------------------------------------------
job_id <- add_job(
  name = "My first job", 
  status = "Working hard...", 
  progressUnits = 50L,
  actions = NULL,
  estimate = NULL,
  estimateRemaining = NULL,
  running = TRUE,
  autoRemove = TRUE,
  group = NULL
)

for(i in 1:50) {
  Sys.sleep(.1)
  add_job_progress(job_id, 1)
}

#remove_job("B82029A8")