2023-09-12 17:49:35 +02:00
|
|
|
path <- "C:/Users/nwickelmaier/Nextcloud/Documents/MDS/2023ss/60100_master_thesis/data/ContentEyevisit/eyevisit_cards_light"
|
2023-09-01 15:01:54 +02:00
|
|
|
|
2023-09-12 17:49:35 +02:00
|
|
|
setwd(path)
|
2023-09-01 15:01:54 +02:00
|
|
|
|
|
|
|
|
# artwork names
|
2023-09-12 17:49:35 +02:00
|
|
|
dat0 <- read.table("../../event_logfiles.csv", sep = ";", header = TRUE)
|
|
|
|
|
dat0$artwork <- sprintf("%03d", dat0$artwork)
|
2023-09-01 15:01:54 +02:00
|
|
|
artworks <- sort(unique(dat0$artwork))
|
|
|
|
|
|
2023-09-12 17:49:35 +02:00
|
|
|
# extract topics
|
|
|
|
|
topics <- extract_topics(artworks, paste0(artworks, ".xml"), path)
|
2023-09-01 15:01:54 +02:00
|
|
|
|
2023-09-12 17:49:35 +02:00
|
|
|
write.table(topics, file = "../../topics.csv", sep = ";", row.names = FALSE)
|
2023-09-01 15:01:54 +02:00
|
|
|
|
2023-09-12 17:49:35 +02:00
|
|
|
# TODO: Keep this file?
|
2023-09-01 15:01:54 +02:00
|
|
|
|
