Running ‘testthat.R’ [6s/6s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(zipangu)
  > 
  > test_check("zipangu")
  Saving _problems/test-address-85.R
  [ 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