# NOT RUN {
# simple toy example
r <- raster::raster(nrow = 100, ncol = 100)
r[5025:5075] <- 1
raster::extent(r)
calc_full_extent(r)
# }
# NOT RUN {
# download example data
path <- ebirdst_download("example_data")
# or get the path if you already have the data downloaded
path <- get_species_path("example_data")
# load abundance data
abd <- load_raster(path, "abundance")
# calculate full extent
map_extent <- calc_full_extent(abd)
# plot
raster::plot(abd[[20]], axes = FALSE, ext = map_extent)
# }
Run the code above in your browser using DataLab