From c41ba718e91c346004d58741b73e7919356cb6d6 Mon Sep 17 00:00:00 2001 From: nwickel Date: Fri, 12 Jan 2024 09:50:21 +0100 Subject: [PATCH] Fixed bug with glossar argument --- R/create_eventlogs.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/create_eventlogs.R b/R/create_eventlogs.R index 18d635c..cf03160 100644 --- a/R/create_eventlogs.R +++ b/R/create_eventlogs.R @@ -27,7 +27,7 @@ create_eventlogs <- function(data, xmlpath = NULL, case_cutoff = 20, data$date <- as.POSIXct(data$date) } - if (!glossar & is.null(xmlpath)) { + if (glossar & is.null(xmlpath)) { stop("xmlpath is not specified and glossar = TRUE. Please enter the path to folder where XML definitions of items live.") } @@ -126,7 +126,7 @@ create_eventlogs <- function(data, xmlpath = NULL, case_cutoff = 20, dat7$glossar <- NULL } - if (save) save(dat, dat1, dat2, dat3, dat4, dat5, dat6, dat7, file = "../data/tmp_intermediate-df.RData") + if (save) save(dat, dat1, dat2, dat3, dat4, dat5, dat7, file = "../data/tmp_intermediate-df.RData") dat7 }