R/input.string.R

In yanxianUCSB/yxhelper: Yx's Personal R packages

#' readin string from user
#'
#' @param fmt with sprintf
#' @param default
#' @param no.input whether no input is tolerated
#' @param ...
#'
#' @return
#' @export
#'
#' @examples
input.string <-
  function(fmt = 'Please Enter a String >> ', default = '', no.input = T, ...) {
    while (T) {
      input.anything <- readline0(fmt, ...)
      if (no.input & input.anything == '')
        return(default)
      if (!no.input & input.anything == '')
        tryagain()
      return(input.anything)
    }
  }