Running ‘testthat.R’ [68s/75s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(grainchanger)
  > 
  > test_check("grainchanger")
  aggregation assumes all cells are rectangular
  ● set `is_grid = FALSE` if coarse_dat is not a grid
  aggregation assumes all cells are rectangular
  ● set `is_grid = FALSE` if coarse_dat is not a grid
  aggregation assumes all cells are rectangular
  ● set `is_grid = FALSE` if coarse_dat is not a grid
  aggregation assumes all cells are rectangular
  ● set `is_grid = FALSE` if coarse_dat is not a grid
  aggregation assumes all cells are rectangular
  ● set `is_grid = FALSE` if coarse_dat is not a grid
  aggregation assumes all cells are rectangular
  ● set `is_grid = FALSE` if coarse_dat is not a grid
  aggregation assumes all cells are rectangular
  ● set `is_grid = FALSE` if coarse_dat is not a grid
  aggregation assumes all cells are rectangular
  ● set `is_grid = FALSE` if coarse_dat is not a grid
  aggregation assumes all cells are rectangular
  ● set `is_grid = FALSE` if coarse_dat is not a grid
  aggregation assumes all cells are rectangular
  ● set `is_grid = FALSE` if coarse_dat is not a grid
  aggregation assumes all cells are rectangular
  ● set `is_grid = FALSE` if coarse_dat is not a grid
  aggregation assumes all cells are rectangular
  ● set `is_grid = FALSE` if coarse_dat is not a grid
  aggregation assumes all cells are rectangular
  ● set `is_grid = FALSE` if coarse_dat is not a grid
  ── 1. Failure: var_range calculation is correct (@test-winmove_agg.R#29)  ──────
  `d` not equal to `wm_agg_range`.
  58/161 mismatches (average diff: 0.00923)
  [1]  0.506 - 0.498 ==  0.00742
  [2]  0.490 - 0.468 ==  0.02166
  [3]  0.603 - 0.589 ==  0.01354
  [4]  0.481 - 0.497 == -0.01578
  [5]  0.584 - 0.540 ==  0.04391
  [6]  0.547 - 0.531 ==  0.01532
  [7]  0.552 - 0.536 ==  0.01579
  [24] 0.547 - 0.531 ==  0.01563
  [25] 0.480 - 0.476 ==  0.00305
  ...
  
  aggregation assumes all cells are rectangular
  ● set `is_grid = FALSE` if coarse_dat is not a grid
  aggregation assumes all cells are rectangular
  ● set `is_grid = FALSE` if coarse_dat is not a grid
  aggregation assumes all cells are rectangular
  ● set `is_grid = FALSE` if coarse_dat is not a grid
  aggregation assumes all cells are rectangular
  ● set `is_grid = FALSE` if coarse_dat is not a grid
  aggregation assumes all cells are rectangular
  ● set `is_grid = FALSE` if coarse_dat is not a grid
  aggregation assumes all cells are rectangular
  ● set `is_grid = FALSE` if coarse_dat is not a grid
  ══ testthat results  ═══════════════════════════════════════════════════════════
  [ OK: 33 | SKIPPED: 0 | WARNINGS: 6 | FAILED: 1 ]
  1. Failure: var_range calculation is correct (@test-winmove_agg.R#29) 
  
  Error: testthat unit tests failed
  Execution halted