Error in `h(simpleError(msg, call))`: error in evaluating the argument 'x' in selecting a method for function 'rast': download from 'https://github.com/umr-amap/BIOMASS/raw/master/data-raw/climate_variable/E.zip' failed

skip(paste("The function", name, "is internal"))
coord <- apply(NouraguesCoords[c("Long","Lat")] , 2, mean) # compute the mean of the corner coordinates
expect_equal(computeE(cbind(12, 50)), 1.129928, tolerance = 0.1)
expect_error(computeE(cbind(long = -20, lat = 4)), "coordinate")
test_that("Without finding the order", {
expect_equivalent(unique(Taxo)[1:3,], fread(res, data.table = FALSE))
Taxo <- getTaxonomy(NouraguesTrees$Genus, findOrder = TRUE)
res <- "inputGenus      family      order
context("Internal function of HD model ")
data <- data.frame(H = retrieveH(D, coord = coord)$H, D = D)
for (method in c("log1", "log2", "weibull", "michaelis")) {
expect_length(predictHeight(D, HDmodel, err = err), length(D))
expect_is(predictHeight(D, HDmodel, err = err), "numeric")
H <- predictHeight(rep(10, 10), HDmodel, err = err)
test_that("predictHeigth with plot argument", {
expect_failure(expect_error(predictHeight(D, HDmodel, plot = "Plot1")))
expect_length(predictHeight(D, HDmodel, plot = "Plot1"), length(D))
predictHeight(D, HDmodel, plot = "Plot1"),
predictHeight(D, HDmodel, plot = "Plot2")
expect_error(predictHeight(D, HDmodel, plot = "AAA"), "Cannot")
expect_error(predictHeight(D, HDmodel, plot = c("Plot1", "Plot2")), "length")
plot <- rep(c("Plot1", "Plot2"), length.out = length(D))
Res <- predictHeight(D, HDmodel, plot = plot)
expect_failure(expect_equal(Res, predictHeight(D, HDmodel, plot = "Plot1")))
expect_equal(Res[plot == "Plot1"], predictHeight(D, HDmodel, plot = "Plot1")[plot == "Plot1"])
expect_equal(Res[plot == "Plot2"], predictHeight(D, HDmodel, plot = "Plot2")[plot == "Plot2"])
expect_failure(expect_equal(Res[plot == "Plot1"], predictHeight(D, HDmodel, plot = "Plot2")[plot == "Plot1"]))
expect_failure(expect_equal(Res[plot == "Plot2"], predictHeight(D, HDmodel, plot = "Plot1")[plot == "Plot2"]))
expect_equal(unique(computeFeldRegion(coord, level = "world")), "Pantropical")
computeFeldRegion(coord, level = rep(c("region", "continent", "world"), length.out = nrow(coord))),
rep(c("GuianaShield", "SEAsia", "Pantropical"), length.out = nrow(coord))
expect_error(computeFeldRegion(coord, level = c("region", "region")))
expect_equivalent(as.matrix(Y), sweep(as.matrix(X) %*% lis$rotation, 2, lis$translation, "+"))
for (i in c(1, 2, 4, 5)) expect_is(UTM[, i], "numeric")
expect_equal(unique(UTM[, 3]), "+proj=utm +zone=22 +north +ellps=WGS84 +datum=WGS84 +units=m +no_defs")