R/IPA_message.R

In IDSL.IPA: Intrinsic Peak Analysis (IPA) for HRMS Data

Defines functions IPA_message

Documented in IPA_message

IPA_message <- function(messageQuote, failedMessage = TRUE) {
  ##
  if (failedMessage) {
    col <- 91 ## Red color message
  } else {
    col <- 92 ## Green color message
  }
  ##
  message(paste0("\033[0;", col, "m", messageQuote, "\033[0m"))
}

Try the IDSL.IPA package in your browser