R/internals.R

Defines functions yes_no_input is.yes

Documented in yes_no_input

#' Internal function to parse user 'yes/no' input
#'
#' @return User input if matching one of \code{c('y','yes','Yes','n','no','No')}
#'
#' @examples
yes_no_input <- function(message_text = NULL) {
  repeat{
    if(is.not.null(message_text)) message(message_text)
    message(paste0('Please enter (y)es/(n)o:'))
    input <- readline()
    if(input %in% c('y','yes','Yes','n','no','No')) return(input)
  }}

is.yes <- function(yn) { yn %in% c('y','yes','Yes') }
m-dz/mdmisc documentation built on May 22, 2019, 12:23 p.m.