Running 'testthat.R' [11s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(zipangu)
  > 
  > test_check("zipangu")
  [ FAIL 1 | WARN 0 | SKIP 2 | PASS 143 ]
  
  ══ Skipped tests (2) ═══════════════════════════════════════════════════════════
  • On CRAN (2): 'test-jholiday.R:75:3', 'test-zipcode.R:90:3'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-address.R:82:3'): address separate works ───────────────────────
  <purrr_error_indexed/rlang_error/error/condition>
  Error in `purrr::map(str, function(str) {
      split_pref <- stringr::str_split(str, stringr::regex("(?<=(東京都|道|府|県))"), 
          n = 2, simplify = TRUE) %>% stringr::str_subset(".{1}", 
          negate = FALSE)
      if (length(split_pref) == 1L) {
          if (is_prefecture(str)) {
              split_pref <- c(split_pref, NA_character_)
          }
          else {
              if (stringr::str_detect(split_pref, city_name_regex)) {
                  split_pref <- c(NA_character_, split_pref)
              }
              else {
                  split_pref <- c(NA_character_, NA_character_)
              }
          }
      }
      res <- list(prefecture = split_pref[1])
      if (length(split_pref[2] %>% stringr::str_split(city_name_regex, 
          n = 2, simplify = TRUE) %>% stringr::str_subset(".{1}", 
          negate = FALSE)) == 0L) {
          res <- res %>% purrr::list_merge(city = split_pref[2] %>% 
              dplyr::if_else(is_address_block(.), stringr::str_remove(., 
                  "((土地区画|街区).+)") %>% stringr::str_remove("土地区画|街区"), 
                  .) %>% stringr::str_replace("(.市)(.+町.+)", 
              "\\1") %>% stringr::str_replace(city_name_regex, 
              replacement = "\\1"))
      }
      else {
          res <- res %>% purrr::list_merge(city = split_pref[2] %>% 
              dplyr::if_else(is_address_block(.), stringr::str_remove(., 
                  "((土地区画|街区).+)") %>% stringr::str_remove("土地区画|街区"), 
                  .) %>% stringr::str_replace(paste0(city_name_regex, 
              "(.+)"), replacement = "\\1"))
      }
      res <- res %>% purrr::list_merge(street = split_pref[2] %>% 
          stringr::str_remove(res %>% purrr::pluck("city")))
      res %>% purrr::map(~dplyr::if_else(.x == "", NA_character_, 
          .x))
  })`: ℹ In index: 1.
  Caused by error in `str_replace()`:
  ! `pattern` can not contain NAs.
  
  [ FAIL 1 | WARN 0 | SKIP 2 | PASS 143 ]
  Error: Test failures
  Execution halted