data-raw/setup_data.R

In tweed1e/fakedata: Make fakedata so I can code at home

# company dictionary of replacement words
# need to add french ones, enterprise -> ent.
library(magrittr)
br <- readr::read_csv('data-raw/corporations.csv')

f <- function(text) {
  t <- stringr::str_match(text,
                          pattern = "(.*([a-z]|\\b[NEWS]|\\bNW|\\bNE|\\bSE|\\bSW))(\\b[A-Z\\s]+,)(.*)([A-Z][0-9][A-Z]\\s[0-9][A-Z][0-9])") %>%
    trimws()
  list(address = t[,2], city = t[,4], prov = t[,5], postal_code = t[,6])
}

br <- dplyr::bind_cols(br, br$locationAddress %>% f() %>% tibble::as.tibble()) %>%
  mutate(city = gsub(pattern = ',', replacement = '', x = city))
devtools::use_data(br, overwrite = TRUE)