SanFranBeachWater is a little R package that downloads the Beach Water Quality Monitoring Program data that the the San Francisco Public Utilities Commission maintain here. The data can be downloaded in raw form, or tables for individual beaches can be downloaded.
devtools::install_github("RobertMyles/SanFranBeachWater")Get the data for China Beach:
library(SanFranBeachWater)
san_fran_china_beach()
#> Date Total_Coliform E_Coli Entero_coccus
#> 1 2017-06-05 20 0 0
#> 2 2017-05-30 20 0 0
#> 3 2017-05-22 41 10 10
#> 4 2017-05-15 10 0 0
#> 5 2017-05-08 30 0 0
#> 6 2017-05-01 0 0 0
#> 7 2017-04-24 171 0 0
#> 8 2017-04-17 110 20 0
#> 9 2017-04-10 110 0 0
#> 10 2017-04-03 41 20 0
#> 11 2017-03-27 98 0 10
#> 12 2017-03-24 132 20 0
#> 13 2017-03-20 0 0 0
#> 14 2017-03-13 20 20 0:poop:
Or alternatively, just get the status of the beach (“Open” or “Closed”):
san_fran_windsurfer_circle(status = TRUE)
#> [1] "Current Beach Status: Open"Sweet! :beach_umbrella: