library(tidyverse)
library(cubble)
water <- water_clean %>%
pivot_wider(names_from = parameter, values_from = value) %>%
as_cubble(key = station, index = date, coords = c(long, lat))
usethis::use_data(water, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.