Running 'testthat.R' [65s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(phyloraster)
  > 
  > test_check("phyloraster")
  Saving _problems/test-delta-grid-81.R
  Saving _problems/test-geo.phylo-144.R
  Saving _problems/test-geo.phylo-167.R
  Saving _problems/test-geo.phylo-183.R
  Saving _problems/test-geophylo-ses-60.R
  Saving _problems/test-rast-ed-ses-58.R
  Saving _problems/test-rast-ed-ses-121.R
  Saving _problems/test-rast-ed-49.R
  Saving _problems/test-rast-pd-94.R
  Saving _problems/test-rast-sr-38.R
  Saving _problems/test-rast-we-40.R
  Saving _problems/test-rast.pd.ses-57.R
  Saving _problems/test-rast.pd.ses-120.R
  Saving _problems/test-rast.pe-114.R
  Saving _problems/test-rast.pe.ses-42.R
  Saving _problems/test-rast.pe.ses-102.R
  Saving _problems/test-rast.we.ses-50.R
  Saving _problems/test-shp2rast-79.R
  Saving _problems/test-shp2rast-101.R
  [ FAIL 19 | WARN 45 | SKIP 0 | PASS 73 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-delta-grid.R:80:3'): Raster is saved when filename is provided ──
  Error in `expect(phyloraster::delta.grid(riq.pres, riq.fut, filename = temp), ok = T)`: `failure_message` must be a character vector, not a <SpatRaster> object.
  Backtrace:
      ▆
   1. └─testthat::expect(failure_message = phyloraster::delta.grid(riq.pres, riq.fut, filename = temp)) at test-delta-grid.R:80:3
   2.   └─testthat:::check_character(failure_message)
   3.     └─testthat:::stop_input_type(...)
   4.       └─rlang::abort(message, ..., call = call, arg = arg)
  ── Error ('test-geo.phylo.R:144:3'): arguments are calculated when is missing and the
            tree is provided ──
  Error in `expect(geo.phylo(data$x, tree), ok = T)`: `failure_message` must be a character vector, not a <SpatRaster> object.
  Backtrace:
      ▆
   1. └─testthat::expect(failure_message = geo.phylo(data$x, tree)) at test-geo.phylo.R:144:3
   2.   └─testthat:::check_character(failure_message)
   3.     └─testthat:::stop_input_type(...)
   4.       └─rlang::abort(message, ..., call = call, arg = arg)
  ── Error ('test-geo.phylo.R:163:3'): names are reordened in the function geo.phylo ──
  Error in `expect(geo.phylo(data$x, tree, inv.R = inv.R, edge.path = data$edge.path[sample(1:nrow(data$edge.path)), ], branch.length = data$branch.length, n.descen = data$n.descendants), ok = T)`: `failure_message` must be a character vector, not a <SpatRaster> object.
  Backtrace:
      ▆
   1. └─testthat::expect(failure_message = geo.phylo(...)) at test-geo.phylo.R:163:3
   2.   └─testthat:::check_character(failure_message)
   3.     └─testthat:::stop_input_type(...)
   4.       └─rlang::abort(message, ..., call = call, arg = arg)
  ── Error ('test-geo.phylo.R:183:3'): error is returned when the raster does not have a longitude/latitude
            coordinate reference system (CRS) ──
  Error: [project] cannot get output boundaries for the target crs
  Backtrace:
      ▆
   1. ├─terra::project(x, "EPSG:2169") at test-geo.phylo.R:183:3
   2. └─terra::project(x, "EPSG:2169")
   3.   └─terra (local) .local(x, ...)
   4.     └─terra:::messages(x, "project")
   5.       └─terra:::error(f, x@pntr$getError())
  ── Error ('test-geophylo-ses.R:60:13'): error is returned when the raster does not have a longitude/latitude
            coordinate reference system (CRS) ──
  Error: [project] cannot get output boundaries for the target crs
  Backtrace:
      ▆
   1. ├─terra::project(x, "EPSG:2169") at test-geophylo-ses.R:60:13
   2. └─terra::project(x, "EPSG:2169")
   3.   └─terra (local) .local(x, ...)
   4.     └─terra:::messages(x, "project")
   5.       └─terra:::error(f, x@pntr$getError())
  ── Error ('test-rast-ed-ses.R:58:13'): error is returned when the raster does not have a longitude/latitude
            coordinate reference system (CRS) ──
  Error: [project] cannot get output boundaries for the target crs
  Backtrace:
      ▆
   1. ├─terra::project(x, "EPSG:2169") at test-rast-ed-ses.R:58:13
   2. └─terra::project(x, "EPSG:2169")
   3.   └─terra (local) .local(x, ...)
   4.     └─terra:::messages(x, "project")
   5.       └─terra:::error(f, x@pntr$getError())
  ── Error ('test-rast-ed-ses.R:116:3'): function compute branch lenght when tree is supplied ──
  Error in `expect(rast.ed.ses(x = x, tree = tree, spat_alg = "bootspat_str", spat_alg_args = list(rprob = NULL, rich = NULL, fr_prob = NULL), aleats = 5), ok = T)`: `failure_message` must be a character vector, not a <SpatRaster> object.
  Backtrace:
      ▆
   1. └─testthat::expect(failure_message = rast.ed.ses(...)) at test-rast-ed-ses.R:116:3
   2.   └─testthat:::check_character(failure_message)
   3.     └─testthat:::stop_input_type(...)
   4.       └─rlang::abort(message, ..., call = call, arg = arg)
  ── Error ('test-rast-ed.R:49:13'): error is returned when the raster does not have a
            longitude/latitude coordinate reference system (CRS) ──
  Error: [project] cannot get output boundaries for the target crs
  Backtrace:
      ▆
   1. ├─terra::project(x, "EPSG:2169") at test-rast-ed.R:49:13
   2. └─terra::project(x, "EPSG:2169")
   3.   └─terra (local) .local(x, ...)
   4.     └─terra:::messages(x, "project")
   5.       └─terra:::error(f, x@pntr$getError())
  ── Error ('test-rast-pd.R:94:3'): error is returned when the raster does not have a
            longitude/latitude coordinate reference system (CRS) ──
  Error: [project] cannot get output boundaries for the target crs
  Backtrace:
      ▆
   1. ├─terra::project(x, "EPSG:2169") at test-rast-pd.R:94:3
   2. └─terra::project(x, "EPSG:2169")
   3.   └─terra (local) .local(x, ...)
   4.     └─terra:::messages(x, "project")
   5.       └─terra:::error(f, x@pntr$getError())
  ── Error ('test-rast-sr.R:38:3'): error is returned when the raster does not have a longitude/latitude
            coordinate reference system (CRS) ──
  Error: [project] cannot get output boundaries for the target crs
  Backtrace:
      ▆
   1. ├─terra::project(x, "EPSG:2169") at test-rast-sr.R:38:3
   2. └─terra::project(x, "EPSG:2169")
   3.   └─terra (local) .local(x, ...)
   4.     └─terra:::messages(x, "project")
   5.       └─terra:::error(f, x@pntr$getError())
  ── Error ('test-rast-we.R:40:3'): error is returned when the raster does not have a longitude/latitude
            coordinate reference system (CRS) ──
  Error: [project] cannot get output boundaries for the target crs
  Backtrace:
      ▆
   1. ├─terra::project(x, "EPSG:2169") at test-rast-we.R:40:3
   2. └─terra::project(x, "EPSG:2169")
   3.   └─terra (local) .local(x, ...)
   4.     └─terra:::messages(x, "project")
   5.       └─terra:::error(f, x@pntr$getError())
  ── Error ('test-rast.pd.ses.R:57:13'): error is returned when the raster does not have a longitude/latitude
            coordinate reference system (CRS) ──
  Error: [project] cannot get output boundaries for the target crs
  Backtrace:
      ▆
   1. ├─terra::project(x, "EPSG:2169") at test-rast.pd.ses.R:57:13
   2. └─terra::project(x, "EPSG:2169")
   3.   └─terra (local) .local(x, ...)
   4.     └─terra:::messages(x, "project")
   5.       └─terra:::error(f, x@pntr$getError())
  ── Error ('test-rast.pd.ses.R:115:3'): function compute branch lenght when tree is supplied ──
  Error in `expect(rast.pd.ses(x = x, tree = tree, spat_alg = "bootspat_str", spat_alg_args = list(rprob = NULL, rich = NULL, fr_prob = NULL), aleats = 5), ok = T)`: `failure_message` must be a character vector, not a <SpatRaster> object.
  Backtrace:
      ▆
   1. └─testthat::expect(failure_message = rast.pd.ses(...)) at test-rast.pd.ses.R:115:3
   2.   └─testthat:::check_character(failure_message)
   3.     └─testthat:::stop_input_type(...)
   4.       └─rlang::abort(message, ..., call = call, arg = arg)
  ── Error ('test-rast.pe.R:114:3'): error is returned when the raster does not have a longitude/latitude
            coordinate reference system (CRS) ──
  Error: [project] cannot get output boundaries for the target crs
  Backtrace:
      ▆
   1. ├─terra::project(x, "EPSG:2169") at test-rast.pe.R:114:3
   2. └─terra::project(x, "EPSG:2169")
   3.   └─terra (local) .local(x, ...)
   4.     └─terra:::messages(x, "project")
   5.       └─terra:::error(f, x@pntr$getError())
  ── Error ('test-rast.pe.ses.R:42:13'): error is returned when the raster does not have a longitude/latitude
            coordinate reference system (CRS) ──
  Error: [project] cannot get output boundaries for the target crs
  Backtrace:
      ▆
   1. ├─terra::project(x, "EPSG:2169") at test-rast.pe.ses.R:42:13
   2. └─terra::project(x, "EPSG:2169")
   3.   └─terra (local) .local(x, ...)
   4.     └─terra:::messages(x, "project")
   5.       └─terra:::error(f, x@pntr$getError())
  ── Error ('test-rast.pe.ses.R:96:3'): function compute branch lenght when tree is supplied ──
  Error in `expect(rast.pe.ses(x = x, tree = tree, spat_alg = "bootspat_str", metric = "pe", spat_alg_args = list(rprob = NULL, rich = NULL, fr_prob = NULL), aleats = 5), ok = T)`: `failure_message` must be a character vector, not a <SpatRaster> object.
  Backtrace:
      ▆
   1. └─testthat::expect(failure_message = rast.pe.ses(...)) at test-rast.pe.ses.R:96:3
   2.   └─testthat:::check_character(failure_message)
   3.     └─testthat:::stop_input_type(...)
   4.       └─rlang::abort(message, ..., call = call, arg = arg)
  ── Error ('test-rast.we.ses.R:50:13'): error is returned when the raster does not have a longitude/latitude
            coordinate reference system (CRS) ──
  Error: [project] cannot get output boundaries for the target crs
  Backtrace:
      ▆
   1. ├─terra::project(x, "EPSG:2169") at test-rast.we.ses.R:50:13
   2. └─terra::project(x, "EPSG:2169")
   3.   └─terra (local) .local(x, ...)
   4.     └─terra:::messages(x, "project")
   5.       └─terra:::error(f, x@pntr$getError())
  ── Error ('test-shp2rast.R:77:3'): function runs ok when a mask is applied ─────
  Error in `expect(phyloraster::shp2rast(shp, y = coun.rast, sps.col = "BINOMIAL", ymask = TRUE, background = 0), ok = T)`: `failure_message` must be a character vector, not a <SpatRaster> object.
  Backtrace:
      ▆
   1. └─testthat::expect(failure_message = phyloraster::shp2rast(...)) at test-shp2rast.R:77:3
   2.   └─testthat:::check_character(failure_message)
   3.     └─testthat:::stop_input_type(...)
   4.       └─rlang::abort(message, ..., call = call, arg = arg)
  ── Error ('test-shp2rast.R:100:3'): Raster is saved when filename is provided ──
  Error in `expect(shp2rast(shp, y = coun.rast, sps.col = "BINOMIAL", background = 0, filename = temp), ok = T)`: `failure_message` must be a character vector, not a <SpatRaster> object.
  Backtrace:
      ▆
   1. └─testthat::expect(failure_message = shp2rast(...)) at test-shp2rast.R:100:3
   2.   └─testthat:::check_character(failure_message)
   3.     └─testthat:::stop_input_type(...)
   4.       └─rlang::abort(message, ..., call = call, arg = arg)
  
  [ FAIL 19 | WARN 45 | SKIP 0 | PASS 73 ]
  Error:
  ! Test failures.
  Execution halted