R/getNumber.R

In nicohuttmann/htmnanalysis: Analysis of Omics Data

#' Let's user define a number
#'
#' @param question
#'
#' @return number
#' @export
#'
#'
getNumber <- function(question) {

  number <- ""

  while(is.na(as.numeric(number))) {

    number <- readline(question)

  }

  as.numeric(number)

}