if (FALSE) {
library(whitewater)
yaak_river_dv <- ww_dvUSGS('12304500',
parameter_cd = '00060',
wy_month = 10)
yaak_river_iv <- ww_floorIVUSGS(yaak_river_dv)
#change floor method
yaak_river_iv <- ww_floorIVUSGS(yaak_river_dv,
options = wwOptions(floor_iv = '6-hour'))
#change number of days
yaak_river_iv <- ww_floorIVUSGS(yaak_river_dv,
options = wwOptions(floor_iv = '2-hour',
period = 365))
# get by date range
yaak_river_wy <- ww_floorIVUSGS(yaak_river_dv,
options = wwOptions(date_range = 'date_range',
dates = c('2022-03-01', '2022-05-11')))
# site status as 'active'
yaak_river_wy <- ww_floorIVUSGS(yaak_river_dv,
options = wwOptions(site_status = 'active',
date_range = 'date_range',
dates = c('2022-03-01', '2022-05-11')))
}
Run the code above in your browser using DataLab