BORdata: Bureau of Reclamation Data

crb_dams <-
list(`Main Stem` = structure(list(Name = c("Morelos Dam", "Laguna Diversion Dam", 
"Imperial Dam", "Palo Verde Dam", "Headgate Rock Dam", "Parker Dam", 
"Davis Dam", "Hoover Dam", "Glen Canyon Dam", "Price-Stubb Dam", 
"Grand Valley Diversion Dam", "Windy Gap Dam", "Granby Dam", 
"Shadow Mountain Dam", "Total"), State = c("AZ BC", "AZ CA", 
"AZ CA", "AZ CA", "AZ CA", "AZ CA", "AZ NV", "AZ NV", "AZ", 
"CO", "CO", "CO", "CO", "CO", ""), Owner = c("IBWC", "USBR", 
"USBR", "USBR", "BIA", "USBR", "USBR", "USBR", "USBR", "PCID[n 2]MCID[n 3]", 
"USBR", "Northern Water", "USBR", "USBR", ""), Purpose = c("Irrigation", 
"Diversion", "Irrigation", "Diversion", "Irrigation", "HydropowerIrrigationMunicipal", 
"HydropowerRegulation", "Flood controlHydropowerIrrigationMunicipalRegulation", 
"HydropowerRegulation", "Irrigation", "Irrigation", "IrrigationMunicipal", 
"IrrigationMunicipal", "IrrigationMunicipal", ""), Yearcompleted = c(1950L, 
1905L, 1938L, 1958L, 1941L, 1938L, 1951L, 1936L, 1966L, 1911L, 
1916L, 1970L, 1950L, 1946L, NA), Reservoir = c("N/A", "N/A", 
"Imperial Reservoir", "N/A", "Moovalya Lake", "Lake Havasu", 
"Lake Mohave", "Lake Mead", "Lake Powell", "N/A", "N/A", "Windy Gap Reservoir", 
"Lake Granby", "Shadow Mountain Lake", ""), `Capacity(MW)` = c(NA, 
NA, NA, NA, 19, 120, 255, 2079, 1296, NA, 3, NA, NA, NA, 3772
), Refs = c("[1]", "[2]", "[n 1][3]", "[4]", "[5][6]", "[7]", 
"[8][9]", "[10][11]", "[12][13]", "[n 4][14]", "[15]", "[16]", 
"[17]", "[18]", ""), `ResCapacity(AF)` = c(NA, NA, 160000, NA, 
NA, 646200, 1818300, 28945000, 26214900, NA, NA, 445, 539800, 
18400, 58343045), `AnnualGeneration(MWh)` = c(NA, NA, NA, NA, 
NA, 456944, 1147673, 3806935, 3454847, NA, 19350, NA, NA, NA, 
8885749)), row.names = c(NA, -15L), class = c("tbl_df", "tbl", 
"data.frame")), `Upper Basin` = structure(list(Name = c("Blue Mesa Dam", 
"Dillon Dam", "Flaming Gorge Dam", "Fontenelle Dam", "Green Mountain Dam", 
"Joes Valley Dam", "McPhee Dam", "Morrow Point Dam", "Navajo Dam", 
"Ridges Basin Dam", "Ridgway Dam", "Ruedi Dam", "Scofield Dam", 
"Soldier Creek Dam", "Starvation Dam", "Taylor Park Dam", "Vallecito Dam", 
"Vega Dam", "Williams Fork Dam", "Wolford Mountain Dam", "Total"
), State = c("CO", "CO", "UT", "WY", "CO", "UT", "CO", "CO", 
"NM", "CO", "CO", "CO", "UT", "UT", "UT", "CO", "CO", "CO", "CO", 
"CO", ""), Stream = c("Gunnison", "Blue", "Green", "Green", "Blue", 
"Seely Cr.", "Dolores", "Gunnison", "San Juan", "Offstream", 
"Uncompahgre", "Fryingpan", "Price", "Strawberry", "Strawberry", 
"Taylor", "Los Pinos River", "Plateau Creek", "Williams Fork", 
"Muddy Cr.", ""), Owner = c("USBR", "Denver Water", "USBR", "USBR", 
"USBR", "USBR", "USBR", "USBR", "USBR", "USBR", "USBR", "USBR", 
"USBR", "USBR", "USBR", "USBR", "USBR", "USBR", "Denver Water", 
"CRWCD[n 6]", ""), Purpose = c("Flood controlHydropowerRegulation", 
"IrrigationMunicipal", "Flood controlHydropowerRegulation", "Flood controlIrrigation", 
"HydropowerRegulation", "IrrigationMunicipal", "Flood controlIrrigation", 
"Hydropower", "Flood controlIrrigationMunicipalRegulation", "Irrigation", 
"Flood controlIrrigation", "IrrigationMunicipal", "IrrigationMunicipal", 
"IrrigationMunicipal", "Irrigation", "Irrigation", "Irrigation", 
"Irrigation", "IrrigationMunicipal", "IrrigationMunicipal", ""
), Yearcompleted = c(1966L, 1963L, 1964L, 1964L, 1943L, 1966L, 
1984L, 1968L, 1962L, 2007L, 1987L, 1968L, 1946L, 1974L, 1970L, 
1937L, 1941L, 1959L, 1959L, 1996L, NA), Reservoir = c("Blue Mesa Reservoir", 
"Dillon Reservoir", "Flaming Gorge Reservoir", "Fontenelle Reservoir", 
"Green Mountain Reservoir", "Joes Valley Reservoir", "McPhee Reservoir", 
"Morrow Point Reservoir", "Navajo Lake", "Lake Nighthorse", "Ridgway Reservoir", 
"Ruedi Reservoir", "Scofield Reservoir", "Strawberry Reservoir", 
"Starvation Reservoir", "Taylor Park Reservoir", "Vallecito Reservoir", 
"Vega Reservoir", "Williams Fork Reservoir", "Wolford Mountain Reservoir", 
""), `Capacity(MW)` = c(86, 1, 153, 10, 21, NA, 1, 173, 32, NA, 
NA, NA, NA, NA, NA, NA, NA, NA, 3, NA, 482), Refs = c("[19]", 
"[20][21]", "[22]", "[23]", "[24][25]", "[26]", "[27][28]", "[29][30]", 
"[n 5][31][32]", "[33]", "[34]", "[35]", "[36]", "[37]", "[38]", 
"[39]", "[40]", "[41]", "[42]", "[43]", ""), `ResCapacity(AF)` = c(940700, 
257304, 3788700, 345360, 153639, 54920, 381195, 117190, 1708600, 
120000, 84410, 102000, 73600, 1127610, 167300, 106200, 129700, 
33800, 96822, 66000, 9821250), `AnnualGeneration(MWh)` = c(203412, 
NA, 344369, 67043, 60228, NA, 5335, 292887, 215000, NA, NA, NA, 
NA, NA, NA, NA, NA, NA, NA, NA, 1188274)), row.names = c(NA, 
-21L), class = c("tbl_df", "tbl", "data.frame")), `Lower Basin` = structure(list(
    Name = c("Alamo Dam", "Bartlett Dam", "Coolidge Dam", "Horse Mesa Dam", 
    "Horseshoe Dam", "Mormon Flat Dam", "New Waddell Dam", "Painted Rock Dam", 
    "Sand Hollow Dam", "Stewart Mountain Dam", "Theodore Roosevelt Dam", 
    "Total"), State = c("AZ", "AZ", "AZ", "AZ", "AZ", "AZ", "AZ", 
    "AZ", "UT", "AZ", "AZ", ""), Stream = c("Bill Williams", 
    "Verde", "Gila", "Salt", "Verde", "Salt", "Agua Fria", "Gila", 
    "Offstream", "Salt", "Salt", ""), Owner = c("USACE", "USBR", 
    "BIA", "USBR", "USBR", "USBR", "USBR", "USACE", "WCWCD[n 9]", 
    "USBR", "USBR", ""), Purpose = c("Flood control", "Flood controlIrrigation", 
    "Flood controlIrrigation", "HydropowerRegulation", "Flood controlRegulation", 
    "HydropowerRegulation", "IrrigationMunicipal", "Flood control", 
    "IrrigationMunicipal", "HydropowerRegulation", "Flood controlHydropowerIrrigationMunicipal", 
    ""), Yearcompleted = c(1968L, 1939L, 1930L, 1927L, 1946L, 
    1925L, 1994L, 1960L, 2002L, 1930L, 1911L, NA), Reservoir = c("Alamo Lake", 
    "Bartlett Lake", "San Carlos Lake", "Apache Lake", "Horseshoe Lake", 
    "Canyon Lake", "Lake Pleasant", "Painted Rock Reservoir", 
    "Sand Hollow Reservoir", "Saguaro Lake", "Theodore Roosevelt Lake", 
    ""), `Capacity(MW)` = c(NA, NA, NA, 129, NA, 60, 45, NA, 
    NA, 13, 36, 283), Refs = c("[44]", "[45]", "[46]", "[n 7][48]", 
    "[49]", "[n 8][50]", "[51]", "[52]", "[52]", "[n 10][53]", 
    "[n 11][54]", ""), `ResCapacity(AF)` = c(1043000, 176186, 
    910000, 245138, 131500, 57852, 1108600, 2491700, 51360, 69765, 
    2910200, 9195301), `AnnualGeneration(MWh)` = c(NA, NA, NA, 
    126900, NA, 65400, NA, NA, NA, 57700, 123900, 373900)), row.names = c(NA, 
-12L), class = c("tbl_df", "tbl", "data.frame")))