From 83fbcc0f3d0b5c86ee208a68fe063b3236eec7af Mon Sep 17 00:00:00 2001
From: nwickel <n.wickelmaier@iwm-tuebingen.de>
Date: Mon, 22 Jan 2024 10:46:51 +0100
Subject: [PATCH] Added sorting of data frame at end of function

---
 R/create_eventlogs.R | 1 +
 1 file changed, 1 insertion(+)

diff --git a/R/create_eventlogs.R b/R/create_eventlogs.R
index 906952d..cddc37e 100644
--- a/R/create_eventlogs.R
+++ b/R/create_eventlogs.R
@@ -127,6 +127,7 @@ create_eventlogs <- function(data, xmlpath = NULL, case_cutoff = 20,
     dat7$glossar <- NULL
   }
 
+  dat7 <- dat7[order(dat7$fileId.start, dat7$date.start, dat7$timeMs.start), ]
   if (save) save(dat, dat1, dat2, dat3, dat4, dat5, dat7, file = "results/tmp_intermediate-df.RData")
   dat7
 }