R/input.number.R

In yanxianUCSB/yxhelper: Yx's Personal R packages

#' readin a number from user
#'
#' @param prompt
#' @param default
#' @param ...
#'
#' @return
#' @export
#'
#' @examples
input.number <-
  function(prompt = 'Please Enter a Number >> ', default = NA, ...) {
    fmt = prompt
    while (T) {
      input.anything <- readline(prompt = sprintf(fmt, ...))
      if (input.anything == '')
        return(default)
      if (!is.na(as.numeric(input.anything)))
        return (as.numeric(input.anything))
      tryagain()
    }
  }