R/zzz.R

In VEZY/sticRs: A Package to Set, Manage and Analyze STICS Simulations https://vezy.github.io/sticRs/

text_col <- function(x) {
  # This function is adapted from: https://github.com/tidyverse/tidyverse
  # 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)

}

.onAttach <- function(libname, pkgname) {
  packageStartupMessage(
    text_col(paste("Learn sticRs at:",
                    crayon::blue$underline$bold("https://vezy.github.io/sticRs")))
  )
}