fix: remove order from filter_events()

FRBCesab · Mar 29, 2024 · 2322b80 · 2322b80
1 parent 7d2cdf4
commit 2322b80
Showing 1 changed file with 3 additions and 6 deletions.
diff --git a/R/filter_events.R b/R/filter_events.R
@@ -137,14 +137,11 @@ filter_events <- function(data, year = format(Sys.Date(), "%Y"),
   }
 
 
-  ## Order events by category (need to be improved) ----
+  ## Order events by category ----
 
   if (nrow(events) > 0) {
-
-    events$"order" <- ifelse(events$"category" == "Course", 1,
-                             ifelse(events$"category" == "Group", 2, 3))
-
-    events <- events[with(events, order(from, order, event)), ]
+
+    events <- events[with(events, order(from, to, event)), ]
 
     rownames(events) <- NULL
   }