subset_kanto_citycode.R

subset_kanto_citycode <- function(data, city_code, .honsyu = TRUE) {
  d <- 
    data %>% 
    # 関東 (一都六県) %>% 
    dplyr::filter(stringr::str_detect(!!rlang::enquo(city_code),
                                    paste0("^(", 
                                           paste(stringr::str_pad(seq(8, 14), width = "2", pad = "0"), collapse = "|"),
                                           ")")))
  if (rlang::is_true(.honsyu)) {
    d <- 
      d %>% 
      # 本州のみ
      dplyr::filter(stringr::str_detect(!!rlang::enquo(city_code), "^13", negate = TRUE) |
                      !!rlang::enquo(city_code) < 13361)
  }
  d
}