dfrm <- data.frame(cat1 = c(rep(1:5,10),-999),
cat2 = c(rep(letters[1:5],10),-999))
check_cat(dfrm$cat1)
check_cat(dfrm$cat2, detail=1)
check_cat(dfrm$cat1,detail=2,threshold = c(NA,0.1))
Run the code above in your browser using DataLab