diff --git a/R/end_season.R b/R/end_season.R index 7cbe246..56ab271 100644 --- a/R/end_season.R +++ b/R/end_season.R @@ -100,7 +100,7 @@ end_season <- function(data, date_time, station = NULL, year = NULL, rain = NULL dplyr::first(.data[[date_time]]))) } else { end_of_season <- end_of_season %>% - dplyr::summarise(end_season = ifelse(is.na(x=dplyr::first(wb)), + dplyr::summarise(end_season_doy = ifelse(is.na(x=dplyr::first(wb)), NA, dplyr::first(.data[[doy]])), end_season_date = dplyr::if_else(is.na(x=dplyr::first(wb)),