Enable user to discover water system ID when supplied a county of interest

get_water_system(county = NULL)

Arguments

county

county

Examples

get_water_system(county = "ALAMEDA")
#> # A tibble: 24 x 3 #> psid water_system_name county #> <chr> <chr> <chr> #> 1 0103040 NORRIS CANYON PROPERTY OWNERS ASSN ALAMEDA #> 2 0103041 TRAILER HAVEN MOBILE HOME PARK ALAMEDA #> 3 0105002 RIVERS END MARINA ALAMEDA #> 4 0105003 CEMEX/ELIOT PLANT ALAMEDA #> 5 0105008 CASTLEWOOD DOMESTIC WATER SYSTEM ALAMEDA #> 6 0105009 MOUNTAIN HOUSE SCHOOL ALAMEDA #> 7 0105010 EBRPD - DEL VALLE REGIONAL PARK ALAMEDA #> 8 0105012 EBRPD - SUNOL REGIONAL WILDERNESS ALAMEDA #> 9 0105013 EBRPD - REDWOOD SPRING REGIONAL PARK ALAMEDA #> 10 0105016 MOUNTAIN HOUSE BAR ALAMEDA #> # … with 14 more rows