Running ‘testthat.R’ [9s/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/Rtmpzzm27t/working_dir/Rtmp11hnRw/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