Introduction.R
In rATTAINS: Access EPA 'ATTAINS' Data

## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  warning = FALSE,
  message = TRUE
)
## setup vcr not sure I am doing this right.
library(vcr)
vcr::setup_knitr(dir = "_vcr")

## ----label=state_summary, message=FALSE, cassette=TRUE------------------------
library(rATTAINS)
x <- state_summary(organization_id = "SDDENR", reporting_cycle = "2024")
x

## ----huc12, message=FALSE, cassette=TRUE--------------------------------------
x <- huc12_summary("020700100204")
x

## ----domain_values, cassette=TRUE---------------------------------------------
x <- domain_values(domain_name = "OrgStateCode")
x

## ----domain_context, cassette=TRUE--------------------------------------------
x <- domain_values(domain_name = "UseName", context = "TCEQMAIN")
x