# NOT RUN {
# Load a site's data
data_hafodyrynys <- get_saq_observations(
site = "gb1038a",
start = 2018,
end = 2018
)
# Keep only valid and hourly data
data_hafodyrynys_hourly <- data_hafodyrynys %>%
saq_clean_observations(summary = "hour", valid_only = TRUE) %>%
print()
# Spread hourly data, a different table format here
data_hafodyrynys_hourly_spread <- data_hafodyrynys %>%
saq_clean_observations(summary = "hour", valid_only = TRUE, spread = TRUE) %>%
print()
# }
Run the code above in your browser using DataLab