From f199be94b87bec748ce1d7e741b87d35d1c93d9f Mon Sep 17 00:00:00 2001 From: "louis.heraut" Date: Fri, 15 Jul 2022 12:05:33 +0200 Subject: [PATCH] remove package --- R/correction.R | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/R/correction.R b/R/correction.R index c308221..9914644 100644 --- a/R/correction.R +++ b/R/correction.R @@ -365,22 +365,22 @@ sampling_data = function (df_data, df_meta, hydroPeriod=c('05-01', '11-30'), Cod df_data = filter(df_data, (mStart < lubridate::month(Date) | (mStart == lubridate::month(Date) & - dStart <= day(Date))) + dStart <= lubridate::day(Date))) & (lubridate::month(Date) < mEnd | (lubridate::month(Date) == mEnd & - day(Date) <= dEnd)) + lubridate::day(Date) <= dEnd)) ) } else { df_data = filter(df_data, (lubridate::month(Date) < mEnd | (lubridate::month(Date) == mEnd & - day(Date) <= dEnd)) + lubridate::day(Date) <= dEnd)) | (mStart < lubridate::month(Date) | (mStart == lubridate::month(Date) & - dStart <= day(Date))) + dStart <= lubridate::day(Date))) ) }