data-raw/district.R

In huhuaping/techme: Generate Research Report with Complex Data Sources

## code to prepare `district` dataset goes here

##====full district info ====
library("tidyverse")
full_name <- c("id", "name", "parent_id", "initial", "initials",
               "pinyin", "extra", "suffix", "code", "area_code", "order")

#url_csv <- "https://gist.githubusercontent.com/vvtommy/a1bee4cd9e65e6d57b84f35f4e4dd5e1/raw/a0aa736eeec30134ca2a2367c55c115be23d5dd1/%25E4%25B8%25AD%25E5%259B%25BD%25E5%258C%25BA%25E5%258F%25B7.csv"
url_csv <- "https://raw.githubusercontent.com/eduosi/district/master/district-full.csv"
district <- readr::read_delim(url(url_csv), col_types = cols(.default = "c"),
                              col_names = F, delim = "\t") %>%
  as_tibble() %>%
  rename_all(., ~all_of(full_name))

# check tel code
check <- district %>%
  filter(is.na(area_code),
         str_length(code)==6)

# work need handle
name_chn <- c("南京","洛阳","信阳")
area_tel <- c("020","0376", "0379")

district_added <- district %>%
  mutate(area_code = mgsub::mgsub(name, name_chn, area_tel))


# write out
BasicDistrict <- district_added
usethis::use_data(BasicDistrict, overwrite = TRUE)

# write document
require(devtools)
load_all()
use_r("BasicDistrict")
document_dt(BasicDistrict)
document()




##====telephone area code info ====

data("BasicDistrict")
data("BasicProvince")

# get the province full code
dt_code_pro <- BasicDistrict %>%
  select(name, code) %>%
  filter(name %in% BasicProvince$province) %>%
  rename(district = "name",code_province = "code")

# get area code and match province
cols_list <- c("name", "code", "area_code")
dt_district <- BasicDistrict %>%
  select(all_of(cols_list)) %>%
  filter(!is.na(area_code)) %>%
  distinct(area_code, .keep_all = T) %>%
  # string padding
  mutate(code_province = str_pad(str_extract(as.character(code), "\\d{2}"), side = "right", width = 6, pad = "0")) %>%
  left_join(., dt_code_pro, by = "code_province") %>%
  filter(!is.na(district),
         str_length(code)==6)

# check

unique(dt_district$district)

# write out
BasicTelcode <- dt_district
usethis::use_data(BasicTelcode, overwrite = TRUE)

# write document
require(devtools)
load_all()
use_r("BasicTelcode")
document_dt(BasicTelcode)
document()