R/ask_for_permission.R

In pacta.multi.loanbook: Run 'PACTA' on Multiple Loan Books Easily

ask_for_permission <- function(msg) {
  if (!yesno::yesno(cli::cli_text(msg, .envir = rlang::caller_env()))) {
    cli::cli_abort(
      message = "The process cannot continue because you answered \"no\"",
      call = rlang::caller_env()
    )
  }
  
  invisible(TRUE)
}