CRAN Package Check Results for Package jpndistrict

Last updated on 2020-11-28 02:48:59 CET.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 0.3.7 8.63 252.57 261.20 OK
r-devel-linux-x86_64-debian-gcc 0.3.7 7.00 56.59 63.59 ERROR
r-devel-linux-x86_64-fedora-clang 0.3.8 166.60 NOTE
r-devel-linux-x86_64-fedora-gcc 0.3.8 158.11 NOTE
r-devel-windows-ix86+x86_64 0.3.7 22.00 254.00 276.00 OK
r-patched-linux-x86_64 0.3.7 9.09 252.05 261.14 OK
r-patched-solaris-x86 0.3.8 212.10 ERROR
r-release-linux-x86_64 0.3.7 8.79 70.24 79.03 ERROR
r-release-macos-x86_64 0.3.7 NOTE
r-release-windows-ix86+x86_64 0.3.7 19.00 352.00 371.00 OK
r-oldrel-macos-x86_64 0.3.7 NOTE
r-oldrel-windows-ix86+x86_64 0.3.7 13.00 303.00 316.00 OK

Check Details

Version: 0.3.7
Check: tests
Result: ERROR
     Running ‘testthat.R’ [6s/11s]
    Running the tests in ‘tests/testthat.R’ failed.
    Complete output:
     > library(testthat)
     > library(jpndistrict)
     This package provide map data is based on the Digital Map 25000 (Map
     Image) published by Geospatial Information Authority of Japan (Approval
     No.603FY2017 information usage <https://www.gsi.go.jp>)
     >
     > test_check("jpndistrict")
     ── Warning (test-export.R:3:1): (code run outside of `test_that()`) ────────────
     Outer names are only allowed for unnamed scalar atomic inputs
    
     ── ERROR (test-export.R:3:1): (code run outside of `test_that()`) ──────────────
     Error: Can't splice S3 objects
     Backtrace:
     █
     1. ├─jpndistrict::mesh_district(jis_code = "33101") test-export.R:3:0
     2. │ └─`%>%`(...)
     3. ├─jpndistrict:::mesh_intersect(., sf_admins)
     4. │ └─tibble::tibble(...)
     5. │ └─tibble:::tibble_quos(xs[!is.null], .rows, .name_repair)
     6. │ └─rlang::eval_tidy(xs[[j]], mask)
     7. ├─base::suppressMessages(...)
     8. │ └─base::withCallingHandlers(...)
     9. ├─base::rowSums(...)
     10. │ └─base::is.data.frame(x)
     11. ├─sf::st_intersects(...)
     12. ├─jpndistrict:::mesh_intersect_filter(.)
     13. │ └─`%>%`(...)
     14. ├─sf::st_sf(., crs = 4326, stringsAsFactors = FALSE)
     15. ├─dplyr::mutate(., geometry = purrr::pmap(., ~jpmesh:::mesh_to_poly(...)))
     16. ├─dplyr::select(., meshcode, tidyselect::everything())
     17. ├─tidyr::unnest_wider(., col = out)
     18. │ ├─tidyselect::vars_pull(tbl_vars(data), !!enquo(col))
     19. │ └─dplyr::tbl_vars(data)
     20. │ ├─dplyr:::new_sel_vars(tbl_vars_dispatch(x), group_vars(x))
     21. │ │ └─base::structure(...)
     22. │ └─dplyr:::tbl_vars_dispatch(x)
     23. ├─dplyr::mutate(., out = purrr::map(meshcode, ~jpmesh::mesh_to_coords(.x)))
     24. ├─tibble::enframe(., name = NULL, value = "meshcode")
     25. ├─base::unique(.)
     26. ├─rlang::flatten_chr(.)
     27. ├─purrr::map(., jpmesh::fine_separate)
     28. ├─dplyr::pull(., meshcode)
     29. ├─jpndistrict:::mesh_intersect(., sf_admins)
     30. │ └─tibble::tibble(...)
     31. │ └─tibble:::tibble_quos(xs[!is.null], .rows, .name_repair)
     32. │ └─rlang::eval_tidy(xs[[j]], mask)
     33. ├─base::suppressMessages(...)
     34. │ └─base::withCallingHandlers(...)
     35. ├─base::rowSums(...)
     36. │ └─base::is.data.frame(x)
     37. ├─sf::st_intersects(...)
     38. ├─jpndistrict:::mesh_intersect_filter(.)
     39. │ └─`%>%`(...)
     40. ├─sf::st_sf(., crs = 4326, stringsAsFactors = FALSE)
     41. ├─dplyr::mutate(., geometry = purrr::pmap(., ~jpmesh:::mesh_to_poly(...)))
     42. ├─dplyr::select(., meshcode, tidyselect::everything())
     43. ├─tidyr::unnest_wider(., col = out)
     44. │ ├─tidyselect::vars_pull(tbl_vars(data), !!enquo(col))
     45. │ └─dplyr::tbl_vars(data)
     46. │ ├─dplyr:::new_sel_vars(tbl_vars_dispatch(x), group_vars(x))
     47. │ │ └─base::structure(...)
     48. │ └─dplyr:::tbl_vars_dispatch(x)
     49. ├─dplyr::mutate(., out = purrr::map(meshcode, ~jpmesh::mesh_to_coords(.x)))
     50. ├─tibble::enframe(., name = NULL, value = "meshcode")
     51. ├─base::unique(.)
     52. └─rlang::flatten_chr(.)
    
     ── ERROR (test-find_city.R:5:3): prefecture ────────────────────────────────────
     Error: Problem with `filter()` input `..1`.
     ✖ Can't combine `..1` <character> and `..2` <meshcode>.
     ℹ Input `..1` is `meshcode == jpmesh::coords_to_mesh(longitude, latitude, mesh_size = 80)`.
     Backtrace:
     █
     1. ├─jpndistrict::find_pref(longitude = 130.4412895, latitude = 30.2984335) test-find_city.R:5:2
     2. │ └─jpndistrict::find_city(longitude, latitude, ...)
     3. │ └─jpndistrict:::which_pol_min(longitude, latitude, ...)
     4. │ ├─find_prefs(longitude = longitude, latitude = latitude) %>% dplyr::pull(pref_code)
     5. │ └─jpndistrict::find_prefs(longitude = longitude, latitude = latitude)
     6. │ └─`%>%`(...)
     7. ├─dplyr::pull(., pref_code)
     8. ├─tibble::as_tibble(.)
     9. ├─purrr::set_names(...)
     10. ├─dplyr::inner_join(., jpnprefs, by = c(prefcode = "jis_code"))
     11. ├─dplyr::filter(...)
     12. ├─dplyr:::filter.data.frame(...)
     13. │ └─dplyr:::filter_rows(.data, ...)
     14. │ ├─base::withCallingHandlers(...)
     15. │ └─mask$eval_all_filter(dots, env_filter)
     16. ├─vctrs:::`==.vctrs_vctr`(...)
     17. │ └─vctrs::vec_equal(e1, e2)
     18. │ └─vctrs:::vec_cast_common_params(!!!args, .to = .ptype, .df_fallback = DF_FALLBACK_quiet)
     19. │ └─vctrs:::vec_cast_common_opts(..., .to = .to, .opts = opts)
     20. │ └─(function () ...
     21. │ └─vctrs::vec_default_ptype2(...)
     22. │ └─vctrs::stop_incompatible_type(...)
     23. │ └─vctrs:::stop_incompatible(...)
     24. │ └─vctrs:::stop_vctrs(...)
     25. │ └─rlang::abort(message, class = c(class, "vctrs_error"), ...)
     26. │ └─rlang:::signal_abort(cnd)
     27. │ └─base::signalCondition(cnd)
     28. └─(function (e) ...
    
     ── ERROR (test-find_city.R:37:3): Failed ───────────────────────────────────────
     Error: Problem with `filter()` input `..1`.
     ✖ Can't combine `..1` <character> and `..2` <meshcode>.
     ℹ Input `..1` is `meshcode == jpmesh::coords_to_mesh(longitude, latitude, mesh_size = 80)`.
     Backtrace:
     █
     1. ├─testthat::expect_message(...) test-find_city.R:37:2
     2. │ └─testthat:::quasi_capture(enquo(object), label, capture_messages)
     3. │ ├─testthat:::.capture(...)
     4. │ │ └─base::withCallingHandlers(...)
     5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
     6. ├─jpndistrict::find_pref(125.246875, 24.7145833333)
     7. │ └─jpndistrict::find_city(longitude, latitude, ...)
     8. │ └─jpndistrict:::which_pol_min(longitude, latitude, ...)
     9. │ ├─find_prefs(longitude = longitude, latitude = latitude) %>% dplyr::pull(pref_code)
     10. │ └─jpndistrict::find_prefs(longitude = longitude, latitude = latitude)
     11. │ └─`%>%`(...)
     12. ├─dplyr::pull(., pref_code)
     13. ├─tibble::as_tibble(.)
     14. ├─purrr::set_names(...)
     15. ├─dplyr::inner_join(., jpnprefs, by = c(prefcode = "jis_code"))
     16. ├─dplyr::filter(...)
     17. ├─dplyr:::filter.data.frame(...)
     18. │ └─dplyr:::filter_rows(.data, ...)
     19. │ ├─base::withCallingHandlers(...)
     20. │ └─mask$eval_all_filter(dots, env_filter)
     21. ├─vctrs:::`==.vctrs_vctr`(...)
     22. │ └─vctrs::vec_equal(e1, e2)
     23. │ └─vctrs:::vec_cast_common_params(!!!args, .to = .ptype, .df_fallback = DF_FALLBACK_quiet)
     24. │ └─vctrs:::vec_cast_common_opts(..., .to = .to, .opts = opts)
     25. │ └─(function () ...
     26. │ └─vctrs::vec_default_ptype2(...)
     27. │ └─vctrs::stop_incompatible_type(...)
     28. │ └─vctrs:::stop_incompatible(...)
     29. │ └─vctrs:::stop_vctrs(...)
     30. │ └─rlang::abort(message, class = c(class, "vctrs_error"), ...)
     31. │ └─rlang:::signal_abort(cnd)
     32. │ └─base::signalCondition(cnd)
     33. └─(function (e) ...
    
     ── ERROR (test-find_city.R:52:3): city ─────────────────────────────────────────
     Error: Problem with `filter()` input `..1`.
     ✖ Can't combine `..1` <character> and `..2` <meshcode>.
     ℹ Input `..1` is `meshcode == jpmesh::coords_to_mesh(longitude, latitude, mesh_size = 80)`.
     Backtrace:
     █
     1. ├─jpndistrict::find_city(longitude = 130.4412895, latitude = 30.2984335) test-find_city.R:52:2
     2. │ └─jpndistrict:::which_pol_min(longitude, latitude, ...)
     3. │ ├─find_prefs(longitude = longitude, latitude = latitude) %>% dplyr::pull(pref_code)
     4. │ └─jpndistrict::find_prefs(longitude = longitude, latitude = latitude)
     5. │ └─`%>%`(...)
     6. ├─dplyr::pull(., pref_code)
     7. ├─tibble::as_tibble(.)
     8. ├─purrr::set_names(...)
     9. ├─dplyr::inner_join(., jpnprefs, by = c(prefcode = "jis_code"))
     10. ├─dplyr::filter(...)
     11. ├─dplyr:::filter.data.frame(...)
     12. │ └─dplyr:::filter_rows(.data, ...)
     13. │ ├─base::withCallingHandlers(...)
     14. │ └─mask$eval_all_filter(dots, env_filter)
     15. ├─vctrs:::`==.vctrs_vctr`(...)
     16. │ └─vctrs::vec_equal(e1, e2)
     17. │ └─vctrs:::vec_cast_common_params(!!!args, .to = .ptype, .df_fallback = DF_FALLBACK_quiet)
     18. │ └─vctrs:::vec_cast_common_opts(..., .to = .to, .opts = opts)
     19. │ └─(function () ...
     20. │ └─vctrs::vec_default_ptype2(...)
     21. │ └─vctrs::stop_incompatible_type(...)
     22. │ └─vctrs:::stop_incompatible(...)
     23. │ └─vctrs:::stop_vctrs(...)
     24. │ └─rlang::abort(message, class = c(class, "vctrs_error"), ...)
     25. │ └─rlang:::signal_abort(cnd)
     26. │ └─base::signalCondition(cnd)
     27. └─(function (e) ...
    
     options: ENCODING=cp932
     Reading layer `P34-14_47' from data source `/home/hornik/tmp/scratch/RtmpxOVoZg/P34-14_47_GML/P34-14_47.shp' using driver `ESRI Shapefile'
     Simple feature collection with 65 features and 4 fields
     geometry type: POINT
     dimension: XY
     bbox: xmin: 123.0045 ymin: 24.06092 xmax: 131.2989 ymax: 27.03917
     geographic CRS: JGD2000
     ── Skip (test-util.R:106:3): available kjs data ────────────────────────────────
     Reason: On Linux
    
     ── ERROR (test-util.R:130:3): reverge-geo coding ───────────────────────────────
     Error: Problem with `filter()` input `..1`.
     ✖ Can't combine `..1` <character> and `..2` <meshcode>.
     ℹ Input `..1` is `meshcode == jpmesh::coords_to_mesh(longitude, latitude, mesh_size = 80)`.
     Backtrace:
     █
     1. ├─jpndistrict:::which_pol_min(longitude = 130.4412895, latitude = 30.2984335) test-util.R:130:2
     2. │ ├─find_prefs(longitude = longitude, latitude = latitude) %>% dplyr::pull(pref_code)
     3. │ └─jpndistrict::find_prefs(longitude = longitude, latitude = latitude)
     4. │ └─`%>%`(...)
     5. ├─dplyr::pull(., pref_code)
     6. ├─tibble::as_tibble(.)
     7. ├─purrr::set_names(...)
     8. ├─dplyr::inner_join(., jpnprefs, by = c(prefcode = "jis_code"))
     9. ├─dplyr::filter(...)
     10. ├─dplyr:::filter.data.frame(...)
     11. │ └─dplyr:::filter_rows(.data, ...)
     12. │ ├─base::withCallingHandlers(...)
     13. │ └─mask$eval_all_filter(dots, env_filter)
     14. ├─vctrs:::`==.vctrs_vctr`(...)
     15. │ └─vctrs::vec_equal(e1, e2)
     16. │ └─vctrs:::vec_cast_common_params(!!!args, .to = .ptype, .df_fallback = DF_FALLBACK_quiet)
     17. │ └─vctrs:::vec_cast_common_opts(..., .to = .to, .opts = opts)
     18. │ └─(function () ...
     19. │ └─vctrs::vec_default_ptype2(...)
     20. │ └─vctrs::stop_incompatible_type(...)
     21. │ └─vctrs:::stop_incompatible(...)
     22. │ └─vctrs:::stop_vctrs(...)
     23. │ └─rlang::abort(message, class = c(class, "vctrs_error"), ...)
     24. │ └─rlang:::signal_abort(cnd)
     25. │ └─base::signalCondition(cnd)
     26. └─(function (e) ...
    
     ── Skipped tests ──────────────────────────────────────────────────────────────
     ● On Linux (1)
    
     ══ testthat results ═══════════════════════════════════════════════════════════
     Warning (test-export.R:3:1): (code run outside of `test_that()`)
     ERROR (test-export.R:3:1): (code run outside of `test_that()`)
     ERROR (test-find_city.R:5:3): prefecture
     ERROR (test-find_city.R:37:3): Failed
     ERROR (test-find_city.R:52:3): city
     ERROR (test-util.R:130:3): reverge-geo coding
    
     [ FAIL 5 | WARN 1 | SKIP 1 | PASS 63 ]
     Error: Test failures
     Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc

Version: 0.3.8
Check: dependencies in R code
Result: NOTE
    Namespaces in Imports field not imported from:
     ‘memoise’ ‘tidyr’
     All declared Imports should be used.
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-patched-solaris-x86

Version: 0.3.8
Check: data for non-ASCII characters
Result: NOTE
     Note: found 188 marked UTF-8 strings
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-patched-solaris-x86

Version: 0.3.8
Check: examples
Result: ERROR
    Running examples in ‘jpndistrict-Ex.R’ failed
    The error most likely occurred in:
    
    > ### Name: mesh_district
    > ### Title: Export district's mesh polygon
    > ### Aliases: mesh_district
    >
    > ### ** Examples
    >
    > mesh_district(jis_code = "33101", to_mesh_size = 80)
    Error in st_geos_binop("intersects", x, y, sparse = sparse, prepared = prepared, :
     st_crs(x) == st_crs(y) is not TRUE
    Calls: mesh_district ... <Anonymous> -> st_intersects.sf -> st_geos_binop -> stopifnot
    Execution halted
Flavor: r-patched-solaris-x86

Version: 0.3.8
Check: tests
Result: ERROR
     Running ‘testthat.R’ [72s/100s]
    Running the tests in ‘tests/testthat.R’ failed.
    Complete output:
     > library(testthat)
     > library(jpndistrict)
     This package provide map data is based on the Digital Map 25000 (Map
     Image) published by Geospatial Information Authority of Japan (Approval
     No.603FY2017 information usage <https://www.gsi.go.jp>)
     >
     > test_check("jpndistrict")
     ── ERROR (test-export.R:3:1): (code run outside of `test_that()`) ──────────────
     Error: st_crs(x) == st_crs(y) is not TRUE
     Backtrace:
     █
     1. ├─jpndistrict::mesh_district(jis_code = "33101", to_mesh_size = 1) test-export.R:3:0
     2. │ ├─base::withVisible(`_f`(jis_code = jis_code, to_mesh_size = to_mesh_size))
     3. │ └─jpndistrict:::`_f`(jis_code = jis_code, to_mesh_size = to_mesh_size)
     4. │ └─jpndistrict:::mesh_intersect(jpmesh::sf_jpmesh, sf_admins)
     5. │ └─tibble::tibble(...)
     6. │ └─tibble:::tibble_quos(xs[!is.null], .rows, .name_repair)
     7. │ └─rlang::eval_tidy(xs[[j]], mask)
     8. ├─base::suppressMessages(...)
     9. │ └─base::withCallingHandlers(...)
     10. ├─base::rowSums(...)
     11. │ └─base::is.data.frame(x)
     12. ├─sf::st_intersects(...)
     13. └─sf:::st_intersects.sf(...)
     14. └─sf:::st_geos_binop(...)
     15. └─base::stopifnot(st_crs(x) == st_crs(y))
    
     options: ENCODING=cp932
     Reading layer `P34-14_47' from data source `/tmp/RtmpUUaOZp/working_dir/RtmpWZa47P/P34-14_47_GML/P34-14_47.shp' using driver `ESRI Shapefile'
     Simple feature collection with 65 features and 4 fields
     geometry type: POINT
     dimension: XY
     bbox: xmin: 123.0045 ymin: 24.06092 xmax: 131.2989 ymax: 27.03917
     CRS: EPSG:4612
     ── ERROR (test-util.R:5:3): Data ───────────────────────────────────────────────
     Error: st_crs(x) == st_crs(y) is not TRUE
     Backtrace:
     █
     1. ├─testthat::expect_length(export_pref_80km_mesh(1), 40L) test-util.R:5:2
     2. │ └─testthat::quasi_label(enquo(object), arg = "object")
     3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
     4. ├─jpndistrict:::export_pref_80km_mesh(1)
     5. │ ├─base::suppressMessages(...)
     6. │ │ └─base::withCallingHandlers(...)
     7. │ └─`%>%`(...)
     8. ├─base::unique(.)
     9. ├─dplyr::pull(., meshcode)
     10. ├─sf::st_join(., sf_pref, sf::st_overlaps, left = FALSE)
     11. └─sf:::st_join.sf(., sf_pref, sf::st_overlaps, left = FALSE)
     12. └─sf:::join(x, y, ...)
     13. └─sf:::st_geos_binop(...)
     14. └─base::stopifnot(st_crs(x) == st_crs(y))
    
     ── Skip (test-util.R:110:3): available kjs data ────────────────────────────────
     Reason: On CRAN
    
     ── Skipped tests ──────────────────────────────────────────────────────────────
     ● On CRAN (1)
    
     ══ testthat results ═══════════════════════════════════════════════════════════
     ERROR (test-export.R:3:1): (code run outside of `test_that()`)
     ERROR (test-util.R:5:3): Data
    
     [ FAIL 2 | WARN 0 | SKIP 1 | PASS 86 ]
     Error: Test failures
     Execution halted
Flavor: r-patched-solaris-x86

Version: 0.3.7
Check: tests
Result: ERROR
     Running ‘testthat.R’ [8s/11s]
    Running the tests in ‘tests/testthat.R’ failed.
    Complete output:
     > library(testthat)
     > library(jpndistrict)
     This package provide map data is based on the Digital Map 25000 (Map
     Image) published by Geospatial Information Authority of Japan (Approval
     No.603FY2017 information usage <https://www.gsi.go.jp>)
     >
     > test_check("jpndistrict")
     ── Warning (test-export.R:3:1): (code run outside of `test_that()`) ────────────
     Outer names are only allowed for unnamed scalar atomic inputs
    
     ── ERROR (test-export.R:3:1): (code run outside of `test_that()`) ──────────────
     Error: Can't splice S3 objects
     Backtrace:
     █
     1. ├─jpndistrict::mesh_district(jis_code = "33101") test-export.R:3:0
     2. │ └─`%>%`(...)
     3. ├─jpndistrict:::mesh_intersect(., sf_admins)
     4. │ └─tibble::tibble(...)
     5. │ └─tibble:::tibble_quos(xs[!is.null], .rows, .name_repair)
     6. │ └─rlang::eval_tidy(xs[[j]], mask)
     7. ├─base::suppressMessages(...)
     8. │ └─base::withCallingHandlers(...)
     9. ├─base::rowSums(...)
     10. │ └─base::is.data.frame(x)
     11. ├─sf::st_intersects(...)
     12. ├─jpndistrict:::mesh_intersect_filter(.)
     13. │ └─`%>%`(...)
     14. ├─sf::st_sf(., crs = 4326, stringsAsFactors = FALSE)
     15. ├─dplyr::mutate(., geometry = purrr::pmap(., ~jpmesh:::mesh_to_poly(...)))
     16. ├─dplyr::select(., meshcode, tidyselect::everything())
     17. ├─tidyr::unnest_wider(., col = out)
     18. │ ├─tidyselect::vars_pull(tbl_vars(data), !!enquo(col))
     19. │ └─dplyr::tbl_vars(data)
     20. │ ├─dplyr:::new_sel_vars(tbl_vars_dispatch(x), group_vars(x))
     21. │ │ └─base::structure(...)
     22. │ └─dplyr:::tbl_vars_dispatch(x)
     23. ├─dplyr::mutate(., out = purrr::map(meshcode, ~jpmesh::mesh_to_coords(.x)))
     24. ├─tibble::enframe(., name = NULL, value = "meshcode")
     25. ├─base::unique(.)
     26. ├─rlang::flatten_chr(.)
     27. ├─purrr::map(., jpmesh::fine_separate)
     28. ├─dplyr::pull(., meshcode)
     29. ├─jpndistrict:::mesh_intersect(., sf_admins)
     30. │ └─tibble::tibble(...)
     31. │ └─tibble:::tibble_quos(xs[!is.null], .rows, .name_repair)
     32. │ └─rlang::eval_tidy(xs[[j]], mask)
     33. ├─base::suppressMessages(...)
     34. │ └─base::withCallingHandlers(...)
     35. ├─base::rowSums(...)
     36. │ └─base::is.data.frame(x)
     37. ├─sf::st_intersects(...)
     38. ├─jpndistrict:::mesh_intersect_filter(.)
     39. │ └─`%>%`(...)
     40. ├─sf::st_sf(., crs = 4326, stringsAsFactors = FALSE)
     41. ├─dplyr::mutate(., geometry = purrr::pmap(., ~jpmesh:::mesh_to_poly(...)))
     42. ├─dplyr::select(., meshcode, tidyselect::everything())
     43. ├─tidyr::unnest_wider(., col = out)
     44. │ ├─tidyselect::vars_pull(tbl_vars(data), !!enquo(col))
     45. │ └─dplyr::tbl_vars(data)
     46. │ ├─dplyr:::new_sel_vars(tbl_vars_dispatch(x), group_vars(x))
     47. │ │ └─base::structure(...)
     48. │ └─dplyr:::tbl_vars_dispatch(x)
     49. ├─dplyr::mutate(., out = purrr::map(meshcode, ~jpmesh::mesh_to_coords(.x)))
     50. ├─tibble::enframe(., name = NULL, value = "meshcode")
     51. ├─base::unique(.)
     52. └─rlang::flatten_chr(.)
    
     ── ERROR (test-find_city.R:5:3): prefecture ────────────────────────────────────
     Error: Problem with `filter()` input `..1`.
     ✖ Can't combine `..1` <character> and `..2` <meshcode>.
     ℹ Input `..1` is `meshcode == jpmesh::coords_to_mesh(longitude, latitude, mesh_size = 80)`.
     Backtrace:
     █
     1. ├─jpndistrict::find_pref(longitude = 130.4412895, latitude = 30.2984335) test-find_city.R:5:2
     2. │ └─jpndistrict::find_city(longitude, latitude, ...)
     3. │ └─jpndistrict:::which_pol_min(longitude, latitude, ...)
     4. │ ├─find_prefs(longitude = longitude, latitude = latitude) %>% dplyr::pull(pref_code)
     5. │ └─jpndistrict::find_prefs(longitude = longitude, latitude = latitude)
     6. │ └─`%>%`(...)
     7. ├─dplyr::pull(., pref_code)
     8. ├─tibble::as_tibble(.)
     9. ├─purrr::set_names(...)
     10. ├─dplyr::inner_join(., jpnprefs, by = c(prefcode = "jis_code"))
     11. ├─dplyr::filter(...)
     12. ├─dplyr:::filter.data.frame(...)
     13. │ └─dplyr:::filter_rows(.data, ...)
     14. │ ├─base::withCallingHandlers(...)
     15. │ └─mask$eval_all_filter(dots, env_filter)
     16. ├─vctrs:::`==.vctrs_vctr`(...)
     17. │ └─vctrs::vec_equal(e1, e2)
     18. │ └─vctrs:::vec_cast_common_params(!!!args, .to = .ptype, .df_fallback = DF_FALLBACK_quiet)
     19. │ └─vctrs:::vec_cast_common_opts(..., .to = .to, .opts = opts)
     20. │ └─(function () ...
     21. │ └─vctrs::vec_default_ptype2(...)
     22. │ └─vctrs::stop_incompatible_type(...)
     23. │ └─vctrs:::stop_incompatible(...)
     24. │ └─vctrs:::stop_vctrs(...)
     25. │ └─rlang::abort(message, class = c(class, "vctrs_error"), ...)
     26. │ └─rlang:::signal_abort(cnd)
     27. │ └─base::signalCondition(cnd)
     28. └─(function (e) ...
    
     ── ERROR (test-find_city.R:37:3): Failed ───────────────────────────────────────
     Error: Problem with `filter()` input `..1`.
     ✖ Can't combine `..1` <character> and `..2` <meshcode>.
     ℹ Input `..1` is `meshcode == jpmesh::coords_to_mesh(longitude, latitude, mesh_size = 80)`.
     Backtrace:
     █
     1. ├─testthat::expect_message(...) test-find_city.R:37:2
     2. │ └─testthat:::quasi_capture(enquo(object), label, capture_messages)
     3. │ ├─testthat:::.capture(...)
     4. │ │ └─base::withCallingHandlers(...)
     5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
     6. ├─jpndistrict::find_pref(125.246875, 24.7145833333)
     7. │ └─jpndistrict::find_city(longitude, latitude, ...)
     8. │ └─jpndistrict:::which_pol_min(longitude, latitude, ...)
     9. │ ├─find_prefs(longitude = longitude, latitude = latitude) %>% dplyr::pull(pref_code)
     10. │ └─jpndistrict::find_prefs(longitude = longitude, latitude = latitude)
     11. │ └─`%>%`(...)
     12. ├─dplyr::pull(., pref_code)
     13. ├─tibble::as_tibble(.)
     14. ├─purrr::set_names(...)
     15. ├─dplyr::inner_join(., jpnprefs, by = c(prefcode = "jis_code"))
     16. ├─dplyr::filter(...)
     17. ├─dplyr:::filter.data.frame(...)
     18. │ └─dplyr:::filter_rows(.data, ...)
     19. │ ├─base::withCallingHandlers(...)
     20. │ └─mask$eval_all_filter(dots, env_filter)
     21. ├─vctrs:::`==.vctrs_vctr`(...)
     22. │ └─vctrs::vec_equal(e1, e2)
     23. │ └─vctrs:::vec_cast_common_params(!!!args, .to = .ptype, .df_fallback = DF_FALLBACK_quiet)
     24. │ └─vctrs:::vec_cast_common_opts(..., .to = .to, .opts = opts)
     25. │ └─(function () ...
     26. │ └─vctrs::vec_default_ptype2(...)
     27. │ └─vctrs::stop_incompatible_type(...)
     28. │ └─vctrs:::stop_incompatible(...)
     29. │ └─vctrs:::stop_vctrs(...)
     30. │ └─rlang::abort(message, class = c(class, "vctrs_error"), ...)
     31. │ └─rlang:::signal_abort(cnd)
     32. │ └─base::signalCondition(cnd)
     33. └─(function (e) ...
    
     ── ERROR (test-find_city.R:52:3): city ─────────────────────────────────────────
     Error: Problem with `filter()` input `..1`.
     ✖ Can't combine `..1` <character> and `..2` <meshcode>.
     ℹ Input `..1` is `meshcode == jpmesh::coords_to_mesh(longitude, latitude, mesh_size = 80)`.
     Backtrace:
     █
     1. ├─jpndistrict::find_city(longitude = 130.4412895, latitude = 30.2984335) test-find_city.R:52:2
     2. │ └─jpndistrict:::which_pol_min(longitude, latitude, ...)
     3. │ ├─find_prefs(longitude = longitude, latitude = latitude) %>% dplyr::pull(pref_code)
     4. │ └─jpndistrict::find_prefs(longitude = longitude, latitude = latitude)
     5. │ └─`%>%`(...)
     6. ├─dplyr::pull(., pref_code)
     7. ├─tibble::as_tibble(.)
     8. ├─purrr::set_names(...)
     9. ├─dplyr::inner_join(., jpnprefs, by = c(prefcode = "jis_code"))
     10. ├─dplyr::filter(...)
     11. ├─dplyr:::filter.data.frame(...)
     12. │ └─dplyr:::filter_rows(.data, ...)
     13. │ ├─base::withCallingHandlers(...)
     14. │ └─mask$eval_all_filter(dots, env_filter)
     15. ├─vctrs:::`==.vctrs_vctr`(...)
     16. │ └─vctrs::vec_equal(e1, e2)
     17. │ └─vctrs:::vec_cast_common_params(!!!args, .to = .ptype, .df_fallback = DF_FALLBACK_quiet)
     18. │ └─vctrs:::vec_cast_common_opts(..., .to = .to, .opts = opts)
     19. │ └─(function () ...
     20. │ └─vctrs::vec_default_ptype2(...)
     21. │ └─vctrs::stop_incompatible_type(...)
     22. │ └─vctrs:::stop_incompatible(...)
     23. │ └─vctrs:::stop_vctrs(...)
     24. │ └─rlang::abort(message, class = c(class, "vctrs_error"), ...)
     25. │ └─rlang:::signal_abort(cnd)
     26. │ └─base::signalCondition(cnd)
     27. └─(function (e) ...
    
     options: ENCODING=cp932
     Reading layer `P34-14_47' from data source `/tmp/RtmpuhZpO4/P34-14_47_GML/P34-14_47.shp' using driver `ESRI Shapefile'
     Simple feature collection with 65 features and 4 fields
     geometry type: POINT
     dimension: XY
     bbox: xmin: 123.0045 ymin: 24.06092 xmax: 131.2989 ymax: 27.03917
     geographic CRS: JGD2000
     ── Skip (test-util.R:106:3): available kjs data ────────────────────────────────
     Reason: On Linux
    
     ── ERROR (test-util.R:130:3): reverge-geo coding ───────────────────────────────
     Error: Problem with `filter()` input `..1`.
     ✖ Can't combine `..1` <character> and `..2` <meshcode>.
     ℹ Input `..1` is `meshcode == jpmesh::coords_to_mesh(longitude, latitude, mesh_size = 80)`.
     Backtrace:
     █
     1. ├─jpndistrict:::which_pol_min(longitude = 130.4412895, latitude = 30.2984335) test-util.R:130:2
     2. │ ├─find_prefs(longitude = longitude, latitude = latitude) %>% dplyr::pull(pref_code)
     3. │ └─jpndistrict::find_prefs(longitude = longitude, latitude = latitude)
     4. │ └─`%>%`(...)
     5. ├─dplyr::pull(., pref_code)
     6. ├─tibble::as_tibble(.)
     7. ├─purrr::set_names(...)
     8. ├─dplyr::inner_join(., jpnprefs, by = c(prefcode = "jis_code"))
     9. ├─dplyr::filter(...)
     10. ├─dplyr:::filter.data.frame(...)
     11. │ └─dplyr:::filter_rows(.data, ...)
     12. │ ├─base::withCallingHandlers(...)
     13. │ └─mask$eval_all_filter(dots, env_filter)
     14. ├─vctrs:::`==.vctrs_vctr`(...)
     15. │ └─vctrs::vec_equal(e1, e2)
     16. │ └─vctrs:::vec_cast_common_params(!!!args, .to = .ptype, .df_fallback = DF_FALLBACK_quiet)
     17. │ └─vctrs:::vec_cast_common_opts(..., .to = .to, .opts = opts)
     18. │ └─(function () ...
     19. │ └─vctrs::vec_default_ptype2(...)
     20. │ └─vctrs::stop_incompatible_type(...)
     21. │ └─vctrs:::stop_incompatible(...)
     22. │ └─vctrs:::stop_vctrs(...)
     23. │ └─rlang::abort(message, class = c(class, "vctrs_error"), ...)
     24. │ └─rlang:::signal_abort(cnd)
     25. │ └─base::signalCondition(cnd)
     26. └─(function (e) ...
    
     ── Skipped tests ──────────────────────────────────────────────────────────────
     ● On Linux (1)
    
     ══ testthat results ═══════════════════════════════════════════════════════════
     Warning (test-export.R:3:1): (code run outside of `test_that()`)
     ERROR (test-export.R:3:1): (code run outside of `test_that()`)
     ERROR (test-find_city.R:5:3): prefecture
     ERROR (test-find_city.R:37:3): Failed
     ERROR (test-find_city.R:52:3): city
     ERROR (test-util.R:130:3): reverge-geo coding
    
     [ FAIL 5 | WARN 1 | SKIP 1 | PASS 63 ]
     Error: Test failures
     Execution halted
Flavor: r-release-linux-x86_64

Version: 0.3.7
Check: data for non-ASCII characters
Result: NOTE
     Note: found 188 marked UTF-8 strings
Flavors: r-release-macos-x86_64, r-oldrel-macos-x86_64