R/utils.R

In pachamaltese/constitucionabierta: Base de Datos de Facil Acceso del Encuentros Locales Autoconcados en el marco del proceso de consulta de una Nueva Constitucion

msg <- function(..., startup = FALSE) {
  if (startup) {
    if (!isTRUE(getOption("yotover.quiet"))) {
      packageStartupMessage(text_col(...))
    }
  } else {
    message(text_col(...))
  }
}

text_col <- function(x) {
  # If RStudio not available, messages already printed in black
  if (!rstudioapi::isAvailable()) {
    return(x)
  }
  
  if (!rstudioapi::hasFun("getThemeInfo")) {
    return(x)
  }
  
  theme <- rstudioapi::getThemeInfo()
  
  if (isTRUE(theme$dark)) crayon::white(x) else crayon::black(x)
}