R/support.R

Defines functions unique_not_na

unique_not_na <- function(x){
    if(all(is.na(x))) return(as.vector(NA, mode = typeof(x)))
    unique(stats::na.omit(x)) # Unique, non-NA
}
tmk-nz/mkm documentation built on Feb. 2, 2021, 11:45 a.m.