Fix 'set_ts_hydro' when 'step' different from the default values
The time series returned by the set_ts_hydro()
function does not start from the right time date when step != NULL
in get_ts_hydro()
.
Indeed, the function return the requested dates of the time series, while the PHyC returned the last date of the aggregated time step.
ts_flow <- get_ts_hydro(code = "Y430651001",
metric = "QmnJ", step = 2,
date_start = "2009-02-01",
date_end = "2009-06-01")
ts_flow
## QmnJ (l/s) time series of 54 timesteps (1 discontinuities)
## Feature code: Y430651001
## Requested period: start: 2009-02-01 end: 2009-06-01
## First 10 time steps:
## v t md s q m c
## 1 1650 2009-02-14 <NA> 16 20 10 1
## 2 1450 2009-02-16 <NA> 16 20 10 0
## 3 1350 2009-02-18 <NA> 16 20 10 0
## 4 1240 2009-02-20 <NA> 16 20 10 0
## 5 1170 2009-02-22 <NA> 16 20 10 0
## 6 1100 2009-02-24 <NA> 16 20 10 0
## 7 1000 2009-02-26 <NA> 16 20 10 0
## 8 944 2009-02-28 <NA> 16 20 10 0
## 9 887 2009-03-02 <NA> 16 20 10 0
## 10 950 2009-03-04 <NA> 16 20 10 0
Currently the function returns:
set_ts_hydro(ts_flow)
## QmnJ (l/s) time series of 61 timesteps (100.0 % of NAs)
## Feature code: Y430651001
## Requested period: start: 2009-02-01 end: 2009-06-01
## First 10 time steps:
## v t md s q m c
## 1 NA 2009-02-01 <NA> <NA> <NA> <NA> <NA>
## 2 NA 2009-02-03 <NA> <NA> <NA> <NA> <NA>
## 3 NA 2009-02-05 <NA> <NA> <NA> <NA> <NA>
## 4 NA 2009-02-07 <NA> <NA> <NA> <NA> <NA>
## 5 NA 2009-02-09 <NA> <NA> <NA> <NA> <NA>
## 6 NA 2009-02-11 <NA> <NA> <NA> <NA> <NA>
## 7 NA 2009-02-13 <NA> <NA> <NA> <NA> <NA>
## 8 NA 2009-02-15 <NA> <NA> <NA> <NA> <NA>
## 9 NA 2009-02-17 <NA> <NA> <NA> <NA> <NA>
## 10 NA 2009-02-19 <NA> <NA> <NA> <NA> <NA>
But it should return:
set_ts_hydro(ts_flow)
## QmnJ (l/s) time series of 61 timesteps (11.5 % of NAs)
## Feature code: Y430651001
## Requested period: start: 2009-02-02 end: 2009-06-02
## First 10 time steps:
## v t md s q m c
## 1 NA 2009-02-02 <NA> <NA> <NA> <NA> <NA>
## 2 NA 2009-02-04 <NA> <NA> <NA> <NA> <NA>
## 3 NA 2009-02-06 <NA> <NA> <NA> <NA> <NA>
## 4 NA 2009-02-08 <NA> <NA> <NA> <NA> <NA>
## 5 NA 2009-02-10 <NA> <NA> <NA> <NA> <NA>
## 6 NA 2009-02-12 <NA> <NA> <NA> <NA> <NA>
## 7 1650 2009-02-14 <NA> 16 20 10 1
## 8 1450 2009-02-16 <NA> 16 20 10 0
## 9 1350 2009-02-18 <NA> 16 20 10 0
## 10 1240 2009-02-20 <NA> 16 20 10 0