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/JRWToolBox documentation built on April 11, 2025, 7:49 p.m.