R/is.vlabeled.R

In eldafani/intsvy: International Assessment Data Manager

Defines functions is.vlabeled

Documented in is.vlabeled

is.vlabeled <-
function(x){
  
  l <- memisc::labels(x)
  
  if (is.null(l)) {
    vl <- 999999
  } else {
  vl <- l@values
  }
  x %in% vl
}