# NOT RUN {
directory <- data.frame(
page = c("71", "71"),
surname = c("ABOT", "ABRCROMBIE"), forename = c("Wm.", "Alex"),
occupation = c("Wine and spirit merchant", "Baker"),
address.number = c(" -; 1820", ",,12"),
address.body = c(
"London st. ; house, Mary hill.*",
"&;Dixon st.; residence, Craigrownie, Cove.$"
),
stringsAsFactors = FALSE
)
utils_clean_address(directory, "body")
utils_clean_address(directory, "number")
# }
Run the code above in your browser using DataLab