R/msg.R

In SandroGroth/esriOpenData: esriOpenData

#' Logging
#'
#' @param message Character, containing log message
#' @param level Character, indication log level. Options are "ERROR", "WARNING", "INFO".
#' @param tag Character. A log tag.
#'
#' @author Sandro Groth
#'
#' @keywords logging
#' @noRd

msg <- function(message, level="INFO", tag="") {
  if (level == "ERROR") {
    stop(paste0(tag, " ", message), call. = FALSE, immediate. = TRUE)
    quit("no")
  }
  if (level == "WARNING") {
    warning(paste0(tag, " ", message))
  }
  if (level == "INFO") {
    message(paste0(tag, " ", message))
  }
}