Running ‘testthat.R’ [57s/71s]
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-rast-ed-ses-121.R
  Saving _problems/test-rast.pd.ses-120.R
  Saving _problems/test-rast.pe.ses-102.R
  Saving _problems/test-shp2rast-79.R
  Saving _problems/test-shp2rast-101.R
  [ FAIL 8 | WARN 0 | SKIP 0 | PASS 84 ]
  
  ══ 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-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.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.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-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 8 | WARN 0 | SKIP 0 | PASS 84 ]
  Error:
  ! Test failures.
  Execution halted