## code to prepare `stations` dataset goes here
library(dplyr)
library(tidyr)
Stations <- zooper::stations%>%
mutate(Station=paste(Source, Station))%>%
filter(Source!="YBFMP")%>%
drop_na(Latitude, Longitude)%>%
select(-Source)
usethis::use_data(Stations, overwrite=T)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.