Nothing
source(system.file("extdata", "utils.R", package = "nhdplusTools"))
data_dir <- file.path(tempdir(check = TRUE), "nhdplusTools")
download_pkg_data("petapsco_flowlines.gpkg",
"https://doi-usgs.github.io/nhdplusTools/data/petapsco_flowlines.gpkg",
data_dir)
sample_flines <- sf::read_sf(file.path(data_dir, "petapsco_flowlines.gpkg"))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.