R/inputCond.R

In syspremed/polyClustR: polyClustR: A pipeline to reconcile clustering solutions

  #' Cutoff chooser
  #'
  #' @description Takes user input and tests it against a given condition.
  #' 
  #' @param init      Numeric. The initial value of the variable
  #' @param prompt    Character string. Printed to prompt the user for input
  #' @param variable  Character string. The name of the variable being tested in the condition
  #' @param condition Character string. The logical test of the variable. If true, the user input is returned.
  #' 
  #' @details Not intended for use outside of a call to \code{polyCluster}.
  #' @return A user-entered value that meets the specified criteria.
#'

inputCond <- function(init = 0, prompt = "Please enter a value for x: ", variable = "x", condition = "x < 3"){
  
  x <- variable
  assign(x, init)
  while (x == init){
    
    x <- as.numeric(readline(paste(prompt)))
    if (eval(parse(text = condition)) == F){
      cat(paste("Please choose another value such that ", condition, sep = ""))
      x <- init
    }
    else {
      return(x)
    }
  }
}