#' @title Is scalar
#'
#' @description Tests if an object is a scalar number \cr
#' \code{is_scalar} tests if an object is a scalar \cr
#' \code{is_not_scalar} tests if an object is not a scalar \cr
#' \code{is_positive_scalar} tests if an object is a positive scalar \cr
#' \code{is_negative_scalar} tests if an object is a negative scalar
#'
#' @param x an R object
#' @seealso \code{\link{is_single_number}}
#' @name is_scalar
#' @aliases is_scalar is_not_scalar is_positive_scalar is_negative_scalar
#' @export is_scalar is_not_scalar is_positive_scalar is_negative_scalar
#' @examples
#' is_scalar(1) # TRUE
#' is_scalar(pi) # TRUE
#' is_scalar(1:5) # FALSE
#' is_scalar(matrix(runif(4), 2, 2)) # FALSE
#'
#' is_not_scalar(1:5) # TRUE
#' is_not_scalar(NULL) # TRUE
#' is_not_scalar(matrix(runif(4), 2, 2)) # TRUE
#'
#' is_positive_scalar(1.0) # TRUE
#' is_positive_scalar(0) # FALSE
#' is_positive_scalar(-10) # FALSE
#' is_positive_scalar("hoskdflksfd") # FALSE
#' is_positive_scalar(NA) # FALSE
#'
#' is_negative_scalar(-1) # TRUE
#' is_negative_scalar(0) # FALSE
#' is_negative_scalar(10) # FALSE
#' is_negative_scalar("hoskdflksfd") # FALSE
#' is_negative_scalar(NA) # FALSE
NULL
is_scalar <- function(x) {
is_single_number(x)
}
is_not_scalar <- function(x) {
!is_single_number(x)
}
is_positive_scalar <- function(x) {
is_single_positive(x)
}
is_negative_scalar <- function(x) {
is_single_negative(x)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.