一个取代`cat`的函数

msg <- function(..., startup = FALSE) {
  if (startup) {
    if (!isTRUE(getOption("dword.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)
  
}

msg(
    cli::rule(
      center = paste0(crayon::bold("Number "), crayon::red(length(sentList)), " --- ",
                      crayon::bold("Time "), crayon::green(round(elapsed_time[3],2), "s"))
    ),
    startup = TRUE
  )

tidyverse.png

dword.png