R/utils.R

In EcoDynIZW/d6: Simplify Workflows of D6 Research Projects

#' @importFrom cli cat_bullet
#' @importFrom utils menu
cat_green_tick <- function(...){
  cli::cat_bullet(
    ..., 
    bullet = "tick", 
    bullet_col = "green"
  )
}

cat_red_bullet <- function(...){
  cli::cat_bullet(
    ..., 
    bullet = "bullet",
    bullet_col = "red"
  )
}

yesno <- function (...) 
{
  cat(paste0(..., collapse = ""))
  menu(c("Yes", "No")) == 1
}