Running ‘testthat.R’ [70s/246s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(medfateland)
  Loading required package: medfate
  Package 'medfate' [ver. 4.8.0]
  Package 'medfateland' [ver. 2.5.1]
  > 
  > test_check("medfateland")
  ✔ No wildland locations with NULL values in column 'forest'.
  ✔ All objects in column 'forest' have the right class.
  ! Wrong tree species names detected for 1 records (0.1%) in 1 wildland locations (1%).
  ℹ Filtering out problematic tree/shrub records in 1 locations (1%) with missing/wrong forest data.
  ! Wrong tree species names detected for 1 records (0.1%) in 1 wildland locations (1%).
  Package 'meteoland' [ver. 2.2.3]
  ! Simulation errors occurred in 2 out of 2 stands. Check error messages in 'result'
  ! Error in plot 1:Error in "fordyn": Could not parse date column.
  ! Error in plot 2:Error in "fordyn": Could not parse date column.
  ! Simulation errors occurred in 2 out of 2 stands. Check error messages in 'result'
  ! Error in plot 1:Error in "fordyn": Could not parse date column.
  ! Error in plot 2:Error in "fordyn": Could not parse date column.
  [ FAIL 4 | WARN 2 | SKIP 0 | PASS 69 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test_land.R:20:1'): (code run outside of `test_that()`) ─────────────
  Error in ``/.difftime`(diff(range(ud)), mean(ud))`: second argument of / cannot be a "difftime" object
  Backtrace:
      ▆
   1. └─meteoland::create_meteo_interpolator(...) at test_land.R:20:1
   2.   ├─stars::st_dimensions(date = dates, station = stations)
   3.   └─stars:::st_dimensions.default(date = dates, station = stations)
   4.     ├─stars:::create_dimensions(...)
   5.     └─base::mapply(...)
   6.       └─stars (local) `<fn>`(...)
   7.         └─stars:::regular_intervals(values)
   8.           ├─base::isTRUE(as.numeric(abs(diff(range(ud))/mean(ud))) < epsilon)
   9.           └─base::`/.difftime`(diff(range(ud)), mean(ud))
  ── Error ('test_land_day.R:15:1'): (code run outside of `test_that()`) ─────────
  Error in ``/.difftime`(diff(range(ud)), mean(ud))`: second argument of / cannot be a "difftime" object
  Backtrace:
      ▆
   1. └─meteoland::create_meteo_interpolator(...) at test_land_day.R:15:1
   2.   ├─stars::st_dimensions(date = dates, station = stations)
   3.   └─stars:::st_dimensions.default(date = dates, station = stations)
   4.     ├─stars:::create_dimensions(...)
   5.     └─base::mapply(...)
   6.       └─stars (local) `<fn>`(...)
   7.         └─stars:::regular_intervals(values)
   8.           ├─base::isTRUE(as.numeric(abs(diff(range(ud))/mean(ud))) < epsilon)
   9.           └─base::`/.difftime`(diff(range(ud)), mean(ud))
  ── Error ('test_spatial.R:30:3'): Can simulate 3 days over landscape using new meteoland interpolator ──
  Error in ``/.difftime`(diff(range(ud)), mean(ud))`: second argument of / cannot be a "difftime" object
  Backtrace:
      ▆
   1. └─meteoland::create_meteo_interpolator(...) at test_spatial.R:30:3
   2.   ├─stars::st_dimensions(date = dates, station = stations)
   3.   └─stars:::st_dimensions.default(date = dates, station = stations)
   4.     ├─stars:::create_dimensions(...)
   5.     └─base::mapply(...)
   6.       └─stars (local) `<fn>`(...)
   7.         └─stars:::regular_intervals(values)
   8.           ├─base::isTRUE(as.numeric(abs(diff(range(ud))/mean(ud))) < epsilon)
   9.           └─base::`/.difftime`(diff(range(ud)), mean(ud))
  ── Error ('test_spatial_day.R:24:3'): Can simulate one day over landscape using new interpolator ──
  Error in ``/.difftime`(diff(range(ud)), mean(ud))`: second argument of / cannot be a "difftime" object
  Backtrace:
      ▆
   1. └─meteoland::create_meteo_interpolator(...) at test_spatial_day.R:24:3
   2.   ├─stars::st_dimensions(date = dates, station = stations)
   3.   └─stars:::st_dimensions.default(date = dates, station = stations)
   4.     ├─stars:::create_dimensions(...)
   5.     └─base::mapply(...)
   6.       └─stars (local) `<fn>`(...)
   7.         └─stars:::regular_intervals(values)
   8.           ├─base::isTRUE(as.numeric(abs(diff(range(ud))/mean(ud))) < epsilon)
   9.           └─base::`/.difftime`(diff(range(ud)), mean(ud))
  
  [ FAIL 4 | WARN 2 | SKIP 0 | PASS 69 ]
  Error: Test failures
  Execution halted