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 Sept. 23, 2024, 1:16 a.m.