R/shortcuts.R

In IntegralEnvision/integral: Integral Consulting Public Package

#' Open cheatsheet
#' @description
#' `r lifecycle::badge('stable')`
#' Shortcut to open a cheatsheet
#' @param sheet Bare, unquoted name of the cheat sheet, if known. Partial matches work as well. If no argument is provided a list is presented.
#' @export
cheat <- function(sheet) {

  files <- dir(system.file("extdata/cheatsheets", package = "integral")) %>%
    tools::file_path_sans_ext()

  if (!methods::hasArg(sheet)) { # No sheet specified; full listing
    cli::cli_alert_info("Please select cheatsheet or enter `0` to exit:")
    sheet <- utils::select.list(choices = files)
  } else {
    sheet <- rlang::ensym(sheet) %>% rlang::as_string()
    if (any(stringr::str_detect(files, sheet))) { # Matches
      matches <- files[stringr::str_detect(files, sheet)]
      if (length(matches) == 1) {
      sheet <- matches
    } else {
      cli::cli_alert_info("Multiple matching cheatsheets, select one or enter `0` to exit:")
      sheet <- utils::select.list(choices = matches)
    }
  } else { #/Matches
    cli::cli_alert_warning("No matching cheatsheets. Select from the list below or enter `0` to exit:")
    sheet <- utils::select.list(choices = files)
  }}

  if(sheet == "") return(cli::cli_alert_info("User exited."))

  sheet <- paste0(sheet, ".pdf")

  fpath <- system.file("extdata/cheatsheets", sheet, package = "integral")

  open_file(fpath)
}