# NOT RUN {
f1 <- sprintf("Char %s", sample(LETTERS[1:5], size = 10, replace = TRUE))
f2 <- as.factor(sprintf("F / %s", sample(letters[1:5], size = 10, replace = TRUE)))
f3 <- sample(1:5, size = 10, replace = TRUE)
x <- data.frame(f1, f2, f3, stringsAsFactors = FALSE)
clean_values(f1)
clean_values(f2)
clean_values(x)
# }
Run the code above in your browser using DataLab