R/is.R

In arendsee/pied: functions for compositional, bifurcating pipelines

#' is.* functions for checking classes
#'
#' @param x anything
#' @return logical
#' @name is_function
NULL

#' @rdname is_function
#' @export
is.hnode <- function(x){
  'hnode' %in% class(x)
}

#' @rdname is_function
#' @export
is.unary <- function(x){
  'unary' %in% class(x)
}

#' @rdname is_function
#' @export
is.typed <- function(x){
  'typed' %in% class(x)
}

#' @rdname is_function
#' @export
is.validated <- function(x){
  'validated' %in% class(x)
}

#' @rdname is_function
#' @export
is.effectual <- function(x){
  'effectual' %in% class(x)
}