From c0fc14997d1f50803d33ef06e861009ad37cab55 Mon Sep 17 00:00:00 2001
From: Andrew Heiss <andrew@andrewheiss.com>
Date: Mon, 3 Jun 2024 12:21:25 -0400
Subject: [PATCH] Fix Windows line breaks for real this time

---
 tests/testthat/helper.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/testthat/helper.R b/tests/testthat/helper.R
index d966542..2d58588 100644
--- a/tests/testthat/helper.R
+++ b/tests/testthat/helper.R
@@ -69,7 +69,7 @@ extract_output <- function(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
+  # Remove Windows's \r linebreaks from the output 
   actual_output <- gsub("\r\n", "\n", actual_output)
   
   actual_output