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

Added argument glossar so that glossar entries can be ignored completely

Browse Source
This commit is contained in:
Nora Wickelmaier 2023-10-25 16:19:15 +02:00
parent 64241bf5f9
commit ee35481130
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
R/create_eventlogs.R
View File

@ -11,17 +11,20 @@
#' @param rm_nochange_moves Logical. Should move events that record no #' @param rm_nochange_moves Logical. Should move events that record no
#' change, meaning distance and rotationDegree are 0 and scaleSize is 1, be #' change, meaning distance and rotationDegree are 0 and scaleSize is 1, be
#' removed. Default is TRUE. #' removed. Default is TRUE.
#' @param glossar Logical indicating of glossar folder is present and if it
#' should be taken into account when preprocessing raw log files. Default
#' is FALSE.
#' @return Data frame. #' @return Data frame.
#' @export #' @export
#' @examples #' @examples
#' # tbd #' # tbd
create_eventlogs <- function(data, xmlpath, case_cutoff = 20, rm_nochange_moves = TRUE) { create_eventlogs <- function(data, xmlpath, case_cutoff = 20, rm_nochange_moves = TRUE,
glossar = FALSE) {
if (!lubridate::is.POSIXt(data$date)){ if (!lubridate::is.POSIXt(data$date)){
cat("########## Converting variable `date` to POSIXct ##########", "\n") cat("########## Converting variable `date` to POSIXct ##########", "\n")
data$date <- as.POSIXct(data$date) data$date <- as.POSIXct(data$date)
} }
data$glossar <- ifelse(data$artwork == "glossar", 1, 0)
# Remove irrelevant events # Remove irrelevant events
dat <- subset(data, !(data$event %in% c("Start Application", dat <- subset(data, !(data$event %in% c("Start Application",
@ -30,7 +33,9 @@ create_eventlogs <- function(data, xmlpath, case_cutoff = 20, rm_nochange_moves
artworks <- unique(stats::na.omit(dat$artwork)) artworks <- unique(stats::na.omit(dat$artwork))
# Create glossar dictionary ############################################## # Create glossar dictionary ##############################################
if ("glossar" %in% artworks) { if (glossar) {
dat$glossar <- ifelse(dat$artwork == "glossar", 1, 0)
cat("\n########## Creating glossar dictionary ##########", "\n") cat("\n########## Creating glossar dictionary ##########", "\n")
artworks <- artworks[artworks != "glossar"] artworks <- artworks[artworks != "glossar"]
glossar_files <- unique(subset(dat, dat$artwork == "glossar")$popup) glossar_files <- unique(subset(dat, dat$artwork == "glossar")$popup)
@ -117,6 +122,8 @@ create_eventlogs <- function(data, xmlpath, case_cutoff = 20, rm_nochange_moves
} }
dat5 <- dat4[!dat4$trace %in% fragments, ] dat5 <- dat4[!dat4$trace %in% fragments, ]
if (!glossar) dat5$glossar <- NULL
dat5 dat5
} }