R/is_true_or_false.R

In andrewjpfeiffer/rutilities: This R package contains utilities that I like to use

#' Is true or false
#'
#' Throws an error if the argument is not TRUE or FALSE
#'
#' @param arg_in argument
#' @author Andrew Pfeiffer <andrew.j.pfeiffer@@gmail.com>
#' @export
#' @note 22 June 2017

is_true_or_false <- function(arg_in){
    if (!identical(arg_in, TRUE) & !identical(arg_in, FALSE))
        stop("Argument must be TRUE or FALSE")
}