* using log directory 'd:/Rcompile/CRANpkg/local/4.5/zipangu.Rcheck' * using R version 4.5.2 (2025-10-31 ucrt) * using platform: x86_64-w64-mingw32 * R was compiled by gcc.exe (GCC) 14.3.0 GNU Fortran (GCC) 14.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 * checking installed package size ... OK * checking package directory ... OK * checking DESCRIPTION meta-information ... NOTE Missing dependency on R >= 4.1.0 because package code uses the pipe |> or function shorthand \(...) syntax added in R 4.1.0. File(s) using such syntax: 'convert-jyear-legacy.R' * 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 ... [0s] OK * checking whether the package can be unloaded cleanly ... [1s] OK * checking whether the namespace can be loaded with stated dependencies ... [0s] 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 ... [2s] 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 ... [1s] OK * checking LazyData ... OK * checking data for ASCII and uncompressed saves ... OK * checking R/sysdata.rda ... OK * checking examples ... [3s] OK * checking for unstated dependencies in 'tests' ... OK * checking tests ... [13s] 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 ─────────────────────── 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 ... [23s] OK * checking HTML version of manual ... [5s] OK * DONE Status: 1 ERROR, 1 NOTE