R/30_gadm_getBbox.R

In GADMTools: Easy Use of 'GADM' Maps

# gadm_getBB.gadm_sf ------------------------------------------------------
# =========================================================================
gadm_getBbox.gadm_sf <- function(x) {
  sf::st_bbox(x$sf)
}

# gadm_getBbox.gadm_sp ------------------------------------------------------
# =========================================================================
gadm_getBbox.gadm_sp <- function(x) {
  bbox(x$spdf)
}