Finds all factors in a data.table and cleans factor levels to include only underscore symbols
Examples
if (FALSE) { # \dontrun{
x <- as.data.table(iris)
levels(x$Species) <- c("setosa:iris", "versicolor$iris", "virginica iris")
dt_set_cleanfactorlevels(x)
x
} # }