Don't convert query results to factors
Change-Id: Idfd468fedcfe2a4d7afa9fc73e3947cde6b040a4
diff --git a/R/KorAPQuery.R b/R/KorAPQuery.R
index d5894b2..c2d971f 100644
--- a/R/KorAPQuery.R
+++ b/R/KorAPQuery.R
@@ -297,13 +297,6 @@
currentMatches <-
res$matches %>%
dplyr::select(kqo@fields)
- if ("pubDate" %in% kqo@fields) {
- currentMatches$pubDate <- currentMatches$pubDate %>% as.Date(format = "%Y-%m-%d")
- factorCols <- currentMatches %>% select(-pubDate) %>% colnames()
- } else {
- factorCols <- colnames(currentMatches)
- }
- currentMatches[factorCols] <- lapply(currentMatches[factorCols], factor)
if (!is.list(collectedMatches)) {
collectedMatches <- currentMatches
} else {