R/utils.R

Defines functions initial_styler print_styler

initial_styler <- function(x) cat(crayon::red(crayon::green(clisymbols::symbol$tick)), x)

print_styler <- function(x, files) {
  if (!missing(files)) x <- paste0(x, crayon::blue(paste0(paste0(files, .Platform$file.sep))), "\n")
  for (i in x) initial_styler(i)
}
cimentadaj/dsproj documentation built on May 5, 2019, 3:45 a.m.