R/boolean.R

In michelecianfriglia/SampleSizeWass: Wasserstein-based Sample Size Calculations

#' Boolean Check
#'
#' Checks if an object is a Boolean.
#'
#' @param x An \code{R} object.
#'
#' @return A logical value.
#'
#' @note This is an internal function.
#'
#' @author Michele Cianfriglia \email{michele.cianfriglia@@uniroma1.it}
#'
#' @keywords internal

boolean <- function(x) {

  is.logical(x) && length(x) == 1 && !is.na(x)

}