R/writeCronjob.R

In ebailey78/crontabR: Easy Script Scheduling in R for Linux

writeCronjob <- function(name, desc = NULL, env.vars, scheduled_time, bashrc, logLevel, textLevel) {

  name <- formatNames(name)

  tag <- makeTag(name)

  cronjob <- c(tag)

  if(!is.null(desc)) {
    cronjob <- c(cronjob, paste0("#|#", desc))
  }

  cronjob <- c(cronjob, paste0("#|#logLevel: ", logLevel))
  cronjob <- c(cronjob, paste0("#|#textLevel: ", textLevel))

  if(!missing(env.vars)) {
    if(length(env.vars) > 0) {
      for(i in seq_along(env.vars)) {

        n <- names(env.vars)[i]
        v <- env.vars[i]

        cronjob <- c(cronjob, paste0(n, "=", v))

      }
    }
  }

  cmd <- paste0("Rscript ", script_directory, name, ".R")

  if(bashrc) {
    cmd <- paste("source $HOME/.bashrc;", cmd)
  }

  cronjob <- c(cronjob, paste0(scheduled_time, "\t", cmd))

  cronjob <- c(cronjob, tag)

  return(cronjob)

}