Finds all factors in a data.table and cleans factor levels to include only underscore symbols
Examples
library(data.table)
x <- as.data.table(iris)
levels(x[["Species"]]) <- c("setosa:iris", "versicolor$iris", "virginica iris")
levels(x[["Species"]])
#> [1] "setosa:iris" "versicolor$iris" "virginica iris"
dt_set_cleanfactorlevels(x)
levels(x[["Species"]])
#> [1] "setosa_iris" "versicolor_iris" "virginica_iris"