Running 'testthat.R' [9s]
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:
       x
    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`.
  x Can't combine `..1` <character> and `..2` <meshcode>.
  i Input `..1` is `meshcode == jpmesh::coords_to_mesh(longitude, latitude, mesh_size = 80)`.
  Backtrace:
       x
    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`.
  x Can't combine `..1` <character> and `..2` <meshcode>.
  i Input `..1` is `meshcode == jpmesh::coords_to_mesh(longitude, latitude, mesh_size = 80)`.
  Backtrace:
       x
    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`.
  x Can't combine `..1` <character> and `..2` <meshcode>.
  i Input `..1` is `meshcode == jpmesh::coords_to_mesh(longitude, latitude, mesh_size = 80)`.
  Backtrace:
       x
    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 `D:\temp\RtmpuAcsBq\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:107:3): available kjs data --------------------------------
  Reason: On windows
  
  -- ERROR (test-util.R:130:3): reverge-geo coding -------------------------------
  Error: Problem with `filter()` input `..1`.
  x Can't combine `..1` <character> and `..2` <meshcode>.
  i Input `..1` is `meshcode == jpmesh::coords_to_mesh(longitude, latitude, mesh_size = 80)`.
  Backtrace:
       x
    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) ...
  
  -- Skip (test-util.R:147:3): City name table -----------------------------------
  Reason: l10n_info()$`UTF-8` is not TRUE
  
  -- Skipped tests  --------------------------------------------------------------
  * On windows (1)
  * l10n_info()$`UTF-8` is not TRUE (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 2 | PASS 54 ]
  Error: Test failures
  Execution halted