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

## ----checked-catalog, eval=TRUE-----------------------------------------------
library(tampaBayOpenData)

tampaBayOpenData::tbod_list_portals()[, c("id", "publisher", "jurisdiction")]
tampaBayOpenData::tbod_search_datasets("park", source = "checked")[,
  c("id", "title", "jurisdiction", "validation_status")]
tampaBayOpenData::tbod_dataset_info("construction-permits")[
  c("title", "scope_note", "verified")]

## ----live-discovery-----------------------------------------------------------
# found <- tbod_search_datasets("housing", source = "live", portals = "city")
# found[, c("id", "title", "publisher", "validation_status")]

## ----retrieve-----------------------------------------------------------------
# permits <- tbod_get_dataset(
#   "construction-permits",
#   where = "PROJECTSTATUS IS NOT NULL",
#   fields = c("RECORD_ID", "PROJECTSTATUS", "LASTUPDATE"),
#   limit = 100
# )
# head(permits)
# sort(table(permits$PROJECTSTATUS), decreasing = TRUE)

## ----discovered-retrieval-----------------------------------------------------
# if (nrow(found)) {
#   housing <- tbod_get_dataset(found[1, ], limit = 100)
#   tbod_provenance(housing)[c("publisher", "validation_status", "complete")]
# }

## ----spatial------------------------------------------------------------------
# projects <- tbod_get_dataset("development-cases", spatial = TRUE,
#                         out_sr = 4326)
# sf::st_crs(projects)$epsg

## ----provenance---------------------------------------------------------------
# source <- tbod_provenance(projects)
# saveRDS(list(data = projects, provenance = source),
#         "development-cases.rds")