R/run_output.R

In trevorlolsen/jobsR: Generate and run reproducible jobs in R

#' run_output
#'
#' @param output_paths TODO
#' @param output_full_run_env TODO
#'
#' @return List
#' @export
run_output <- function(output_paths, output_full_run_env) {
  jobs_output <- vector("list", length(output_paths))
  names(jobs_output) <- names(output_paths)

  for (job_name in names(jobs_output)) {
  
    if (file.exists(output_paths[job_name])) {
      try({
        run_env <- readRDS(output_paths[job_name])
        if (output_full_run_env) {
          temp_output <- run_env
          jobs_output[[job_name]] <- temp_output
        } else {
          if ("job_output" %in% objects(envir = run_env)) {
            temp_output <- run_env$job_output
            jobs_output[[job_name]] <- temp_output
          } else {
            temp_output <- NULL
            # don't change list
          }
        }



      })
    }
  }

  return(jobs_output)
}