sellorm

render_with_jobs <- function(){
  rstudioapi::verifyAvailable()
  jobs_file <- tempfile(tmpdir = "/tmp", fileext = ".R")
  rmd_to_render <- rstudioapi::selectFile(caption = "Choose an Rmd file...",
                                          filter = "Rmd files (*.Rmd)")
  if (is.null(rmd_to_render)){
    stop("You must choose an Rmd file to proceed!")
  }
  cat(paste0('rmarkdown::render("', rmd_to_render, '")'), file = jobs_file)
  rstudioapi::jobRunScript(path = jobs_file,