library(readr)
df <- read_csv("data/Beach_Water_Samples_20260421.csv")
head(df)# A tibble: 6 × 6
`Sample ID` `Sample Date` `Beach Name` `Sample Location` `Enterococci Results`
<chr> <chr> <chr> <chr> <dbl>
1 KB25092208… 09/22/2025 SCHUYLER HI… Right 20
2 KB25092208… 09/22/2025 SCHUYLER HI… Center 9.9
3 KB25092208… 09/22/2025 SCHUYLER HI… Left 9.9
4 AC25091509… 09/15/2025 SCHUYLER HI… Center 9.9
5 AC25091509… 09/15/2025 SCHUYLER HI… Left 10
6 AC25091509… 09/15/2025 SCHUYLER HI… Right 9.9
# ℹ 1 more variable: `Units or Notes` <chr>