R/champ.message.R

In YuanTian1991/ChAMPLite: Chip Analysis Methylation Pipeline for Illumina HumanMethylation450 and EPIC

champ.message <- function(tabs = 1, msg, type = "message") {
  output <- ""
  for (i in 1:tabs) output <- paste(output, "  ")
  output <- paste(output, msg)

  if (type == "stop") stop(output) else message(output)
}