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