# NOT RUN {
clean_logical(c("Yes", "No")) # English
clean_logical(c("Oui", "Non")) # French
clean_logical(c("ya", "tidak")) # Indonesian
clean_logical(x = c("Positive", "Negative", "Unknown", "Some value"),
true = "pos", false = "neg")
gender_age <- c("male 0-50", "male 50+", "female 0-50", "female 50+")
clean_factor(gender_age, c("M", "F"))
clean_factor(gender_age, c("Male", "Female"))
clean_factor(gender_age, c("0-50", "50+"), ordered = TRUE)
clean_Date("13jul18", "ddmmmyy")
clean_Date("12 august 2010")
clean_Date("12 06 2012")
clean_Date(36526) # Excel date
clean_Date("43658")
clean_Date("14526", "Excel") # "1939-10-08"
clean_POSIXct("Created log on 2019/04/11 11:23 by user Joe")
clean_numeric("qwerty123456")
clean_numeric("Positive (0.143)")
clean_numeric("0,143")
clean_character("qwerty123456")
clean_character("Positive (0.143)")
clean_currency(c("Received $ 25", "Received $ 31.40"))
clean_currency(c("Jack sent <U+00A3> 25", "Bill sent <U+00A3> 31.40"))
clean("12 06 2012")
clean(data.frame(dates = "2013-04-02",
logicals = c("yes", "no")))
# }
Run the code above in your browser using DataLab