#' 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)
}
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.