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