# \donttest{
saguaro_poly <- OpenRange_load_species("Carnegiea gigantea")
#Create a temp directory
temp_dir <- file.path(tempdir(), "BIEN_temp")
#Get range maps for all species with ranges that overlap the range range of saguaros
OpenRange_sf(sf = saguaro_poly,
directory = temp_dir)
#Note that this will save many sfs to the directory (or working directory)
# }
Run the code above in your browser using DataLab