powered by
Retrieve Japanese gauge data
japan( site, variable = "discharge", start_date = NULL, end_date = NULL, sites = FALSE, ... )
data frame of discharge time-series
Japanese gauge number
Character. Either stage or discharge.
stage
discharge
Character. Optional start date with format YYYY-MM-DD. Default is 1900-01-01.
Character. End date with format YYYY-MM-DD. Default is the current date.
Logical. If TRUE, returns a list of measurement sites.
Additional arguments. None implemented.
if (FALSE) { start_date <- as.Date("2019-01-01") end_date <- as.Date("2022-12-31") df <- japan("301011281104010", "discharge", start_date, end_date) plot(df$Date, df$Q, type='l') }
Run the code above in your browser using DataLab