CRAN Package Check Results for Package geometr

Last updated on 2022-12-04 07:55:09 CET.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 0.2.10 82.24 418.09 500.33 ERROR
r-devel-linux-x86_64-debian-gcc 0.2.10 59.48 305.00 364.48 ERROR
r-devel-linux-x86_64-fedora-clang 0.2.10 646.12 ERROR
r-devel-linux-x86_64-fedora-gcc 0.2.10 591.62 ERROR
r-devel-windows-x86_64 0.2.10 122.00 434.00 556.00 ERROR
r-patched-linux-x86_64 0.2.10 66.16 396.95 463.11 ERROR
r-release-linux-x86_64 0.2.10 62.67 398.66 461.33 ERROR
r-release-macos-arm64 0.2.10 106.00 OK
r-release-macos-x86_64 0.2.10 197.00 OK
r-release-windows-x86_64 0.2.10 114.00 440.00 554.00 ERROR
r-oldrel-macos-arm64 0.2.10 82.00 OK
r-oldrel-macos-x86_64 0.2.10 100.00 OK
r-oldrel-windows-ix86+x86_64 0.2.10 166.00 585.00 751.00 ERROR

Check Details

Version: 0.2.10
Check: tests
Result: ERROR
     Running 'testthat.R' [30s/34s]
    Running the tests in 'tests/testthat.R' failed.
    Complete output:
     > library(testthat)
     >
     > test_check("geometr")
     Loading required package: geometr
     [ 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:
     x
     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:
     x
     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
Flavor: r-devel-linux-x86_64-debian-clang

Version: 0.2.10
Check: tests
Result: ERROR
     Running ‘testthat.R’ [23s/37s]
    Running the tests in ‘tests/testthat.R’ failed.
    Complete output:
     > library(testthat)
     >
     > test_check("geometr")
     Loading required package: geometr
     [ 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
Flavor: r-devel-linux-x86_64-debian-gcc

Version: 0.2.10
Check: tests
Result: ERROR
     Running ‘testthat.R’ [37s/45s]
    Running the tests in ‘tests/testthat.R’ failed.
    Complete output:
     > library(testthat)
     >
     > test_check("geometr")
     Loading required package: geometr
     [ 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
Flavor: r-devel-linux-x86_64-fedora-clang

Version: 0.2.10
Check: tests
Result: ERROR
     Running ‘testthat.R’ [35s/43s]
    Running the tests in ‘tests/testthat.R’ failed.
    Complete output:
     > library(testthat)
     >
     > test_check("geometr")
     Loading required package: geometr
     [ 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
Flavor: r-devel-linux-x86_64-fedora-gcc

Version: 0.2.10
Check: tests
Result: ERROR
     Running 'testthat.R' [28s]
    Running the tests in 'tests/testthat.R' failed.
    Complete output:
     > library(testthat)
     >
     > test_check("geometr")
     Loading required package: geometr
     [ 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
Flavor: r-devel-windows-x86_64

Version: 0.2.10
Check: tests
Result: ERROR
     Running ‘testthat.R’ [29s/36s]
    Running the tests in ‘tests/testthat.R’ failed.
    Complete output:
     > library(testthat)
     >
     > test_check("geometr")
     Loading required package: geometr
     [ 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
Flavor: r-patched-linux-x86_64

Version: 0.2.10
Check: tests
Result: ERROR
     Running ‘testthat.R’ [29s/35s]
    Running the tests in ‘tests/testthat.R’ failed.
    Complete output:
     > library(testthat)
     >
     > test_check("geometr")
     Loading required package: geometr
     [ 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
Flavor: r-release-linux-x86_64

Version: 0.2.10
Check: tests
Result: ERROR
     Running 'testthat.R' [30s]
    Running the tests in 'tests/testthat.R' failed.
    Complete output:
     > library(testthat)
     >
     > test_check("geometr")
     Loading required package: geometr
     [ 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
Flavor: r-release-windows-x86_64

Version: 0.2.10
Check: running tests for arch ‘i386’
Result: ERROR
     Running 'testthat.R' [30s]
    Running the tests in 'tests/testthat.R' failed.
    Complete output:
     > library(testthat)
     >
     > test_check("geometr")
     Loading required package: geometr
     [ 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:
     x
     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:
     x
     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
Flavor: r-oldrel-windows-ix86+x86_64

Version: 0.2.10
Check: running tests for arch ‘x64’
Result: ERROR
     Running 'testthat.R' [32s]
    Running the tests in 'tests/testthat.R' failed.
    Complete output:
     > library(testthat)
     >
     > test_check("geometr")
     Loading required package: geometr
     [ 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:
     x
     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:
     x
     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
Flavor: r-oldrel-windows-ix86+x86_64