Running 'testthat.R' [9s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(roads)
  > 
  > test_check("roads")
  Saving _problems/test-errors-messages-1.R
  Saving _problems/test-getGraph-3.R
  Saving _problems/test-getLandingsFromTarget-2.R
  Saving _problems/test-projectRoads-17.R
  Saving _problems/test-projectRoads_CLUSexample-22.R
  Saving _problems/test-rasterToLineSegments-2.R
  [ FAIL 6 | WARN 6 | SKIP 0 | PASS 3 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-errors-messages.R:1:1'): (code run outside of `test_that()`) ───
  Error: [rast] empty srs
  Backtrace:
       ▆
    1. └─roads::prepExData(CLUSexample) at test-errors-messages.R:1:1
    2.   └─base::rapply(...)
    3.     ├─terra (local) `<stndrdGn>`(X, ...)
    4.     └─terra (local) `<stndrdGn>`(X, ...)
    5.       └─terra (local) .local(x, ...)
    6.         ├─base::eval(parse(text = x@definition))
    7.         │ └─base::eval(parse(text = x@definition))
    8.         ├─terra::rast(...)
    9.         └─terra::rast(...)
   10.           └─terra (local) .local(x = x, ...)
   11.             └─terra:::new_rast(...)
   12.               └─terra:::messages(r, "rast")
   13.                 └─terra:::error(f, x@pntr$getError())
  ── Error ('test-getGraph.R:3:1'): (code run outside of `test_that()`) ──────────
  Error: [rast] empty srs
  Backtrace:
       ▆
    1. └─roads::prepExData(CLUSexample) at test-getGraph.R:3:1
    2.   └─base::rapply(...)
    3.     ├─terra (local) `<stndrdGn>`(X, ...)
    4.     └─terra (local) `<stndrdGn>`(X, ...)
    5.       └─terra (local) .local(x, ...)
    6.         ├─base::eval(parse(text = x@definition))
    7.         │ └─base::eval(parse(text = x@definition))
    8.         ├─terra::rast(...)
    9.         └─terra::rast(...)
   10.           └─terra (local) .local(x = x, ...)
   11.             └─terra:::new_rast(...)
   12.               └─terra:::messages(r, "rast")
   13.                 └─terra:::error(f, x@pntr$getError())
  ── Error ('test-getLandingsFromTarget.R:2:1'): (code run outside of `test_that()`) ──
  Error: [rast] empty srs
  Backtrace:
       ▆
    1. └─roads::prepExData(demoScen) at test-getLandingsFromTarget.R:2:1
    2.   └─base::rapply(...)
    3.     ├─terra (local) `<stndrdGn>`(X, ...)
    4.     └─terra (local) `<stndrdGn>`(X, ...)
    5.       └─terra (local) .local(x, ...)
    6.         ├─base::eval(parse(text = x@definition))
    7.         │ └─base::eval(parse(text = x@definition))
    8.         ├─terra::rast(...)
    9.         └─terra::rast(...)
   10.           └─terra (local) .local(x = x, ...)
   11.             └─terra:::new_rast(...)
   12.               └─terra:::messages(r, "rast")
   13.                 └─terra:::error(f, x@pntr$getError())
  ── Error ('test-projectRoads.R:17:1'): (code run outside of `test_that()`) ─────
  Error: [rast] empty srs
  Backtrace:
       ▆
    1. └─roads::prepExData(demoScen) at test-projectRoads.R:17:1
    2.   └─base::rapply(...)
    3.     ├─terra (local) `<stndrdGn>`(X, ...)
    4.     └─terra (local) `<stndrdGn>`(X, ...)
    5.       └─terra (local) .local(x, ...)
    6.         ├─base::eval(parse(text = x@definition))
    7.         │ └─base::eval(parse(text = x@definition))
    8.         ├─terra::rast(...)
    9.         └─terra::rast(...)
   10.           └─terra (local) .local(x = x, ...)
   11.             └─terra:::new_rast(...)
   12.               └─terra:::messages(r, "rast")
   13.                 └─terra:::error(f, x@pntr$getError())
  ── Error ('test-projectRoads_CLUSexample.R:22:1'): (code run outside of `test_that()`) ──
  Error: [rast] empty srs
  Backtrace:
       ▆
    1. └─roads::prepExData(CLUSexample) at test-projectRoads_CLUSexample.R:22:1
    2.   └─base::rapply(...)
    3.     ├─terra (local) `<stndrdGn>`(X, ...)
    4.     └─terra (local) `<stndrdGn>`(X, ...)
    5.       └─terra (local) .local(x, ...)
    6.         ├─base::eval(parse(text = x@definition))
    7.         │ └─base::eval(parse(text = x@definition))
    8.         ├─terra::rast(...)
    9.         └─terra::rast(...)
   10.           └─terra (local) .local(x = x, ...)
   11.             └─terra:::new_rast(...)
   12.               └─terra:::messages(r, "rast")
   13.                 └─terra:::error(f, x@pntr$getError())
  ── Error ('test-rasterToLineSegments.R:2:3'): inspect line segments ────────────
  Error: [rast] empty srs
  Backtrace:
       ▆
    1. └─roads::prepExData(demoScen) at test-rasterToLineSegments.R:2:3
    2.   └─base::rapply(...)
    3.     ├─terra (local) `<stndrdGn>`(X, ...)
    4.     └─terra (local) `<stndrdGn>`(X, ...)
    5.       └─terra (local) .local(x, ...)
    6.         ├─base::eval(parse(text = x@definition))
    7.         │ └─base::eval(parse(text = x@definition))
    8.         ├─terra::rast(...)
    9.         └─terra::rast(...)
   10.           └─terra (local) .local(x = x, ...)
   11.             └─terra:::new_rast(...)
   12.               └─terra:::messages(r, "rast")
   13.                 └─terra:::error(f, x@pntr$getError())
  
  [ FAIL 6 | WARN 6 | SKIP 0 | PASS 3 ]
  Error:
  ! Test failures.
  Execution halted