# \donttest{
library(maps) #a convenient source of maps
library(sf)
temp_dir <- file.path(tempdir(), "BIEN_temp")
#Download ranges
Abies_poly <- OpenRange_api_load_species(species = "Abies_amabilis")
#Plotting files
plot(Abies_poly[,1])#plots the range, but doesn't mean much without any reference
map('world', fill = TRUE, col = "grey")#plots a world map (WGS84 projection), in grey
plot(Abies_poly,col="forest green",add=TRUE) #adds the range to the map
#Getting data from the files
Abies_poly |>
st_drop_geometry()
# }
Run the code above in your browser using DataLab