Use consistent file naming scheme

UPPMAX · Nov 29, 2024 · beb3bd9 · beb3bd9
1 parent fd3b681
commit beb3bd9
Show file tree

Hide file tree

Showing 6 changed files with 18 additions and 4 deletions.
diff --git a/evaluations/2024_autumn/analyse_confidences.R b/evaluations/2024_autumn/analyse_confidences.R
@@ -39,14 +39,21 @@ get_example_header_friday <- function() {
 
 # Take the raw string from a CSV file and convert it tp clean header names
 header_to_names <- function(header) {
+  temp_filename <- tempfile()
+  readr::write_lines(x = header, file = temp_filename)
+  t <- readr::read_csv(file = temp_filename, show_col_types = FALSE)
+  header_strs <- names(t)
 
-  header_strs_as_table <- read.csv(textConnection(header), header = FALSE)
-  header_strs <- as.character(header_strs_as_table[1, ])
-  # testthat::expect_equal(stringr::str_count(header_strs, "\""), 0)
+  header_strs <- stringr::str_replace(header_strs, "\"latest\"", "'latest'")
+
+  #header_strs_as_table <- read.csv(textConnection(header), header = FALSE)
+  #header_strs <- as.character(header_strs_as_table[1, ])
+  testthat::expect_equal(sum(stringr::str_count(header_strs, "\"")), 0)
   remove_strs <- c(
     "I am confidant that...: ", 
     "I feel confident I can: ", 
     "How comfortable am I with\\?: ",
+    "How confident am I\\?: ",
     "I feel confident that :: ",
     "Confidence level: ",
     "confidence level: ",
@@ -61,7 +68,14 @@ header_to_names <- function(header) {
 testthat::expect_equal(c("A", "B"), header_to_names(header = "A,B"))
 
 testthat::expect_equal(0, sum(stringr::str_count(header_to_names(get_example_header_monday()), "I feel")))
-testthat::expect_equal(0, sum(stringr::str_count(header_to_names(get_example_header_tuesday()), "How comfortable")))
+
+header_to_names(get_example_header_monday())
+
+testthat::expect_equal(0, sum(stringr::str_count(header_to_names(header = get_example_header_tuesday()), "How comfortable")))
+testthat::expect_equal(0, sum(stringr::str_count(header_to_names(header = get_example_header_tuesday()), "confident")))
+
+header_to_names(get_example_header_tuesday())
+
 testthat::expect_equal(0, sum(stringr::str_count(header_to_names(get_example_header_wednesday()), "confident")))
 testthat::expect_equal(0, sum(stringr::str_count(header_to_names(get_example_header_wednesday()), "confident")))
 header_to_names(get_example_header_wednesday())

diff --git a/...ns/2024_autumn/FinalConfidenceReport.xlsx → ...tions/2024_autumn/confidences_friday.xlsx b/...ns/2024_autumn/FinalConfidenceReport.xlsx → ...tions/2024_autumn/confidences_friday.xlsx
diff --git a/...s/2024_autumn/Confidence measurement.xlsx → ...tions/2024_autumn/confidences_monday.xlsx b/...s/2024_autumn/Confidence measurement.xlsx → ...tions/2024_autumn/confidences_monday.xlsx
diff --git a/...ions/2024_autumn/Thursday_confidence.xlsx → ...ons/2024_autumn/confidences_thursday.xlsx b/...ions/2024_autumn/Thursday_confidence.xlsx → ...ons/2024_autumn/confidences_thursday.xlsx
diff --git a/...autumn/Tuseday_confidence_measurment.xlsx → ...ions/2024_autumn/confidences_tuesday.xlsx b/...autumn/Tuseday_confidence_measurment.xlsx → ...ions/2024_autumn/confidences_tuesday.xlsx
diff --git a/...4_autumn/Confidence report Wednesday.xlsx → ...ns/2024_autumn/confidences_wednesday.xlsx b/...4_autumn/Confidence report Wednesday.xlsx → ...ns/2024_autumn/confidences_wednesday.xlsx