if (FALSE) {
library(sf)
library(mapme.biodiversity)
mapme_options(
outdir = NULL,
verbose = FALSE
)
aoi <- system.file("extdata", "sierra_de_neiba_478140_2.gpkg",
package = "mapme.biodiversity"
) %>%
read_sf() %>%
get_resources(
get_soilgrids(
layers = "clay",
depths = "0-5cm",
stats = "mean"
)
) %>%
calc_indicators(
calc_soilproperties(engine = "extract", stats = c("mean", "median"))
) %>%
portfolio_long()
aoi
}
Run the code above in your browser using DataLab