globalVariables(c("f", "predict", "value"))
# Package setup options
.onLoad <- function(libname, pkgname){
# options("rgdal_show_exportToProj4_warnings"="none")
# utils::data(euro.worldclim, package = pkgname,
# envir = parent.env(environment()))
# utils::data(iberolacerta.clade, package = pkgname,
# envir = parent.env(environment()))
euro.worldclim.terra <- terra::rast(euro.worldclim)
assign("euro.worldclim", euro.worldclim.terra, pos = asNamespace("ENMTools"))
y <- iberolacerta.clade
y$species <- lapply(iberolacerta.clade$species,
function(x) {
range <- terra::rast(x$range)
x$presence.points <- terra::vect(x$presence.points,
geom = c("Longitude", "Latitude"),
crs = terra::crs(range))
x$range <- range
x
})
assign("iberolacerta.clade", y, pos = asNamespace("ENMTools"))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.