R/00-07-cat-proxies.R

In mabafaba/categorical: Representing and Manipulating categorical data in R

# vctrs proxies -----------------------------------------------------------
# define how the vector is converted before being used in many base functions such as logical operators `==`, `<` etc.

vec_proxy_equal.cat_categorical<-function(x,...){

  level<-get_level_values(x)
  if(all(purrr::map_dbl(level, length)==1)){
    return(unlist(level))
  }
  return(level)

}