Removed add_topic function and changed topicNumber to topic

R/close_events.R

@@ -9,21 +9,21 @@ close_events <- function(data, event = c("move", "flipCard", "openTopic", "openP
     "move" = {
       actions <- c("Transform start", "Transform stop")
       idvar   <- c("folder", "eventId", "artwork", "glossar")
-      drop    <- c("popup", "topicNumber", "trace", "event")
+      drop    <- c("popup", "topic", "trace", "event")
       ncol    <- 18
 
     },
     "flipCard" = {
       actions <- c("Show Info", "Show Front")
       idvar   <- c("folder", "trace", "eventId", "artwork", "glossar")
-      drop    <- c("popup", "topicNumber", "event")
+      drop    <- c("popup", "topic", "event")
       ncol    <- 19
 
     },
     "openTopic" = {
       actions <- c("Artwork/OpenCard", "Artwork/CloseCard")
       idvar   <- c("folder", "eventId", "trace", "glossar",
-                   "artwork", "topicNumber")
+                   "artwork", "topic")
       drop    <- c("popup", "event")
       ncol    <- 20
 
@@ -32,9 +32,9 @@ close_events <- function(data, event = c("move", "flipCard", "openTopic", "openP
       actions <- c("ShowPopup", "HidePopup")
       idvar   <- c("folder", "eventId", "trace", "glossar",
                    "artwork", "popup")
-      drop    <- c("topicNumber", "event")
+      drop    <- c("topic", "event")
       ncol    <- 20
-# TODO: Should topicNumber maybe also be filled in for "openPopup"?
+# TODO: Should topic maybe also be filled in for "openPopup"?
     }
   )
 
@@ -158,7 +158,7 @@ close_events <- function(data, event = c("move", "flipCard", "openTopic", "openP
                    c("fileId.start", "fileId.stop", "folder", "event",
                      "artwork", "trace", "glossar", "date.start",
                      "date.stop", "timeMs.start", "timeMs.stop",
-                     "duration", "topicNumber", "popup", "x.start",
+                     "duration", "topic", "popup", "x.start",
                      "y.start", "x.stop", "y.stop", "distance",
                      "scale.start", "scale.stop", "scaleSize",
                      "rotation.start", "rotation.stop", "rotationDegree")]
@@ -237,7 +237,7 @@ add_variables <- function(data_split_wide, ncol,
         },
         "openTopic" = {
            data_split_wide <- data_split_wide[, c("folder", "artwork",
-                                                  "topicNumber",
+                                                  "topic",
                                                   "glossar", "trace",
                                                   "eventId",
                                                   "fileId.start",

R/create_eventlogs.R

@@ -63,7 +63,7 @@ create_eventlogs <- function(data, xmlpath = NULL, case_cutoff = 20,
   dat3 <- dat3[, c("folder", "eventId", "case", "trace", "glossar",
                    "event", "artwork", "fileId.start", "fileId.stop",
                    "date.start", "date.stop", "timeMs.start",
-                   "timeMs.stop", "duration", "topicNumber", "popup",
+                   "timeMs.stop", "duration", "topic", "popup",
                    "x.start", "y.start", "x.stop", "y.stop", "distance",
                    "scale.start", "scale.stop", "scaleSize",
                    "rotation.start", "rotation.stop", "rotationDegree")]

R/extract_topics.R

@@ -32,7 +32,7 @@ extract_topics <- function(artworks, xmlfiles, xmlpath) {
         topic <- c(topic, gsub("^<card type=.(.*).>$", "\\1",
           grep("^<card type=",
             trimws(readLines(paste(xmlpath, artwork, fname, sep = "/"))),
-            value = T)))
+            value = TRUE)))
       )
     }
     out <- rbind(out, data.frame(artwork, file_name = fnames, topic))
@@ -41,52 +41,6 @@ extract_topics <- function(artworks, xmlfiles, xmlpath) {
 
   out <- out[order(out$artwork), ]
   rownames(out) <- NULL
-
-  out$index <- unlist(lapply(table(out$artwork), seq_len))
-  out
-}
-
-###########################################################################
-
-# Add topics: file names and topics
-
-add_topic <- function(data, topics) {
-
-  artworks <- unique(data$artwork)
-  tab_art <- lapply(artworks,
-               function(x) names(table(data$topicNumber[data$artwork == x])))
-  names(tab_art) <- artworks
-
-  tab_index <- lapply(tab_art, seq_along)
-
-  dat_split <- split(data, ~ artwork)
-
-  set_label <- function(x) {
-    artwork <- unique(x$artwork)
-    x$topicIndex <- factor(x$topicNumber, labels = tab_index[[artwork]])
-    x
-  }
-
-  dat_label <- lapply(dat_split, set_label)
-
-  set_topic <- function(x) {
-    artwork <- unique(x$artwork)
-    labels_file <- topics[topics$artwork == artwork,
-                          "file_name"][as.numeric(levels(x$topicIndex))]
-    x$topicFile <- as.character(factor(x$topicIndex, labels = labels_file))
-    labels_topic <- topics[topics$artwork == artwork,
-                          "topic"][as.numeric(levels(x$topicIndex))]
-    x$topic <- as.character(factor(x$topicIndex, labels = labels_topic))
-    x
-  }
-
-  dat_topic <- lapply(dat_label, set_topic)
-
-  #out <- do.call(rbind, dat_topic)
-  out <- dplyr::bind_rows(dat_topic)
-  out$topicIndex <- as.numeric(out$topicIndex)
-  out <- out[order(out$fileId.start, out$date.start, out$timeMs.start), ]
-  rownames(out) <- NULL
   out
 }
 

R/parse_logfiles.R

@@ -98,7 +98,7 @@ parse_logfiles <- function(folders, path, file = "rawdata_logfiles.csv",
   dat$event       <- events
   dat$artwork     <- trimws(sapply(strsplit(topics, "/"), function(x) x[1]))
   dat$popup       <- sapply(strsplit(topics, "/"), function(x) x[2])
-  dat$topicNumber <- card
+  dat$topic       <- card
   dat$x           <- moves[,1]
   dat$y           <- moves[,2]
   dat$scale       <- moves[,3]