path <- "C:/Users/nwickelmaier/Nextcloud/Documents/MDS/2023ss/60100_master_thesis/data/ContentEyevisit/eyevisit_cards_light"

setwd(path)

# artwork names
dat0 <- read.table("../../event_logfiles.csv", sep = ";", header = TRUE)
dat0$artwork <- sprintf("%03d", dat0$artwork)
artworks <- sort(unique(dat0$artwork))

# extract topics
topics <- extract_topics(artworks, paste0(artworks, ".xml"), path)

write.table(topics, file = "../../topics.csv", sep = ";", row.names = FALSE)

# TODO: Keep this file?