From 1bc065a37fe30438a891e96193921561f528b04b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?P=C3=A9ter=20Kir=C3=A1ly?= <pkiraly@gwdg.de>
Date: Mon, 13 Nov 2023 14:23:19 +0100
Subject: [PATCH] Selenium test related changes #354

---
 scripts/classifications/classifications-type.R | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/scripts/classifications/classifications-type.R b/scripts/classifications/classifications-type.R
index da935fc5b..06d88808b 100644
--- a/scripts/classifications/classifications-type.R
+++ b/scripts/classifications/classifications-type.R
@@ -21,7 +21,20 @@ csv <- sprintf("%s/%s.csv", output_dir, prefix)
 if (!file.exists(csv)) {
   stop(paste("input file", csv, "does not exist!"))
 }
-df <- read_csv(csv)
+df <- read_csv(
+        csv,
+        col_types=list(
+          id = col_double(),
+          field = col_character(),
+          location = col_character(),
+          scheme = col_character(),
+          abbreviation = col_character(),
+          abbreviation4solr = col_character(),
+          recordcount = col_double(),
+          instancecount = col_double(),
+          type = col_character()
+        )
+      )
 
 types <- df %>% 
   select(scheme, abbreviation, type) %>%