R/is.R

In Gootjes/likerrt: Convenient and tidy compliant functions for Likert scale data (psychological surveys).

is_haven_labelled <- function(x) {
  inherits_any(x, "haven_labelled")
}

#' @importFrom rlang inherits_any
is_likerrt <- function(x) {
  inherits_any(x, "likerrt_likert") & check_labels_validity(get_labels(x))
}

check_labels_validity <- function(labels) {
  length(labels) > 1 & length(names(labels)) == length(labels)
}