From f98eb36484c48ddea6c6b998b09a0fcf8bd376f3 Mon Sep 17 00:00:00 2001
From: nwickel <n.wickelmaier@iwm-tuebingen.de>
Date: Mon, 30 Oct 2023 11:45:52 +0100
Subject: [PATCH] Removed unnecessary columns in create_eventlogs

---
 R/create_eventlogs.R | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/R/create_eventlogs.R b/R/create_eventlogs.R
index 4e51380..80f3d5c 100644
--- a/R/create_eventlogs.R
+++ b/R/create_eventlogs.R
@@ -89,6 +89,10 @@ create_eventlogs <- function(data, xmlpath = NULL, case_cutoff = 20,
     dat4$timeMs.start[which(dat4$fIdDiff > 0)] +
     dat4$timeMs.stop[which(dat4$fIdDiff > 0)]
 
+  dat4$fIdNum.start <- NULL
+  dat4$fIdNum.start <- NULL
+  dat4$fIdDiff      <- NULL
+
   # Remove fragmented traces ###############################################
   tab <- stats::xtabs( ~ trace + event, dat4)
 
@@ -119,7 +123,6 @@ create_eventlogs <- function(data, xmlpath = NULL, case_cutoff = 20,
     dat6b       <- dat6[!dat6$glossar == 1, ]
     dat7        <- rbind(dat5[!dat5$trace %in% rownames(event_dat)[frag_ids], ],
                          dat6b)
-    # TODO: Check me!
   } else {
     dat7 <- dat5
     dat7$glossar <- NULL