Evaluates expressions in an RStudio Job

hire.R

# Usage:
# variable %<j% long_running_function()
`%<j%` <- function(x, y) {
  var_name <- paste0(deparse(substitute(x)))
  expr <- paste0(deparse(substitute(y)), collapse = "\n")

  script <- tempfile()
  lines <- writeLines(paste0(var_name, " <- ", expr), script)

  rstudioapi::jobRunScript(script,
                           name = paste0("computing ", var_name),
                           workingDir = getwd(),
                           importEnv = TRUE,
                           exportEnv = "R_GlobalEnv")
}

# Usage:
# with_job(long_running_function(), "variable")
with_job <- function(expr, var_name) {
  expr <- paste0(deparse(substitute(expr)), collapse = "\n")

  script <- tempfile()
  lines <- writeLines(paste0(var_name, " <- ", expr), script)

  rstudioapi::jobRunScript(script,
                           name = paste0("computing ", var_name),
                           workingDir = getwd(),
                           importEnv = TRUE,
                           exportEnv = "R_GlobalEnv")
}