Site Data Import from Water Quality Portal

Returns a list of sites from the Water Quality Portal web service. This function gets the data from: https://www.waterqualitydata.us. Arguments to the function should be based on https://www.waterqualitydata.us/webservices_documentation. The return from this function returns the basic metadata on WQP sites. It is generally faster than the whatWQPdata function, but does not return information on what data was collected at the site.

Usage

whatWQPsamples(..., convertType = TRUE)

whatWQPmetrics(..., convertType = TRUE)

whatWQPsites(..., legacy = FALSE)

Arguments

...

see https://www.waterqualitydata.us/webservices_documentation for a complete list of options. A list of arguments can also be supplied. One way to figure out how to construct a WQP query is to go to the "Advanced" form in the Water Quality Portal: https://www.waterqualitydata.us/#mimeType=csv&providers=NWIS&providers=STORET Use the form to discover what parameters are available. Once the query is set in the form, scroll down to the "Query URL". You will see the parameters after "https://www.waterqualitydata.us/#". For example, if you chose "Nutrient" in the Characteristic Group dropdown, you will see characteristicType=Nutrient in the Query URL. The corresponding argument for dataRetrieval is characteristicType = "Nutrient". dataRetrieval users do not need to include mimeType, and providers is optional (these arguments are picked automatically).

convertType

logical, defaults to TRUE. If TRUE, the function will convert the data to dates, datetimes, numerics based on a standard algorithm. If false, everything is returned as a character.

legacy

Logical. If TRUE, use legacy WQP services. Default is FALSE.

Value

data frame

Details

The readWQPsummary function has

See also

whatWQPdata readWQPsummary

whatNWISdata

Examples

# \donttest{

site1 <- whatWQPsamples(siteid = "USGS-01594440")

type <- "Stream"

sites <- whatWQPsamples(countycode = "US:55:025", siteType = type)

lakeSites_samples <- whatWQPsamples(siteType = "Lake, Reservoir, Impoundment",
                                    countycode = "US:55:025")
# }
# \donttest{

type <- "Stream"

sites <- whatWQPmetrics(countycode = "US:55:025", siteType = type)
#> NEWS: Legacy profile requested, and no equivalent/similar WQX 3.0
#> profile currently exists. Legacy profiles do not include USGS data newer
#> than March 11, 2024. 
#> More details: 
#> https://doi-usgs.github.io/dataRetrieval/articles/Status.html
lakeSites_metrics <- whatWQPmetrics(siteType = "Lake, Reservoir, Impoundment",
                                    countycode = "US:55:025")
#> NEWS: Legacy profile requested, and no equivalent/similar WQX 3.0
#> profile currently exists. Legacy profiles do not include USGS data newer
#> than March 11, 2024. 
#> More details: 
#> https://doi-usgs.github.io/dataRetrieval/articles/Status.html
# }
# \donttest{

site1 <- whatWQPsites(siteid = "USGS-01594440")

type <- "Stream"
sites <- whatWQPsites(
  countycode = "US:55:025",
  characteristicName = "Phosphorus",
  siteType = type
)
# }