Running ‘testthat.R’ [20s/52s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > 
  > test_check("RCzechia")
  Loading required package: RCzechia
  Loading required package: sf
  Linking to GEOS 3.6.4, GDAL 2.2.4, PROJ 5.2.0
  ══ Warnings ════════════════════════════════════════════════════════════════════
  ── Warning (test-1-data-structures.R:47:1): (code run outside of `test_that()`) ──
  st_crs<- : replacing crs does not reproject data; use st_transform for that
  Backtrace:
    1. testthat::expect_true(is.data.frame(kraje())) test-1-data-structures.R:47:0
    5. RCzechia::kraje()
    6. RCzechia:::downloader("Kraje-R-2021-01.rds")
    8. sf:::`st_crs<-.sf`(`*tmp*`, value = 4326)
   10. sf:::`st_crs<-.sfc`(`*tmp*`, value = value)
  ── Warning (test-1-data-structures.R:49:1): (code run outside of `test_that()`) ──
  st_crs<- : replacing crs does not reproject data; use st_transform for that
  Backtrace:
    1. testthat::expect_true(is.data.frame(kraje("high"))) test-1-data-structures.R:49:0
    5. RCzechia::kraje("high")
    6. RCzechia:::downloader("Kraje-R-2021-01.rds")
    8. sf:::`st_crs<-.sf`(`*tmp*`, value = 4326)
   10. sf:::`st_crs<-.sfc`(`*tmp*`, value = value)
  ── Warning (test-1-data-structures.R:51:1): (code run outside of `test_that()`) ──
  st_crs<- : replacing crs does not reproject data; use st_transform for that
  Backtrace:
   1. testthat::expect_s3_class(kraje(), "sf") test-1-data-structures.R:51:0
   4. RCzechia::kraje()
   5. RCzechia:::downloader("Kraje-R-2021-01.rds")
   7. sf:::`st_crs<-.sf`(`*tmp*`, value = 4326)
   9. sf:::`st_crs<-.sfc`(`*tmp*`, value = value)
  ── Warning (test-1-data-structures.R:52:1): (code run outside of `test_that()`) ──
  st_crs<- : replacing crs does not reproject data; use st_transform for that
  Backtrace:
   1. testthat::expect_s3_class(kraje("high"), "sf") test-1-data-structures.R:52:0
   4. RCzechia::kraje("high")
   5. RCzechia:::downloader("Kraje-R-2021-01.rds")
   7. sf:::`st_crs<-.sf`(`*tmp*`, value = 4326)
   9. sf:::`st_crs<-.sfc`(`*tmp*`, value = value)
  ── Warning (test-1-data-structures.R:55:1): (code run outside of `test_that()`) ──
  st_crs<- : replacing crs does not reproject data; use st_transform for that
  Backtrace:
    1. testthat::expect_equal(nrow(kraje()), 14) test-1-data-structures.R:55:0
    5. RCzechia::kraje()
    6. RCzechia:::downloader("Kraje-R-2021-01.rds")
    8. sf:::`st_crs<-.sf`(`*tmp*`, value = 4326)
   10. sf:::`st_crs<-.sfc`(`*tmp*`, value = value)
  ── Warning (test-1-data-structures.R:57:1): (code run outside of `test_that()`) ──
  st_crs<- : replacing crs does not reproject data; use st_transform for that
  Backtrace:
    1. testthat::expect_equal(nrow(kraje("high")), 14) test-1-data-structures.R:57:0
    5. RCzechia::kraje("high")
    6. RCzechia:::downloader("Kraje-R-2021-01.rds")
    8. sf:::`st_crs<-.sf`(`*tmp*`, value = 4326)
   10. sf:::`st_crs<-.sfc`(`*tmp*`, value = value)
  ── Warning (test-1-data-structures.R:60:1): (code run outside of `test_that()`) ──
  st_crs<- : replacing crs does not reproject data; use st_transform for that
  Backtrace:
    1. testthat::expect_equal(st_crs(kraje("high"))$input, "EPSG:4326") test-1-data-structures.R:60:0
    5. RCzechia::kraje("high")
    6. RCzechia:::downloader("Kraje-R-2021-01.rds")
    8. sf:::`st_crs<-.sf`(`*tmp*`, value = 4326)
   10. sf:::`st_crs<-.sfc`(`*tmp*`, value = value)
  ── Warning (test-1-data-structures.R:63:1): (code run outside of `test_that()`) ──
  st_crs<- : replacing crs does not reproject data; use st_transform for that
  Backtrace:
    1. testthat::expect_equal(...) test-1-data-structures.R:63:0
    6. RCzechia::kraje()
    7. RCzechia:::downloader("Kraje-R-2021-01.rds")
    9. sf:::`st_crs<-.sf`(`*tmp*`, value = 4326)
   11. sf:::`st_crs<-.sfc`(`*tmp*`, value = value)
  ── Warning (test-1-data-structures.R:68:1): (code run outside of `test_that()`) ──
  st_crs<- : replacing crs does not reproject data; use st_transform for that
  Backtrace:
    1. testthat::expect_true(object.size(kraje("low")) < object.size(kraje("high"))) test-1-data-structures.R:68:0
    6. RCzechia::kraje("high")
    7. RCzechia:::downloader("Kraje-R-2021-01.rds")
    9. sf:::`st_crs<-.sf`(`*tmp*`, value = 4326)
   11. sf:::`st_crs<-.sfc`(`*tmp*`, value = value)
  ── Warning (test-1-data-structures.R:74:1): (code run outside of `test_that()`) ──
  st_crs<- : replacing crs does not reproject data; use st_transform for that
  Backtrace:
   1. kraje("high") %>% subset(KOD_CZNUTS3 == "CZ020") test-1-data-structures.R:74:0
   3. RCzechia::kraje("high")
   4. RCzechia:::downloader("Kraje-R-2021-01.rds")
   6. sf:::`st_crs<-.sf`(`*tmp*`, value = 4326)
   8. sf:::`st_crs<-.sfc`(`*tmp*`, value = value)
  ── Warning (test-1-data-structures.R:81:1): (code run outside of `test_that()`) ──
  st_crs<- : replacing crs does not reproject data; use st_transform for that
  Backtrace:
    1. testthat::expect_equal(...) test-1-data-structures.R:81:0
    5. RCzechia::kraje("high")
    6. RCzechia:::downloader("Kraje-R-2021-01.rds")
    8. sf:::`st_crs<-.sf`(`*tmp*`, value = 4326)
   10. sf:::`st_crs<-.sfc`(`*tmp*`, value = value)
  ── Warning (test-1-data-structures.R:82:1): (code run outside of `test_that()`) ──
  st_crs<- : replacing crs does not reproject data; use st_transform for that
  Backtrace:
    1. testthat::expect_equal(...) test-1-data-structures.R:82:0
    5. RCzechia::kraje()
    6. RCzechia:::downloader("Kraje-R-2021-01.rds")
    8. sf:::`st_crs<-.sf`(`*tmp*`, value = 4326)
   10. sf:::`st_crs<-.sfc`(`*tmp*`, value = value)
  ── Warning (test-1-data-structures.R:94:1): (code run outside of `test_that()`) ──
  st_crs<- : replacing crs does not reproject data; use st_transform for that
  Backtrace:
    1. testthat::expect_true(is.data.frame(okresy())) test-1-data-structures.R:94:0
    5. RCzechia::okresy()
    6. RCzechia:::downloader("Okresy-R-2021-01.rds")
    8. sf:::`st_crs<-.sf`(`*tmp*`, value = 4326)
   10. sf:::`st_crs<-.sfc`(`*tmp*`, value = value)
  ── Warning (test-1-data-structures.R:96:1): (code run outside of `test_that()`) ──
  st_crs<- : replacing crs does not reproject data; use st_transform for that
  Backtrace:
    1. testthat::expect_true(is.data.frame(okresy("high"))) test-1-data-structures.R:96:0
    5. RCzechia::okresy("high")
    6. RCzechia:::downloader("Okresy-R-2021-01.rds")
    8. sf:::`st_crs<-.sf`(`*tmp*`, value = 4326)
   10. sf:::`st_crs<-.sfc`(`*tmp*`, value = value)
  ── Warning (test-1-data-structures.R:98:1): (code run outside of `test_that()`) ──
  st_crs<- : replacing crs does not reproject data; use st_transform for that
  Backtrace:
   1. testthat::expect_s3_class(okresy(), "sf") test-1-data-structures.R:98:0
   4. RCzechia::okresy()
   5. RCzechia:::downloader("Okresy-R-2021-01.rds")
   7. sf:::`st_crs<-.sf`(`*tmp*`, value = 4326)
   9. sf:::`st_crs<-.sfc`(`*tmp*`, value = value)
  ── Warning (test-1-data-structures.R:99:1): (code run outside of `test_that()`) ──
  st_crs<- : replacing crs does not reproject data; use st_transform for that
  Backtrace:
   1. testthat::expect_s3_class(okresy("high"), "sf") test-1-data-structures.R:99:0
   4. RCzechia::okresy("high")
   5. RCzechia:::downloader("Okresy-R-2021-01.rds")
   7. sf:::`st_crs<-.sf`(`*tmp*`, value = 4326)
   9. sf:::`st_crs<-.sfc`(`*tmp*`, value = value)
  ── Warning (test-1-data-structures.R:102:1): (code run outside of `test_that()`) ──
  st_crs<- : replacing crs does not reproject data; use st_transform for that
  Backtrace:
    1. testthat::expect_equal(nrow(okresy()), 77) test-1-data-structures.R:102:0
    5. RCzechia::okresy()
    6. RCzechia:::downloader("Okresy-R-2021-01.rds")
    8. sf:::`st_crs<-.sf`(`*tmp*`, value = 4326)
   10. sf:::`st_crs<-.sfc`(`*tmp*`, value = value)
  ── Warning (test-1-data-structures.R:104:1): (code run outside of `test_that()`) ──
  st_crs<- : replacing crs does not reproject data; use st_transform for that
  Backtrace:
    1. testthat::expect_equal(nrow(okresy("high")), 77) test-1-data-structures.R:104:0
    5. RCzechia::okresy("high")
    6. RCzechia:::downloader("Okresy-R-2021-01.rds")
    8. sf:::`st_crs<-.sf`(`*tmp*`, value = 4326)
   10. sf:::`st_crs<-.sfc`(`*tmp*`, value = value)
  ── Warning (test-1-data-structures.R:107:1): (code run outside of `test_that()`) ──
  st_crs<- : replacing crs does not reproject data; use st_transform for that
  Backtrace:
    1. testthat::expect_equal(st_crs(okresy("high"))$input, "EPSG:4326") test-1-data-structures.R:107:0
    5. RCzechia::okresy("high")
    6. RCzechia:::downloader("Okresy-R-2021-01.rds")
    8. sf:::`st_crs<-.sf`(`*tmp*`, value = 4326)
   10. sf:::`st_crs<-.sfc`(`*tmp*`, value = value)
  ── Warning (test-1-data-structures.R:110:1): (code run outside of `test_that()`) ──
  st_crs<- : replacing crs does not reproject data; use st_transform for that
  Backtrace:
    1. testthat::expect_equal(...) test-1-data-structures.R:110:0
    6. RCzechia::okresy()
    7. RCzechia:::downloader("Okresy-R-2021-01.rds")
    9. sf:::`st_crs<-.sf`(`*tmp*`, value = 4326)
   11. sf:::`st_crs<-.sfc`(`*tmp*`, value = value)
  ── Warning (test-1-data-structures.R:116:1): (code run outside of `test_that()`) ──
  st_crs<- : replacing crs does not reproject data; use st_transform for that
  Backtrace:
    1. testthat::expect_true(object.size(okresy("low")) < object.size(okresy("high"))) test-1-data-structures.R:116:0
    6. RCzechia::okresy("high")
    7. RCzechia:::downloader("Okresy-R-2021-01.rds")
    9. sf:::`st_crs<-.sf`(`*tmp*`, value = 4326)
   11. sf:::`st_crs<-.sfc`(`*tmp*`, value = value)
  ── Warning (test-1-data-structures.R:128:1): (code run outside of `test_that()`) ──
  st_crs<- : replacing crs does not reproject data; use st_transform for that
  Backtrace:
    1. testthat::expect_true(is.data.frame(orp_polygony())) test-1-data-structures.R:128:0
    5. RCzechia::orp_polygony()
    6. RCzechia:::downloader("ORP-R-2021-01.rds")
    8. sf:::`st_crs<-.sf`(`*tmp*`, value = 4326)
   10. sf:::`st_crs<-.sfc`(`*tmp*`, value = value)
  ── Warning (test-1-data-structures.R:130:1): (code run outside of `test_that()`) ──
  st_crs<- : replacing crs does not reproject data; use st_transform for that
  Backtrace:
   1. testthat::expect_s3_class(orp_polygony(), "sf") test-1-data-structures.R:130:0
   4. RCzechia::orp_polygony()
   5. RCzechia:::downloader("ORP-R-2021-01.rds")
   7. sf:::`st_crs<-.sf`(`*tmp*`, value = 4326)
   9. sf:::`st_crs<-.sfc`(`*tmp*`, value = value)
  ── Warning (test-1-data-structures.R:132:1): (code run outside of `test_that()`) ──
  st_crs<- : replacing crs does not reproject data; use st_transform for that
  Backtrace:
    1. testthat::expect_equal(nrow(orp_polygony()), 206) test-1-data-structures.R:132:0
    5. RCzechia::orp_polygony()
    6. RCzechia:::downloader("ORP-R-2021-01.rds")
    8. sf:::`st_crs<-.sf`(`*tmp*`, value = 4326)
   10. sf:::`st_crs<-.sfc`(`*tmp*`, value = value)
  ── Warning (test-1-data-structures.R:134:1): (code run outside of `test_that()`) ──
  st_crs<- : replacing crs does not reproject data; use st_transform for that
  Backtrace:
    1. testthat::expect_equal(st_crs(orp_polygony())$input, "EPSG:4326") test-1-data-structures.R:134:0
    5. RCzechia::orp_polygony()
    6. RCzechia:::downloader("ORP-R-2021-01.rds")
    8. sf:::`st_crs<-.sf`(`*tmp*`, value = 4326)
   10. sf:::`st_crs<-.sfc`(`*tmp*`, value = value)
  ── Warning (test-1-data-structures.R:137:1): (code run outside of `test_that()`) ──
  st_crs<- : replacing crs does not reproject data; use st_transform for that
  Backtrace:
    1. testthat::expect_equal(...) test-1-data-structures.R:137:0
    6. RCzechia::orp_polygony()
    7. RCzechia:::downloader("ORP-R-2021-01.rds")
    9. sf:::`st_crs<-.sf`(`*tmp*`, value = 4326)
   11. sf:::`st_crs<-.sfc`(`*tmp*`, value = value)
  ── Warning (test-1-data-structures.R:150:1): (code run outside of `test_that()`) ──
  st_crs<- : replacing crs does not reproject data; use st_transform for that
  Backtrace:
    1. testthat::expect_true(is.data.frame(obce_body())) test-1-data-structures.R:150:0
    5. RCzechia::obce_body()
    6. RCzechia:::downloader("ObceB-R-2021-01.rds")
    8. sf:::`st_crs<-.sf`(`*tmp*`, value = 4326)
   10. sf:::`st_crs<-.sfc`(`*tmp*`, value = value)
  ── Warning (test-1-data-structures.R:152:1): (code run outside of `test_that()`) ──
  st_crs<- : replacing crs does not reproject data; use st_transform for that
  Backtrace:
   1. testthat::expect_s3_class(obce_body(), "sf") test-1-data-structures.R:152:0
   4. RCzechia::obce_body()
   5. RCzechia:::downloader("ObceB-R-2021-01.rds")
   7. sf:::`st_crs<-.sf`(`*tmp*`, value = 4326)
   9. sf:::`st_crs<-.sfc`(`*tmp*`, value = value)
  ── Warning (test-1-data-structures.R:154:1): (code run outside of `test_that()`) ──
  st_crs<- : replacing crs does not reproject data; use st_transform for that
  Backtrace:
    1. testthat::expect_equal(nrow(obce_body()), 6258) test-1-data-structures.R:154:0
    5. RCzechia::obce_body()
    6. RCzechia:::downloader("ObceB-R-2021-01.rds")
    8. sf:::`st_crs<-.sf`(`*tmp*`, value = 4326)
   10. sf:::`st_crs<-.sfc`(`*tmp*`, value = value)
  ── Warning (test-1-data-structures.R:156:1): (code run outside of `test_that()`) ──
  st_crs<- : replacing crs does not reproject data; use st_transform for that
  Backtrace:
    1. testthat::expect_equal(st_crs(obce_body())$input, "EPSG:4326") test-1-data-structures.R:156:0
    5. RCzechia::obce_body()
    6. RCzechia:::downloader("ObceB-R-2021-01.rds")
    8. sf:::`st_crs<-.sf`(`*tmp*`, value = 4326)
   10. sf:::`st_crs<-.sfc`(`*tmp*`, value = value)
  ── Warning (test-1-data-structures.R:159:1): (code run outside of `test_that()`) ──
  st_crs<- : replacing crs does not reproject data; use st_transform for that
  Backtrace:
    1. testthat::expect_equal(...) test-1-data-structures.R:159:0
    6. RCzechia::obce_body()
    7. RCzechia:::downloader("ObceB-R-2021-01.rds")
    9. sf:::`st_crs<-.sf`(`*tmp*`, value = 4326)
   11. sf:::`st_crs<-.sfc`(`*tmp*`, value = value)
  ── Warning (test-1-data-structures.R:174:1): (code run outside of `test_that()`) ──
  st_crs<- : replacing crs does not reproject data; use st_transform for that
  Backtrace:
    1. testthat::expect_true(is.data.frame(obce_polygony())) test-1-data-structures.R:174:0
    5. RCzechia::obce_polygony()
    6. RCzechia:::downloader("ObceP-R-2021-01.rds")
    8. sf:::`st_crs<-.sf`(`*tmp*`, value = 4326)
   10. sf:::`st_crs<-.sfc`(`*tmp*`, value = value)
  ── Warning (test-1-data-structures.R:176:1): (code run outside of `test_that()`) ──
  st_crs<- : replacing crs does not reproject data; use st_transform for that
  Backtrace:
   1. testthat::expect_s3_class(obce_polygony(), "sf") test-1-data-structures.R:176:0
   4. RCzechia::obce_polygony()
   5. RCzechia:::downloader("ObceP-R-2021-01.rds")
   7. sf:::`st_crs<-.sf`(`*tmp*`, value = 4326)
   9. sf:::`st_crs<-.sfc`(`*tmp*`, value = value)
  ── Warning (test-1-data-structures.R:178:1): (code run outside of `test_that()`) ──
  st_crs<- : replacing crs does not reproject data; use st_transform for that
  Backtrace:
    1. testthat::expect_equal(nrow(obce_polygony()), 6258) test-1-data-structures.R:178:0
    5. RCzechia::obce_polygony()
    6. RCzechia:::downloader("ObceP-R-2021-01.rds")
    8. sf:::`st_crs<-.sf`(`*tmp*`, value = 4326)
   10. sf:::`st_crs<-.sfc`(`*tmp*`, value = value)
  ── Warning (test-1-data-structures.R:180:1): (code run outside of `test_that()`) ──
  st_crs<- : replacing crs does not reproject data; use st_transform for that
  Backtrace:
    1. testthat::expect_equal(st_crs(obce_polygony())$input, "EPSG:4326") test-1-data-structures.R:180:0
    5. RCzechia::obce_polygony()
    6. RCzechia:::downloader("ObceP-R-2021-01.rds")
    8. sf:::`st_crs<-.sf`(`*tmp*`, value = 4326)
   10. sf:::`st_crs<-.sfc`(`*tmp*`, value = value)
  ── Warning (test-1-data-structures.R:183:1): (code run outside of `test_that()`) ──
  st_crs<- : replacing crs does not reproject data; use st_transform for that
  Backtrace:
    1. testthat::expect_equal(...) test-1-data-structures.R:183:0
    6. RCzechia::obce_polygony()
    7. RCzechia:::downloader("ObceP-R-2021-01.rds")
    9. sf:::`st_crs<-.sf`(`*tmp*`, value = 4326)
   11. sf:::`st_crs<-.sfc`(`*tmp*`, value = value)
  ── Warning (test-2-code.R:60:1): (code run outside of `test_that()`) ───────────
  st_crs<- : replacing crs does not reproject data; use st_transform for that
  Backtrace:
    1. testthat::expect_error(revgeo(kraje())) test-2-code.R:60:0
    7. RCzechia::kraje()
    8. RCzechia:::downloader("Kraje-R-2021-01.rds")
   10. sf:::`st_crs<-.sf`(`*tmp*`, value = 4326)
   12. sf:::`st_crs<-.sfc`(`*tmp*`, value = value)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure (test-1-data-structures.R:77:1): (code run outside of `test_that()`) ──
  st_area(stc_low) not equal to st_area(stc_high).
  Mean relative difference: 7980746361
  ── Error (test-1-data-structures.R:386:1): (code run outside of `test_that()`) ──
  Error: st_crs(x) == st_crs(y) is not TRUE
  Backtrace:
      █
   1. ├─testthat::expect_equal(...) test-1-data-structures.R:386:0
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. ├─sf::st_intersection(KFME_grid("low"), telc)
   5. └─sf:::st_intersection.sf(KFME_grid("low"), telc)
   6.   ├─sf:::geos_op2_df(x, y, geos_op2_geom("intersection", x, y))
   7.   └─sf:::geos_op2_geom("intersection", x, y)
   8.     └─base::stopifnot(st_crs(x) == st_crs(y))
  
  [ FAIL 2 | WARN 37 | SKIP 0 | PASS 169 ]
  Error: Test failures
  Execution halted