Running 'testthat.R' [20s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(geos)
  > 
  > test_check("geos")
  Saving _problems/test-compat-terra-57.R
  Saving _problems/test-compat-terra-89.R
  [ FAIL 2 | WARN 7 | SKIP 2 | PASS 601 ]
  
  ══ Skipped tests (2) ═══════════════════════════════════════════════════════════
  • empty test (1): 'test-geos-join.R:2:1'
  • identical(Sys.getenv("R_GEOS_TEST_WITH_KNOWN_LEAKS"), "true") is not TRUE
    (1): 'test-geos-unary-geometry.R:612:3'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure ('test-compat-terra.R:54:3'): conversion from terra propagates CRS ──
  Expected `terra::crs(polygon, describe = TRUE)$name` to be identical to `wk::wk_crs(polygon_geos)$input`.
  Differences:
  `actual` is a character vector ('unknown')
  `expected` is NULL
  
  ── Error ('test-compat-terra.R:89:3'): conversion to terra works ───────────────
  Error in `if (is.null(x) || is.na(x)) {     x <- "" } else if (inherits(x, "CRS")) {     if (warn)          warn("crs", "expected a character string, not a CRS object")     y <- attr(x, "comment")     if (is.null(y)) {         y <- x@projargs         if (is.na(y))              y <- ""     }     x <- y } else if (is.character(x)) {     x <- x[1]     lowx <- tolower(x)     if (lowx == "local") {         x = "LOCAL_CS[\"Cartesian (Meter)\", LOCAL_DATUM[\"Local Datum\",0], UNIT[\"Meter\",1.0], AXIS[\"X\",EAST], AXIS[\"Y\",NORTH]]"     }     else if (lowx == "lonlat") {         x <- "+proj=longlat"     } } else {     error("crs", "I do not know what to do with this argument (expected a character string)") }`: missing value where TRUE/FALSE needed
  Backtrace:
       ▆
    1. ├─terra::vect(as_geos_geometry(pv)) at test-compat-terra.R:89:3
    2. └─terra::vect(as_geos_geometry(pv))
    3.   └─geos (local) .local(x, ...)
    4.     ├─terra::vect(geos::geos_write_wkt(x), crs = crs)
    5.     └─terra::vect(geos::geos_write_wkt(x), crs = crs)
    6.       └─terra (local) .local(x, ...)
    7.         ├─terra::`crs<-`(`*tmp*`, warn = FALSE, value = crs)
    8.         └─terra::`crs<-`(`*tmp*`, warn = FALSE, value = crs)
    9.           └─terra (local) .local(x, ..., value = value)
   10.             └─terra:::.txtCRS(value)
  
  [ FAIL 2 | WARN 7 | SKIP 2 | PASS 601 ]
  Error:
  ! Test failures.
  Execution halted