library(dplyr)
Dissolved_Oxygen <- readr::read_delim(file = here::here("data-raw/DO.txt"), delim = "|" ) %>%
mutate(`End Date` = as.Date(`End Date`, "%m/%d/%Y")) %>%
group_by(`Station ID`, `End Date`, `Parameter Code`, `Parameter Description`) %>%
summarise(Average_DO = mean(Value),
Min_DO = min(Value)) %>%
ungroup() %>%
rename(Station_ID = `Station ID`,
Date = `End Date`,
Param_Code = `Parameter Code`,
Param_Desc = `Parameter Description`)
devtools::use_data(Dissolved_Oxygen, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.