R/obj_powell_mead_elevations.R

In Martin-McCoy/BORdata: Bureau of Reclamation Data

#' @export
powell_mead_elevations <-
structure(list(Reservoir = c("Powell", "Powell", "Powell", "Powell", 
"Powell", "Powell", "Mead", "Mead", "Mead", "Mead", "Mead", "Mead", 
"Mead", "Mead"), `Elevation Description` = c("Full Pool", "Upper Elevation Balancing Tier", 
"Mid Elevation Release Tier", "Lower Elevation Balancing Tier", 
"Minimum Power Pool", "Dead Pool", "Full Pool", "Normal Condition", 
"Tier 1 Shortage Condition", "Tier 2 Shortage Condition", "Tier 3 Shortage Condition", 
"Minimum Power Pool", "Dead Pool", "1,090"), Operator = c(NA, 
NA, NA, "<", NA, NA, NA, ">=", "<=", "<=", "<=", NA, NA, NA), 
    `Elevation (ft)` = c(3700, 3575, 3525, 3525, 3490, 3370, 
    1229, 1090, 1075, 1050, 1025, 950, 895, 1090), `Current RiverViz Elevs.` = c(NA, 
    NA, "X", NA, "X", NA, NA, "X", "X", "X", NA, NA, NA, "X: Unknown, 1000’"
    ), `Proposed RiverViz Elevs.` = c(NA, "X", "X", NA, "X", 
    "X", NA, "X", "X", "X", "X", "X", "X", NA)), class = c("tbl_df", 
"tbl", "data.frame"), row.names = c(NA, -14L))