R/zzz.R

In yl17124/legisTaiwan: An Interface to Access Taiwan Legislative API in R

#' Package startup message
#' @keywords internal
.onAttach <- function(...) {
  # ANSI color codes
  dark_green <- "\033[38;5;22m"  # Deep Green color
  red     <- "\033[31m"
  orange  <- "\033[38;5;214m"
  yellow  <- "\033[33m"
  green   <- "\033[32m"
  blue    <- "\033[34m"
  indigo  <- "\033[38;5;54m"
  violet  <- "\033[35m"
  reset   <- "\033[0m"

  # Coloring Taiwan
  rainbow_taiwan <- paste0(
    red, "T",
    orange, "a",
    yellow, "i",
    green, "w",
    blue, "a",
    indigo, "n",
    reset
  )

  # Creating the messages
  version <- utils::packageVersion("legisTaiwan")
  base_message1 <- paste0(dark_green, "legis", reset, rainbow_taiwan, " v", version)
  message2 <- "## An R package connecting to the Taiwan Legislative API. ##"

  # Calculate padding to align message1 with message2
  message2_width <- nchar(message2)
  base_message1_width <- nchar(base_message1) - (6 * 9)  # Subtract length of color codes
  padding_needed <- message2_width - base_message1_width - 1

  # Create aligned message1
  message1 <- paste0("## ", base_message1, paste(rep(" ", padding_needed), collapse = ""), " ##")

  # Display messages if not disabled
  if (!isFALSE(getOption("legisTaiwan.startup.message", TRUE))) {
    packageStartupMessage(message1)
    packageStartupMessage(message2)
  }
}