Running ‘testthat.R’ [22s/34s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > 
  > test_check("geometr")
  Loading required package: geometr
  Error in x$.self$finalize() : attempt to apply non-function
  Error in x$.self$finalize() : attempt to apply non-function
  [ FAIL 2 | WARN 3 | SKIP 2 | PASS 572 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • empty test (2)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test_setCRS.R:37'): setCRS of a Spatial object ──────────────────────
  Error in `(function (cl, name, valueClass) 
  {
      ClassDef <- getClass(cl)
      slotClass <- ClassDef@slots[[name]]
      if (is.null(slotClass)) 
          stop(gettextf("%s is not a slot in class %s", sQuote(name), 
              dQuote(cl)), domain = NA)
      if (.identC(slotClass, valueClass)) 
          return(TRUE)
      ok <- possibleExtends(valueClass, slotClass, ClassDef2 = getClassDef(slotClass, 
          where = .classEnv(ClassDef)))
      if (isFALSE(ok)) 
          stop(gettextf("assignment of an object of class %s is not valid for @%s in an object of class %s; is(value, \"%s\") is not TRUE", 
              dQuote(valueClass), sQuote(name), dQuote(cl), slotClass), 
              domain = NA)
      TRUE
  })(structure("SpatialPoints", package = "sp"), "proj4string", 
      "character")`: assignment of an object of class "character" is not valid for @'proj4string' in an object of class "SpatialPoints"; is(value, "CRS") is not TRUE
  Backtrace:
      ▆
   1. ├─geometr::setCRS(x = aSpatial, crs = "+proj=eck4 +lon_0=0 +x_0=0 +y_0=0 +ellps=WGS84 +datum=WGS84 +units=m") at test_setCRS.R:37:2
   2. └─geometr::setCRS(x = aSpatial, crs = "+proj=eck4 +lon_0=0 +x_0=0 +y_0=0 +ellps=WGS84 +datum=WGS84 +units=m")
   3.   └─geometr (local) .local(x, crs, ...)
   4.     └─methods (local) `<fn>`(`<chr>`, "proj4string", "character")
  ── Error ('test_setCRS.R:68'): setCRS of a Raster ──────────────────────────────
  Error in `(function (cl, name, valueClass) 
  {
      ClassDef <- getClass(cl)
      slotClass <- ClassDef@slots[[name]]
      if (is.null(slotClass)) 
          stop(gettextf("%s is not a slot in class %s", sQuote(name), 
              dQuote(cl)), domain = NA)
      if (.identC(slotClass, valueClass)) 
          return(TRUE)
      ok <- possibleExtends(valueClass, slotClass, ClassDef2 = getClassDef(slotClass, 
          where = .classEnv(ClassDef)))
      if (isFALSE(ok)) 
          stop(gettextf("assignment of an object of class %s is not valid for @%s in an object of class %s; is(value, \"%s\") is not TRUE", 
              dQuote(valueClass), sQuote(name), dQuote(cl), slotClass), 
              domain = NA)
      TRUE
  })(structure("RasterLayer", package = "raster"), "crs", "character")`: assignment of an object of class "character" is not valid for @'crs' in an object of class "RasterLayer"; is(value, "CRS") is not TRUE
  Backtrace:
      ▆
   1. ├─geometr::setCRS(x = aRaster, crs = theCRS) at test_setCRS.R:68:2
   2. └─geometr::setCRS(x = aRaster, crs = theCRS)
   3.   └─geometr (local) .local(x, crs, ...)
   4.     └─methods (local) `<fn>`(`<chr>`, "crs", "character")
  
  [ FAIL 2 | WARN 3 | SKIP 2 | PASS 572 ]
  Error: Test failures
  Execution halted