Running ‘testthat.R’ [114s/113s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(move2)
  > 
  > 
  > test_check("move2")
  Linking to GEOS 3.11.1, GDAL 3.6.4, PROJ 8.2.1; sf_use_s2() is TRUE
  [ FAIL 20 | WARN 0 | SKIP 17 | PASS 725 ]
  
  ══ Skipped tests (17) ══════════════════════════════════════════════════════════
  • On CRAN (16): 'test-calculate_properties.R:25:3',
    'test-movebank_api.R:156:3', 'test-movebank_api.R:186:3',
    'test-movebank_api.R:208:3', 'test-movebank_api.R:241:3',
    'test-movebank_api.R:265:3', 'test-movebank_api.R:298:3',
    'test-movebank_api.R:306:3', 'test-movebank_api.R:316:3',
    'test-movebank_api.R:334:3', 'test-movebank_api.R:360:3',
    'test-movebank_get_vocabulary.R:2:3', 'test-movebank_get_vocabulary.R:27:3',
    'test-movebank_speed.R:2:3', 'test-movebank_speed.R:44:3',
    'test-mt_read_speed.R:2:3'
  • empty test (1): 'test-movebank_api.R:197:1'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure ('test-mt_interpolate.R:9:3'): basic interpolation ──────────────────
  st_coordinates(mt_interpolate(dd)) (`actual`) not equal to cbind(c(NA, 2:4, NA), c(NA, 2:4, NA)) (`expected`).
  
  actual vs expected
                  [,1] [,2]
    actual[1, ]     NA   NA
    actual[2, ]      2    2
  - actual[3, ]     NA   NA
  + expected[3, ]    3    3
    actual[4, ]      4    4
    actual[5, ]     NA   NA
  ── Failure ('test-mt_interpolate.R:12:3'): basic interpolation ─────────────────
  st_coordinates(mt_interpolate(dd)) (`actual`) not equal to cbind(c(1L:5L), c(1L:5L)) (`expected`).
  
  actual vs expected
                  [,1] [,2]
    actual[1, ]      1    1
  - actual[2, ]     NA   NA
  + expected[2, ]    2    2
  - actual[3, ]     NA   NA
  + expected[3, ]    3    3
  - actual[4, ]     NA   NA
  + expected[4, ]    4    4
    actual[5, ]      5    5
  ── Failure ('test-mt_interpolate.R:13:3'): basic interpolation ─────────────────
  mt_interpolate(dd) (`actual`) not identical to `d` (`expected`).
  
    `attr(actual$geometry, 'n_empty')`: 3
  `attr(expected$geometry, 'n_empty')`: 0
  
  `actual$geometry[[2]]`:   "POINT EMPTY"
  `expected$geometry[[2]]`: "POINT (2 2)"
  
  `actual$geometry[[3]]`:   "POINT EMPTY"
  `expected$geometry[[3]]`: "POINT (3 3)"
  
  `actual$geometry[[4]]`:   "POINT EMPTY"
  `expected$geometry[[4]]`: "POINT (4 4)"
  ── Failure ('test-mt_interpolate.R:14:3'): basic interpolation ─────────────────
  st_geometry(mt_interpolate(d[-3, ], 3L)) (`actual`) not identical to st_geometry(d)[TRUE, ] (`expected`).
  
    `attr(actual, 'n_empty')`: 1
  `attr(expected, 'n_empty')`: 0
  
  `actual[[3]]`:   "POINT EMPTY"
  `expected[[3]]`: "POINT (3 3)"
  ── Failure ('test-mt_interpolate.R:34:3'): start end locations stay empty ──────
  which(st_is_empty(mt_interpolate(m))) (`actual`) not identical to c(10L, 20L) (`expected`).
  
    `actual`: 3 4 5 10 14 20
  `expected`:       10    20
  ── Failure ('test-mt_interpolate.R:40:3'): start end locations stay empty ──────
  which(st_is_empty(mt_interpolate(m))) (`actual`) not identical to c(1L, 11L, 20L) (`expected`).
  
    `actual`: 1 3 4 5 11 14 20
  `expected`: 1       11    20
  ── Failure ('test-mt_interpolate.R:105:3'): time_gap ───────────────────────────
  which(st_is_empty(mt_interpolate(m, max_time_lag = 5))) (`actual`) not identical to integer(0) (`expected`).
  
    `actual`: 2 4
  `expected`:    
  ── Failure ('test-mt_interpolate.R:106:3'): time_gap ───────────────────────────
  which(st_is_empty(mt_interpolate(m, max_time_lag = 3))) (`actual`) not identical to 2L (`expected`).
  
    `actual`: 2 4
  `expected`: 2  
  ── Failure ('test-mt_interpolate.R:107:3'): time_gap ───────────────────────────
  which(st_is_empty(mt_interpolate(m, max_time_lag = 2))) (`actual`) not identical to 2L (`expected`).
  
    `actual`: 2 4
  `expected`: 2  
  ── Failure ('test-mt_interpolate.R:119:3'): time_gap with posixct ──────────────
  which(...) (`actual`) not identical to integer(0) (`expected`).
  
    `actual`: 2 4
  `expected`:    
  ── Failure ('test-mt_interpolate.R:120:3'): time_gap with posixct ──────────────
  which(...) (`actual`) not identical to integer(0) (`expected`).
  
    `actual`: 2 4
  `expected`:    
  ── Failure ('test-mt_interpolate.R:121:3'): time_gap with posixct ──────────────
  which(...) (`actual`) not identical to 2L (`expected`).
  
    `actual`: 2 4
  `expected`: 2  
  ── Failure ('test-mt_interpolate.R:122:3'): time_gap with posixct ──────────────
  which(...) (`actual`) not identical to 2L (`expected`).
  
    `actual`: 2 4
  `expected`: 2  
  ── Failure ('test-mt_interpolate.R:123:3'): time_gap with posixct ──────────────
  which(...) (`actual`) not identical to 2L (`expected`).
  
    `actual`: 2 4
  `expected`: 2  
  ── Failure ('test-mt_interpolate.R:124:3'): time_gap with posixct ──────────────
  which(...) (`actual`) not identical to 2L (`expected`).
  
    `actual`: 2 4
  `expected`: 2  
  ── Failure ('test-mt_interpolate.R:154:3'): time_gap with posixct ──────────────
  which(...) (`actual`) not identical to integer(0) (`expected`).
  
    `actual`: 2 4
  `expected`:    
  ── Failure ('test-mt_interpolate.R:160:3'): time_gap with posixct ──────────────
  which(...) (`actual`) not identical to 2L (`expected`).
  
    `actual`: 2 4
  `expected`: 2  
  ── Failure ('test-mt_interpolate.R:166:3'): time_gap with posixct ──────────────
  which(...) (`actual`) not identical to 2L (`expected`).
  
    `actual`: 2 4
  `expected`: 2  
  ── Error ('test-plot.R:8:3'): ggplot plotting ──────────────────────────────────
  <Rcpp::exception/C++Error/error/condition>
  Error: argument dfMaxLength should be positive
  
  Backtrace:
       ▆
    1. ├─testthat::expect_silent(print(ggplot() + geom_sf(data = m, aes(color = track)))) at test-plot.R:8:3
    2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ ├─withr::with_output_sink(...)
    5. │   │ │ └─base::force(code)
    6. │   │ ├─base::withCallingHandlers(...)
    7. │   │ └─base::withVisible(code)
    8. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. ├─base::print(ggplot() + geom_sf(data = m, aes(color = track)))
   10. └─ggplot2:::print.ggplot(ggplot() + geom_sf(data = m, aes(color = track)))
   11.   ├─ggplot2::ggplot_build(x)
   12.   └─ggplot2:::ggplot_build.ggplot(x)
   13.     └─layout$setup_panel_params()
   14.       └─ggplot2 (local) setup_panel_params(..., self = self)
   15.         └─base::Map(setup_panel_params, scales_x, scales_y)
   16.           └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
   17.             └─ggplot2 (local) `<fn>`(dots[[1L]][[1L]], dots[[2L]][[1L]])
   18.               └─self$coord$setup_panel_params(scale_x, scale_y, params = self$coord_params)
   19.                 └─ggplot2 (local) setup_panel_params(..., self = self)
   20.                   └─sf::st_graticule(...)
   21.                     ├─sf::st_segmentize(box, st_length(box)[1]/ndiscr)
   22.                     └─sf:::st_segmentize.sfc(box, st_length(box)[1]/ndiscr)
   23.                       ├─sf::st_sfc(CPL_gdal_segmentize(x, dfMaxLength), crs = st_crs(x))
   24.                       └─sf:::CPL_gdal_segmentize(x, dfMaxLength)
  ── Failure ('test-segments.R:13:3'): segments type ─────────────────────────────
  mt_distance(m)[c(1L:2L, 4L:5L)] (`actual`) not equal to sf::st_length(s)[c(1L:2L, 4L:5L)] (`expected`).
  
    `actual`: 0.56 0.55 1.37 1.41
  `expected`: 0.00 0.00 0.00 0.00
  
  [ FAIL 20 | WARN 0 | SKIP 17 | PASS 725 ]
  Error: Test failures
  Execution halted