# NOT RUN {
directory <- data.frame(
page = c("71", "71"),
surname = c("ABOT", "ABRCROMBIE"), forename = c("Wm.", "Alex"),
occupation = c("Wine and spirit merchant <U+2014> See Advertisement in Appendix.", "Baker"),
address.trade.number = c("18, 20", "12"),
address.house.number = c("136", "265"),
address.trade.body = c("London Street.", "Dixon Street."),
address.house.body = c("Queen Street.", "Argyle Street"),
stringsAsFactors = FALSE
)
utils_clear_irrelevants(directory, globals_regex_irrelevants, ignore_case = TRUE)
# }
Run the code above in your browser using DataLab