# NOT RUN {
# Load a site's data
data_hafodyrynys <- get_saq_observations(
site = "gb1038a",
start = 2018,
end = 2018
)
# Print tibble
print(data_hafodyrynys)
# }
# NOT RUN {
# Get multiple sites nox and ozone data for between a date range
data_many <- get_saq_observations(
site = c("gb1014a", "gb1044a", "gb1060a"),
variable = c("nox", "no2", "o3"),
start = 2018,
end = 2022,
verbose = TRUE
)
# Print tibble
print(data_many)
# Sites and site names
data_many %>%
dplyr::distinct(site)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab