Running ‘testthat.R’ [31s/36s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(sfnetworks)
  > 
  > test_check("sfnetworks")
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test_geometry.R:25:3): st_set_geometry gives an error when replacing edges geometry
            endpoints ──
  Error: invalid operation
  Backtrace:
      █
   1. ├─sf::st_geometry(sf::st_reverse(roxel)) test_geometry.R:25:2
   2. ├─sf::st_reverse(roxel)
   3. └─sf:::st_reverse.sf(roxel)
   4.   ├─sf::st_set_geometry(x, st_reverse(st_geometry(x)))
   5.   ├─sf::st_reverse(st_geometry(x))
   6.   └─sf:::st_reverse.sfc(st_geometry(x))
   7.     ├─sf::st_sfc(...)
   8.     └─sf:::CPL_geos_op(...)
  ── Error (test_sf.R:53:3): st_reverse returns valid networks ───────────────────
  Error: invalid operation
  Backtrace:
       █
    1. ├─base::suppressWarnings(st_reverse(activate(dirnet, "edges"))) test_sf.R:53:2
    2. │ └─base::withCallingHandlers(...)
    3. ├─sf::st_reverse(activate(dirnet, "edges"))
    4. └─sfnetworks:::st_reverse.sfnetwork(activate(dirnet, "edges"))
    5.   └─sfnetworks:::geom_unary_ops(st_reverse, x, ...)
    6.     ├─base::do.call(match.fun(op), list(x_sf, ...))
    7.     ├─(function (x) ...
    8.     └─sf:::st_reverse.sf(...)
    9.       ├─sf::st_set_geometry(x, st_reverse(st_geometry(x)))
   10.       ├─sf::st_reverse(st_geometry(x))
   11.       └─sf:::st_reverse.sfc(st_geometry(x))
   12.         ├─sf::st_sfc(...)
   13.         └─sf:::CPL_geos_op(...)
  ── Error (test_sf.R:61:3): st_reverse gives a warning when nodes are active, keeping the same
            coordinates order and from/to columns ──
  Error: invalid operation
  Backtrace:
       █
    1. ├─testthat::expect_warning(reversed <- st_reverse(dirnet), "no effect on nodes") test_sf.R:61:2
    2. │ └─testthat:::quasi_capture(enquo(object), label, capture_warnings)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─sf::st_reverse(dirnet)
    7. └─sfnetworks:::st_reverse.sfnetwork(dirnet)
    8.   └─sfnetworks:::geom_unary_ops(st_reverse, x, ...)
    9.     ├─base::do.call(match.fun(op), list(x_sf, ...))
   10.     ├─(function (x) ...
   11.     └─sf:::st_reverse.sf(...)
   12.       ├─sf::st_set_geometry(x, st_reverse(st_geometry(x)))
   13.       ├─sf::st_reverse(st_geometry(x))
   14.       └─sf:::st_reverse.sfc(st_geometry(x))
   15.         ├─sf::st_sfc(...)
   16.         └─sf:::CPL_geos_op(...)
  ── Error (test_sf.R:79:3): st_reverse reverses the order of the to/from columns and the
            order of the coordinates for directed networks ──
  Error: invalid operation
  Backtrace:
       █
    1. ├─testthat::expect_warning(...) test_sf.R:79:2
    2. │ └─testthat:::quasi_capture(enquo(object), label, capture_warnings)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─sf::st_reverse(activate(dirnet, "edges"))
    7. └─sfnetworks:::st_reverse.sfnetwork(activate(dirnet, "edges"))
    8.   └─sfnetworks:::geom_unary_ops(st_reverse, x, ...)
    9.     ├─base::do.call(match.fun(op), list(x_sf, ...))
   10.     ├─(function (x) ...
   11.     └─sf:::st_reverse.sf(...)
   12.       ├─sf::st_set_geometry(x, st_reverse(st_geometry(x)))
   13.       ├─sf::st_reverse(st_geometry(x))
   14.       └─sf:::st_reverse.sfc(st_geometry(x))
   15.         ├─sf::st_sfc(...)
   16.         └─sf:::CPL_geos_op(...)
  ── Error (test_sf.R:103:2): st_reverse reverses the order of the coordinates for
            undirected networks ──
  Error: invalid operation
  Backtrace:
       █
    1. ├─sf::st_reverse(activate(undirnet, "edges")) test_sf.R:103:1
    2. └─sfnetworks:::st_reverse.sfnetwork(activate(undirnet, "edges"))
    3.   └─sfnetworks:::geom_unary_ops(st_reverse, x, ...)
    4.     ├─base::do.call(match.fun(op), list(x_sf, ...))
    5.     ├─(function (x) ...
    6.     └─sf:::st_reverse.sf(...)
    7.       ├─sf::st_set_geometry(x, st_reverse(st_geometry(x)))
    8.       ├─sf::st_reverse(st_geometry(x))
    9.       └─sf:::st_reverse.sfc(st_geometry(x))
   10.         ├─sf::st_sfc(...)
   11.         └─sf:::CPL_geos_op(...)
  
  [ FAIL 5 | WARN 0 | SKIP 0 | PASS 223 ]
  Error: Test failures
  Execution halted