R/mtt
R/mtt
0
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixed bug with glossar argument

Browse Source
This commit is contained in:
Nora Wickelmaier 2024-01-12 09:50:21 +01:00
parent ec45877229
commit c41ba718e9
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
R/create_eventlogs.R
View File

@ -27,7 +27,7 @@ create_eventlogs <- function(data, xmlpath = NULL, case_cutoff = 20,
data$date <- as.POSIXct(data$date) 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.") 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 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 dat7
} }