Hi Robert,
Would you have some update on this?
Actually, I was able to reproduce the problem even the R-upstream way -- logs pasted below, and hence this does not look
like an issue just for us. Any help is appreciated.
Regards,
Nilesh
```
> library('raster')
Loading required package: sp
> print(sessionInfo())
R version 4.1.2 (2021-11-01)
Platform: x86_64-pc-linux-gnu (64-bit)
Running under: Debian GNU/Linux bookworm/sid
Matrix products: default
BLAS: /usr/lib/x86_64-linux-gnu/blas/libblas.so.3.10.0
LAPACK: /usr/lib/x86_64-linux-gnu/lapack/liblapack.so.3.10.0
locale:
[1] LC_CTYPE=en_US.UTF-8 LC_NUMERIC=C
[3] LC_TIME=en_US.UTF-8 LC_COLLATE=en_US.UTF-8
[5] LC_MONETARY=en_US.UTF-8 LC_MESSAGES=en_US.UTF-8
[7] LC_PAPER=en_US.UTF-8 LC_NAME=C
[9] LC_ADDRESS=C LC_TELEPHONE=C
[11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C
attached base packages:
[1] stats graphics grDevices utils datasets methods base
other attached packages:
[1] raster_3.5-2 sp_1.4-5
loaded via a namespace (and not attached):
[1] compiler_4.1.2 Rcpp_1.0.7 codetools_0.2-18 grid_4.1.2
[5] lattice_0.20-45 terra_1.4-11
> print(.libPaths())
[1] "/home/nilesh/R/x86_64-pc-linux-gnu-library/4.1"
[2] "/usr/local/lib/R/site-library"
[3] "/usr/lib/R/site-library"
[4] "/usr/lib/R/library"
> library('testthat')
> test_check('satellite')
Loading required package: satellite
══ Skipped tests ════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════
• empty test (12)
══ Failed tests ═════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════
── Error (test-extend.R:9:1): (code run outside of `test_that()`) ───────────────────────────
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("Satellite", package = "satellite")), new("standardGeneric",
.Data = "" (x, y, ...)
standardGeneric("extend"), generic = structure("extend", 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 'extend' (no default method)",
domain = NA))(x, y, ...)), <environment>)`: unable to find an inherited method for function ‘extend’ for signature ‘"Satellite"’
Backtrace:
█
1. └─terra::extend(sat, ext_ggs) test-extend.R:9:0
2. └─(function (classes, fdef, mtable) ...
[ FAIL 1 | WARN 0 | SKIP 12 | PASS 139 ]
```