R/cron_ls.R

In cronR: Schedule R Scripts and Processes with the 'cron' Job Scheduler

#' List the contents of a crontab
#' 
#' We only list the contents that are handeld by \code{cronR}.
#' 
#' @param id Return cron jobs with a certain \code{id}.
#' @param tags Return cron jobs with a certain (set of) tags.
#' @param user The user's crontab to display
#' @export
#' @examples 
#' cron_ls()
cron_ls <- function(id, tags, user="") {
  
  crontab <- try(parse_crontab(user=user), silent=TRUE)
  if (inherits(crontab, "try-error")) {
    no_crontab_error(user=user)
    return (invisible(NULL))
  }
  
  if (missing(id) && missing(tags)) {
    output <- deparse_crontab(crontab)
    message(output)
    return (invisible(output))
  } else {
    if (missing(id)) id <- "__MISSING__"
    if (missing(tags)) tags <- "__MISSING__"
    keep <- crontab$cronR[ sapply(crontab$cronR, function(x) {
      (x$id %in% id) | (any(x$tags %in% tags))
    })]
    if (!length(keep)) {
      message("No cron jobs found.")
      return (invisible(NULL))
    }
    output <- deparse_crontab(list(cronR=keep, other=NULL))
    message(output)
    return (invisible(keep))
  }
}