ok_reservoir() retrieves morphometric parameters for one or more
Oklahoma reservoirs from the bundled ok_reservoirs dataset.
Returns a data frame that can be used directly with ok_hydraulics().
Usage
ok_reservoir(
lake_name = NULL,
exact = FALSE,
ecoregion = NULL,
data_quality = c("A", "B")
)Arguments
- lake_name
Character. One or more lake names to look up. Partial matching is supported -
"Arcadia"will match"Arcadia Lake". Case-insensitive. IfNULL, returns all reservoirs (subject to other filters).- exact
Logical. If
TRUE, requires exact name match (case-insensitive). DefaultFALSE(partial matching).- ecoregion
Character. Filter results to a specific EPA Level III ecoregion name. Default
NULL(no filter).- data_quality
Character vector. Filter to specific data quality codes. Default
c("A", "B")(all).
Value
A data frame with one row per matched reservoir containing all
columns from ok_reservoirs.
Examples
# Look up a single lake (partial match)
ok_reservoir("Arcadia")
#> lake_name alt_name county managing_agency primary_use surface_area_ha
#> 1 Arcadia Lake <NA> Oklahoma City of Edmond Water Supply 716
#> mean_depth_m max_depth_m volume_m3 watershed_area_km2 eco_l3_code
#> 1 4.6 17.4 32900000 275 29
#> eco_l3_name latitude longitude year_completed data_quality
#> 1 Cross Timbers 35.647 -97.4178 1986 A
#> notes
#> 1 USACE Tulsa District
# Exact match
ok_reservoir("Arcadia Lake", exact = TRUE)
#> lake_name alt_name county managing_agency primary_use surface_area_ha
#> 1 Arcadia Lake <NA> Oklahoma City of Edmond Water Supply 716
#> mean_depth_m max_depth_m volume_m3 watershed_area_km2 eco_l3_code
#> 1 4.6 17.4 32900000 275 29
#> eco_l3_name latitude longitude year_completed data_quality
#> 1 Cross Timbers 35.647 -97.4178 1986 A
#> notes
#> 1 USACE Tulsa District
# Use in pipeline
res <- ok_reservoir("Arcadia Lake")
if (nrow(res) > 0) {
ok_load(inflow_m3yr = 45e6, tp_inflow_ugl = 120) |>
ok_hydraulics(
surface_area_ha = res$surface_area_ha[1],
mean_depth_m = res$mean_depth_m[1]
)
}
#> -- okBATHTUB Result --
#> Pipeline step : hydraulics
#> Segment : main
#> Coefficients : walker
#>
#> inflow_m3yr : 4.5e+07
#> tp_inflow_ugl : 120
#> tp_load_kgyr : 5400
#> surface_area_ha : 716
#> surface_area_m2 : 7.16e+06
#> mean_depth_m : 4.6
#> volume_m3 : 3.294e+07
#> outflow_m3yr : 4.5e+07
#> hydraulic_residence_time_yr : 0.7319
#> areal_water_load_myr : 6.285
# All Cross Timbers lakes with quality A data
ok_reservoir(ecoregion = "Cross Timbers", data_quality = "A")
#> lake_name alt_name county managing_agency
#> 1 Arcadia Lake <NA> Oklahoma City of Edmond
#> 3 Lake Texoma <NA> Marshall USACE
#> 5 Lake Thunderbird <NA> Cleveland Bureau of Reclamation
#> 7 Keystone Lake <NA> Pawnee USACE
#> 13 Lake Stanley Draper Stanley Draper Cleveland City of Oklahoma City
#> 14 Skiatook Lake <NA> Osage USACE
#> 15 Birch Lake <NA> Osage USACE
#> 16 Hulah Lake <NA> Osage USACE
#> 20 Lake McMurtry <NA> Payne City of Stillwater
#> 22 Lake Murray <NA> Carter Oklahoma Tourism
#> 31 Lake Wes Watkins <NA> Pottawatomie City of Shawnee
#> 32 Lake Konawa <NA> Seminole Public Service of Oklahoma
#> primary_use surface_area_ha mean_depth_m max_depth_m volume_m3
#> 1 Water Supply 716 4.6 17.4 3.290e+07
#> 3 Multipurpose 35840 11.6 30.5 4.150e+09
#> 5 Water Supply 2386 5.5 18.3 1.560e+08
#> 7 Multipurpose 10570 7.7 25.6 8.180e+08
#> 13 Water Supply 1296 7.2 16.8 9.330e+07
#> 14 Multipurpose 4350 11.5 32.6 5.000e+08
#> 15 Multipurpose 440 7.7 17.7 3.390e+07
#> 16 Multipurpose 1500 4.2 12.5 6.280e+07
#> 20 Water Supply 476 4.6 12.2 2.190e+07
#> 22 Recreation 2225 7.6 23.5 1.700e+08
#> 31 Water Supply 440 4.7 11.9 2.068e+07
#> 32 Cooling Pond 1370 5.8 16.8 7.950e+07
#> watershed_area_km2 eco_l3_code eco_l3_name latitude longitude
#> 1 275 29 Cross Timbers 35.6470 -97.4178
#> 3 103600 29 Cross Timbers 33.8186 -96.5747
#> 5 665 29 Cross Timbers 35.2231 -97.2331
#> 7 194300 29 Cross Timbers 36.1539 -96.2547
#> 13 228 29 Cross Timbers 35.3094 -97.3683
#> 14 910 29 Cross Timbers 36.3458 -96.0700
#> 15 162 29 Cross Timbers 36.5083 -96.3289
#> 16 1900 29 Cross Timbers 36.9319 -96.0903
#> 20 77 29 Cross Timbers 36.1622 -97.1408
#> 22 206 29 Cross Timbers 34.0578 -97.0653
#> 31 84 29 Cross Timbers 35.3508 -96.9533
#> 32 140 29 Cross Timbers 34.9286 -96.7461
#> year_completed data_quality notes
#> 1 1986 A USACE Tulsa District
#> 3 1944 A USACE Tulsa District
#> 5 1965 A USBR design
#> 7 1968 A USACE NID
#> 13 1963 A OKC Utilities
#> 14 1984 A USACE NID
#> 15 1977 A USACE NID
#> 16 1951 A USACE NID
#> 20 1973 A OKC Utilities
#> 22 1937 A USACE NID
#> 31 1991 A OKC Utilities
#> 32 1976 A NID