Running ‘testthat.R’ [22s/26s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(smoothr)
  
  Attaching package: 'smoothr'
  
  The following object is masked from 'package:stats':
  
      smooth
  
  > 
  > test_check("smoothr")
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure (test_drop-crumbs.R:22:3): drop_crumbs() doesn't alter features with nothing dropped ──
  `p` not equivalent to `p_dropped`.
  Component "id": Numeric: lengths (9, 5) differ
  Component "type": Lengths (9, 5) differ (string compare on first 5)
  Component "hole": Lengths (9, 5) differ (comparison on first 5 components)
  Component "hole": 2 element mismatches
  Component "multipart": Lengths (9, 5) differ (comparison on first 5 components)
  Component "multipart": 1 element mismatch
  Component "geometry": Length mismatch: comparison on first 5 components
  Component "geometry": Component 1: Component 1: Numeric: lengths (10, 74) differ
  Component "geometry": Component 2: Component 1: Numeric: lengths (26, 22) differ
  ...
  ── Error (test_drop-crumbs.R:43:3): drop_crumbs() handling of empty results ────
  Error: no applicable method for 'units' applied to an object of class "c('double', 'numeric')"
  Backtrace:
       █
    1. ├─smoothr::drop_crumbs(as(jagged_polygons, "Spatial"), threshold = 2e+20) test_drop-crumbs.R:43:2
    2. └─smoothr:::drop_crumbs.Spatial(...)
    3.   ├─smoothr::drop_crumbs(...)
    4.   └─smoothr:::drop_crumbs.sf(...)
    5.     ├─smoothr::drop_crumbs(...)
    6.     └─smoothr:::drop_crumbs.sfc(...)
    7.       ├─units::set_units(1, units(size_fxn(x[1])), mode = "standard")
    8.       ├─units:::set_units.numeric(1, units(size_fxn(x[1])), mode = "standard")
    9.       │ └─units::as_units(value, ...)
   10.       └─base::units(size_fxn(x[1]))
  ── Error (test_drop-crumbs.R:53:3): drop_crumbs() works for different input formats ──
  Error: no applicable method for 'units' applied to an object of class "c('double', 'numeric')"
  Backtrace:
       █
    1. ├─smoothr::drop_crumbs(as(jagged_polygons, "Spatial"), threshold = 2e+08) test_drop-crumbs.R:53:2
    2. └─smoothr:::drop_crumbs.Spatial(...)
    3.   ├─smoothr::drop_crumbs(...)
    4.   └─smoothr:::drop_crumbs.sf(...)
    5.     ├─smoothr::drop_crumbs(...)
    6.     └─smoothr:::drop_crumbs.sfc(...)
    7.       ├─units::set_units(1, units(size_fxn(x[1])), mode = "standard")
    8.       ├─units:::set_units.numeric(1, units(size_fxn(x[1])), mode = "standard")
    9.       │ └─units::as_units(value, ...)
   10.       └─base::units(size_fxn(x[1]))
  ── Error (test_drop-crumbs.R:69:3): drop_crumbs() works for SpatVector objects ──
  Error: no applicable method for 'units' applied to an object of class "c('double', 'numeric')"
  Backtrace:
       █
    1. ├─testthat::expect_warning(...) test_drop-crumbs.R:69: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. ├─smoothr::drop_crumbs(...)
    7. └─smoothr:::drop_crumbs.SpatVector(...)
    8.   ├─smoothr::drop_crumbs(...)
    9.   └─smoothr:::drop_crumbs.sf(...)
   10.     ├─smoothr::drop_crumbs(...)
   11.     └─smoothr:::drop_crumbs.sfc(...)
   12.       ├─units::set_units(1, units(size_fxn(x[1])), mode = "standard")
   13.       ├─units:::set_units.numeric(1, units(size_fxn(x[1])), mode = "standard")
   14.       │ └─units::as_units(value, ...)
   15.       └─base::units(size_fxn(x[1]))
  ── Failure (test_fill-holes.R:12:3): fill_holes() works ────────────────────────
  st_area(p) == st_area(p_filled) is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Error (test_fill-holes.R:33:3): fill_holes() works for different input formats ──
  Error: both operands of the expression should be "units" objects
  Backtrace:
      █
   1. └─units:::Ops.units(st_area(s_sf), st_area(st_as_sf(s_spdf))) test_fill-holes.R:33:2
  ── Failure (test_fill-holes.R:49:3): fill_holes() works for SpatVector objects ──
  a_diff[2] not equal to 0.
  1/1 mismatches
  [1] -0.259 - 0 == -0.259
  
  [ FAIL 7 | WARN 4 | SKIP 0 | PASS 145 ]
  Error: Test failures
  Execution halted