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