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

## -----------------------------------------------------------------------------
# elevation <- bluertopo(
#   aoi,
#   layers = "elevation"
# )

## -----------------------------------------------------------------------------
# all_layers <- bluertopo(
#   aoi,
#   layers = "all",
#   details = TRUE
# )
# 
# names(all_layers$data)

## -----------------------------------------------------------------------------
# assets <- bluertopo_download(
#   aoi,
#   path = file.path(tempdir(), "bluertopo-downloads"),
#   rat = TRUE
# )
# 
# subset(assets, asset_type == "rat")

## -----------------------------------------------------------------------------
# result <- bluertopo(aoi, details = TRUE)
# result$provenance$vertical_reference_text