R/style.R

Defines functions cat_line

#### INTERNAL FUNCTION(S)

#shamelessly stollen from: https://raw.githubusercontent.com/r-lib/usethis/82f3e2ec17113bd0126bb9c47dd322c143377411/R/style.R 

# bullet <- function(lines, bullet) {
#   lines <- paste0(bullet, " ", lines)
#   cat_line(lines)
# }
# 
# failed <- function() {
#   crayon::red(clisymbols::symbol$cross)
# }
# 
# warned <- function() {
#   crayon::yellow(clisymbols::symbol$square_small_filled)
# }
# 
# passed <- function() {
#   crayon::green(clisymbols::symbol$tick)
# }
# 
# blue_arrow <- function() {
#   crayon::cyan(clisymbols::symbol$arrow_right)
# }

cat_line <- function(...) {
  cat(..., "\n", sep = "")
}
txm676/mmSAR2 documentation built on Nov. 21, 2024, 5:03 a.m.