oof Windows and your goofy linebreaks

andrewheiss · Jun 3, 2024 · 2978e25 · 2978e25
1 parent aa35f18
commit 2978e25
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/tests/testthat/helper.R b/tests/testthat/helper.R
@@ -68,6 +68,10 @@ extract_output <- function(raw_output) {
   start_index <- grep("^Overall totals:", raw_output)
   end_index <- grep("^Output created:", raw_output) - 1
   actual_output <- paste0(raw_output[start_index:end_index], collapse = "\n")
+
+  # Switch Windows-style \r\n linebreaks to \n
+  actual_output <- gsub("\r\n", "\n", actual_output)
+
   actual_output
 }