Running ‘testthat.R’ [21s/20s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library('testthat')
  > library('moveWindSpeed')
  Loading required package: move
  Loading required package: geosphere
  Loading required package: sp
  Loading required package: raster
  Loading required package: rgdal
  Please note that rgdal will be retired by the end of 2023,
  plan transition to sf/stars/terra functions using GDAL and PROJ
  at your earliest convenience.
  
  rgdal: version: 1.5-27, (SVN revision 1148)
  Geospatial Data Abstraction Library extensions to R successfully loaded
  Loaded GDAL runtime: GDAL 2.4.4, released 2020/01/08
  Path to GDAL shared files: /usr/local/share/gdal
  GDAL binary built with GEOS: TRUE 
  Loaded PROJ runtime: Rel. 5.2.0, September 15th, 2018, [PJ_VERSION: 520]
  Path to PROJ shared files: (autodetected)
  Linking to sp version:1.4-5
  Warning message:
  multiple methods tables found for 'distance' 
  > 
  > test_check("moveWindSpeed")
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test.getWindEstimates.R:4:3): getWindEstimates ───────────────────────
  Error in `(function (classes, fdef, mtable) 
  {
      methods <- .findInheritedMethods(classes, fdef, mtable)
      if (length(methods) == 1L) 
          return(methods[[1L]])
      else if (length(methods) == 0L) {
          cnames <- paste0("\"", vapply(classes, as.character, 
              ""), "\"", collapse = ", ")
          stop(gettextf("unable to find an inherited method for function %s for signature %s", 
              sQuote(fdef@generic), sQuote(cnames)), domain = NA)
      }
      else stop("Internal error in finding inherited methods; didn't return a unique method", 
          domain = NA)
  })(list(structure("Move", package = "move"), structure("missing", package = "methods")), 
      new("standardGeneric", .Data = function (x, y, ...) 
      standardGeneric("distance"), generic = structure("distance", package = "terra"), 
          package = "terra", group = list(), valueClass = character(0), 
          signature = c("x", "y"), default = NULL, skeleton = (function (x, 
              y, ...) 
          stop("invalid call in method dispatch to 'distance' (no default method)", 
              domain = NA))(x, y, ...)), <environment>)`: unable to find an inherited method for function 'distance' for signature '"Move", "missing"'
  Backtrace:
       █
    1. ├─testthat::expect_s4_class(...) test.getWindEstimates.R:4:2
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─moveWindSpeed::getWindEstimates(...)
    5. └─moveWindSpeed::getWindEstimates(...)
    6.   └─base::mapply(...)
    7.     └─(function (...) ...
    8.       └─base::tryCatch(...)
    9.         └─base:::tryCatchList(expr, classes, parentenv, handlers)
   10.           └─base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   11.             └─value[[3L]](cond)
  ── Error (test.getWindEstimates.R:77:3): groundspeedchar ───────────────────────
  Error in `(function (classes, fdef, mtable) 
  {
      methods <- .findInheritedMethods(classes, fdef, mtable)
      if (length(methods) == 1L) 
          return(methods[[1L]])
      else if (length(methods) == 0L) {
          cnames <- paste0("\"", vapply(classes, as.character, 
              ""), "\"", collapse = ", ")
          stop(gettextf("unable to find an inherited method for function %s for signature %s", 
              sQuote(fdef@generic), sQuote(cnames)), domain = NA)
      }
      else stop("Internal error in finding inherited methods; didn't return a unique method", 
          domain = NA)
  })(list(structure("Move", package = "move"), structure("missing", package = "methods")), 
      new("standardGeneric", .Data = function (x, y, ...) 
      standardGeneric("distance"), generic = structure("distance", package = "terra"), 
          package = "terra", group = list(), valueClass = character(0), 
          signature = c("x", "y"), default = NULL, skeleton = (function (x, 
              y, ...) 
          stop("invalid call in method dispatch to 'distance' (no default method)", 
              domain = NA))(x, y, ...)), <environment>)`: unable to find an inherited method for function 'distance' for signature '"Move", "missing"'
  Backtrace:
      █
   1. ├─base::unlist(lapply(speed(storks), c, NA)) test.getWindEstimates.R:77:2
   2. ├─base::lapply(speed(storks), c, NA)
   3. ├─move::speed(storks)
   4. └─move::speed(storks)
   5.   └─base::lapply(split(x), speed)
   6.     ├─move:::FUN(X[[i]], ...)
   7.     └─move:::FUN(X[[i]], ...)
   8.       └─terra::distance(x)
   9.         └─(function (classes, fdef, mtable) ...
  ── Error (test.getWindEstimates.R:124:3): isfocalfunction ──────────────────────
  Error in `(function (classes, fdef, mtable) 
  {
      methods <- .findInheritedMethods(classes, fdef, mtable)
      if (length(methods) == 1L) 
          return(methods[[1L]])
      else if (length(methods) == 0L) {
          cnames <- paste0("\"", vapply(classes, as.character, 
              ""), "\"", collapse = ", ")
          stop(gettextf("unable to find an inherited method for function %s for signature %s", 
              sQuote(fdef@generic), sQuote(cnames)), domain = NA)
      }
      else stop("Internal error in finding inherited methods; didn't return a unique method", 
          domain = NA)
  })(list(structure("Move", package = "move"), structure("missing", package = "methods")), 
      new("standardGeneric", .Data = function (x, y, ...) 
      standardGeneric("distance"), generic = structure("distance", package = "terra"), 
          package = "terra", group = list(), valueClass = character(0), 
          signature = c("x", "y"), default = NULL, skeleton = (function (x, 
              y, ...) 
          stop("invalid call in method dispatch to 'distance' (no default method)", 
              domain = NA))(x, y, ...)), <environment>)`: unable to find an inherited method for function 'distance' for signature '"Move", "missing"'
  Backtrace:
       █
    1. ├─testthat::expect_equal(...) test.getWindEstimates.R:124:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─moveWindSpeed::getWindEstimates(i, isFocalPoint = f)
    5. └─moveWindSpeed::getWindEstimates(i, isFocalPoint = f)
    6.   └─moveWindSpeed:::.local(data, timestamps = timestamps, ...)
    7.     ├─move::speed(data)
    8.     └─move::speed(data)
    9.       └─terra::distance(x)
   10.         └─(function (classes, fdef, mtable) ...
  
  [ FAIL 3 | WARN 0 | SKIP 0 | PASS 7 ]
  Error: Test failures
  Execution halted