From 83e47c56ee4336714895d771e29ce210a9a4d886 Mon Sep 17 00:00:00 2001
From: nwickel <n.wickelmaier@iwm-tuebingen.de>
Date: Sun, 29 Oct 2023 10:30:00 +0100
Subject: [PATCH] Small bug fixes

---
 R/add_trace.R           |  2 +-
 R/create_eventlogs.R    |  2 +-
 man/create_eventlogs.Rd | 12 +++++++++++-
 3 files changed, 13 insertions(+), 3 deletions(-)

diff --git a/R/add_trace.R b/R/add_trace.R
index 9e011f8..d59d942 100644
--- a/R/add_trace.R
+++ b/R/add_trace.R
@@ -40,7 +40,7 @@ add_trace_glossar <- function(subdata, xmlpath) {
 
   cat("\n\n########## Creating glossar dictionary ##########", "\n")
   artworks      <- unique(subdata$artwork[subdata$artwork != "glossar"])
-  glossar_files <- unique(dat[dat$artwork == "glossar", "popup"])
+  glossar_files <- unique(subdata[subdata$artwork == "glossar", "popup"])
   lut           <- create_glossardict(artworks, glossar_files, xmlpath = xmlpath)
   inside        <- glossar_files[glossar_files %in%
                                  names(lut[sapply(lut, length) == 1])]
diff --git a/R/create_eventlogs.R b/R/create_eventlogs.R
index 032144a..4e51380 100644
--- a/R/create_eventlogs.R
+++ b/R/create_eventlogs.R
@@ -13,7 +13,7 @@
 #' removed. Default is TRUE.
 #' @param glossar Logical indicating if glossar folder is present and if it
 #' should be taken into account when preprocessing raw log files. Default
-#' is TRUE.
+#' is FALSE.
 #' @return Data frame.
 #' @export
 #' @examples
diff --git a/man/create_eventlogs.Rd b/man/create_eventlogs.Rd
index 4fb935c..aa8de43 100644
--- a/man/create_eventlogs.Rd
+++ b/man/create_eventlogs.Rd
@@ -4,7 +4,13 @@
 \alias{create_eventlogs}
 \title{Creating log events from raw log files.}
 \usage{
-create_eventlogs(data, xmlpath, case_cutoff = 20, rm_nochange_moves = TRUE)
+create_eventlogs(
+  data,
+  xmlpath = NULL,
+  case_cutoff = 20,
+  rm_nochange_moves = TRUE,
+  glossar = FALSE
+)
 }
 \arguments{
 \item{data}{Data frame of raw log files created with \code{parse_logfiles()}.
@@ -18,6 +24,10 @@ different cases should be.}
 \item{rm_nochange_moves}{Logical. Should move events that record no
 change, meaning distance and rotationDegree are 0 and scaleSize is 1, be
 removed. Default is TRUE.}
+
+\item{glossar}{Logical indicating if glossar folder is present and if it
+should be taken into account when preprocessing raw log files. Default
+is FALSE.}
 }
 \value{
 Data frame.