sort sir history

man/get_episode.Rd

@@ -44,11 +44,12 @@ is_new_episode(df$date, episode_days = 60) # TRUE/FALSE
 df[which(get_episode(df$date, 60) == 3), ]
 
 # the functions also work for less than a day, e.g. to include one per hour:
-get_episode(c(
-  Sys.time(),
-  Sys.time() + 60 * 60
-),
-episode_days = 1 / 24
+get_episode(
+  c(
+    Sys.time(),
+    Sys.time() + 60 * 60
+  ),
+  episode_days = 1 / 24
 )
 
 \donttest{
@@ -85,7 +86,6 @@ if (require("dplyr")) {
     )
 }
 if (require("dplyr")) {
-
   # grouping on patients and microorganisms leads to the same
   # results as first_isolate() when using 'episode-based':
   x <- df \%>\%
@@ -102,7 +102,6 @@ if (require("dplyr")) {
   identical(x, y)
 }
 if (require("dplyr")) {
-
   # but is_new_episode() has a lot more flexibility than first_isolate(),
   # since you can now group on anything that seems relevant:
   df \%>\%