R/FSA_message.R

In IDSL.FSA: Fragmentation Spectra Analysis (FSA)

Defines functions FSA_message

Documented in FSA_message

FSA_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.FSA package in your browser