R/drop_unused_levels.R

drop_unused_levels <- function (data) 
as.data.frame(lapply(data, function(x) if (is.factor(x)) factor(x) else x))
John-R-Wallace-NOAA/JRWToolBox documentation built on May 23, 2024, 12:49 a.m.