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/R-ToolBox documentation built on April 22, 2024, 8:29 p.m.