R/is_tate_palette.R

In LewisAJones/london: What the Package Does (One Line, Title Case)

#' Tate palette object
#'
#' Tests for \code{tate_palette} object.
#'
#' @param x \code{vector}. A vector containing palette data.
#'
#' @return A `logical` output of the test.
#' @noRd
is_tate_palette <- function(x){
  if (class(x) == "tate_palette") {
    state <- TRUE
  } else { state <- FALSE}
  return(state)
}