Update flood_divide.R

R/flood_divide.R

@@ -56,7 +56,7 @@ flood_divide <- function(df, ...) {
   date <- df$date
   if ("time" %in% names(df)) date <- df$time
   df <- df[order(date)]
-  info_group <- detect_flood_events(date, df$Q, ...)
+  detect_flood_events(date, df$Q, ...) # info_group
 }
 
 #' @rdname flood_divide