R/is_personfiles.R

In loelschlaeger/personfiles: Notes About Persons In Your Life

#' Check if the class of the input is \code{personfiles}.
#' @description
#' This function checks if \code{object} is of class \code{personfiles}.
#' @param object
#' Any R object.
#' @return
#' A boolean, the answer to the question if \code{object} is of class
#' \code{personfiles}.
#' @examples
#' ### A valid object.
#' folder <- list()
#' class(folder) <- "personfiles"
#' is_personfiles(folder)
#' ### An invalid object.
#' is_personfiles(list())

is_personfiles <- function(object){
  return(inherits(object,"personfiles"))
}