if (FALSE) {
## Basic usage - get all available data
levels <- available_levels("08MF005")
## Multiple stations
levels <- available_levels(c("08MF005", "08NM116"))
## Get only recent data (last 2 years)
recent_levels <- available_levels(
"08MF005",
start_date = Sys.Date() - lubridate::years(2),
end_date = Sys.Date()
)
## Force use of web service (when HYDAT not available)
levels_ws <- available_levels("08MF005", hydat_path = FALSE)
}
Run the code above in your browser using DataLab