R/validatingCreatingContestants.R

In NotThatKindODr/Are-You-The-One-Sim: Simulate The Probability Of MTV's Are You The One?

#' Helper Function For creatingContestants Functions
#' 
#' @export 
#' 

validateCreatingContestants = function(contestantsInput){
    errorMessage = "contestants MUST be a whole number greater than 1"
    if(!is.numeric(contestantsInput)){
        stop(errorMessage)
    }
    if(contestantsInput %% 1 != 0){
        stop(errorMessage)
    }

    if(contestantsInput < 2){
        stop(errorMessage)
    }
}