flow_rates <-
structure(list(site = c("Wildwood Creek Spring", "Wildwood Creek Spring", 
"Wildwood Creek Spring", "Wildwood Creek Spring", "Wildwood Creek Spring", 
"Wildwood Creek Spring", "Wildwood Creek Spring", "Wildwood Creek Spring", 
"Wildwood Creek Spring", "Wildwood Creek Spring", "Wildwood Creek Spring", 
"Wildwood Creek Spring", "Wildwood Creek Spring", "Silver Creek", 
"Silver Creek", "Silver Creek", "Silver Creek", "Silver Creek", 
"Clarks Creek", "Clarks Creek", "Clarks Creek", "Clarks Creek", 
"Clarks Creek", "Leach Creek", "Leach Creek", "Leach Creek", 
"Leach Creek", "Leach Creek", "Leach Creek", "Leach Creek", "Leach Creek"
), date = structure(c(17509, 17571, 17599, 17626, 17662, 17722, 
17752, 17786, 17814, 17848, 17872, 17906, 17944, 17439, 17652, 
17724, 17795, 18037, 17405, 17413, 17439, 17708, 17780, 17392, 
17418, 17670, 17738, 18008, 18009, 18049, 18057), class = "Date"), 
    flow = c(2.4900000000000002, 1.24, 1.0900000000000001, 0.94999999999999996, 
    0.48999999999999999, 0.059999999999999998, 0.089999999999999997, 
    0.10000000000000001, 0.11, 0.14999999999999999, 1.25, 1.8300000000000001, 
    0.26000000000000001, 0.42999999999999999, 0.88, 0.40999999999999998, 
    0.20999999999999999, 0.34000000000000002, 11.4, 21.77, 20, 
    31.57, 23.91, 11.890000000000001, 11.550000000000001, 16.899999999999999, 
    4.8600000000000003, 7.9000000000000004, 10.119999999999999, 
    6.7000000000000002, 7.7300000000000004)), class = c("spec_tbl_df", 
"tbl_df", "tbl", "data.frame"), row.names = c(NA, -31L), spec = structure(list(
    cols = list(site = structure(list(), class = c("collector_character", 
    "collector")), date = structure(list(), class = c("collector_character", 
    "collector")), flow = structure(list(), class = c("collector_double", 
    "collector"))), default = structure(list(), class = c("collector_guess", 
    "collector")), skip = 1L), class = "col_spec"))