- using R version 4.4.3 (2025-02-28 ucrt)
- using platform: x86_64-w64-mingw32
- R was compiled by
gcc.exe (GCC) 13.3.0
GNU Fortran (GCC) 13.3.0
- running under: Windows Server 2022 x64 (build 20348)
- using session charset: UTF-8
- checking for file 'zipangu/DESCRIPTION' ... OK
- this is package 'zipangu' version '0.3.3'
- package encoding: UTF-8
- checking package namespace information ... OK
- checking package dependencies ... OK
- checking if this is a source package ... OK
- checking if there is a namespace ... OK
- checking for hidden files and directories ... OK
- checking for portable file names ... OK
- checking whether package 'zipangu' can be installed ... OK
See the install log for details.
- checking installed package size ... OK
- checking package directory ... OK
- checking DESCRIPTION meta-information ... OK
- checking top-level files ... OK
- checking for left-over files ... OK
- checking index information ... OK
- checking package subdirectories ... OK
- checking code files for non-ASCII characters ... OK
- checking R files for syntax errors ... OK
- checking whether the package can be loaded ... [1s] OK
- checking whether the package can be loaded with stated dependencies ... [1s] OK
- checking whether the package can be unloaded cleanly ... [1s] OK
- checking whether the namespace can be loaded with stated dependencies ... [1s] OK
- checking whether the namespace can be unloaded cleanly ... [1s] OK
- checking loading without being on the library search path ... [1s] OK
- checking use of S3 registration ... OK
- checking dependencies in R code ... OK
- checking S3 generic/method consistency ... OK
- checking replacement functions ... OK
- checking foreign function calls ... OK
- checking R code for possible problems ... [4s] OK
- checking Rd files ... [1s] OK
- checking Rd metadata ... OK
- checking Rd cross-references ... OK
- checking for missing documentation entries ... OK
- checking for code/documentation mismatches ... OK
- checking Rd \usage sections ... OK
- checking Rd contents ... OK
- checking for unstated dependencies in examples ... OK
- checking contents of 'data' directory ... OK
- checking data for non-ASCII characters ... [0s] OK
- checking LazyData ... OK
- checking data for ASCII and uncompressed saves ... OK
- checking R/sysdata.rda ... OK
- checking examples ... [4s] OK
- checking for unstated dependencies in 'tests' ... OK
- checking tests ... [14s] ERROR
Running 'testthat.R' [13s]
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
- checking PDF version of manual ... [18s] OK
- checking HTML version of manual ... [4s] OK
- DONE
Status: 1 ERROR