Small bug fixes

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])]

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

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.