Added sorting of data frame at end of function

2024-01-22 10:46:51 +01:00 · 2024-01-22 10:46:51 +01:00 · 83fbcc0f3d
commit 83fbcc0f3d
parent b595c261c5
1 changed files with 1 additions and 0 deletions
--- 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
 }