R/ok.R

In nicohuttmann/htmnanalysis: Analysis of Omics Data

#' Ok function to ask for yes or no
#'
#' @param question Yes/no question
#'
#' @return
#' @export
#'
#'
ok <- function(question = "Ok?") {

  ok <- ""

  while(!ok %in% c("ja", "nein")) {

    ok <- readline(paste0(question, " (ja/nein) "))

  }

  if(ok == "ja") {
    return <- TRUE
  }

  else if(ok == "nein") {
    return <- FALSE
  }

  return
}