## ----include=FALSE------------------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>", eval = FALSE)

## -----------------------------------------------------------------------------
# library(bluertopo)
# 
# aoi <- vect("project_area.gpkg")
# 
# # Or a bbox: c(xmin, ymin, xmax, ymax) in EPSG:4326.
# aoi <- c(xmin = -74.045, ymin = 40.675, xmax = -73.995, ymax = 40.715)

## -----------------------------------------------------------------------------
# library(sf)
# 
# aoi_sf <- st_read("project_area.gpkg", quiet = TRUE)
# bathy <- bluertopo(aoi_sf)

## -----------------------------------------------------------------------------
# tiles <- bluertopo_tiles(aoi)
# 
# as.data.frame(tiles)[
#   c("tile_id", "resolution_m", "delivered_date", "selection_reason")
# ]

## -----------------------------------------------------------------------------
# result <- bluertopo(aoi, details = TRUE)
# 
# result$data
# result$downloads
# result$coverage

## -----------------------------------------------------------------------------
# all_layers <- bluertopo(
#   aoi,
#   layers = "all",
#   coverage = "fill"
# )

## -----------------------------------------------------------------------------
# bathy_10m <- bluertopo(
#   aoi,
#   resolution = "native",
#   output_crs = "EPSG:26918",
#   output_resolution = 10,
#   combine = "single"
# )