From e056664cfb8e8ac79e86b610725169f6abcf2380 Mon Sep 17 00:00:00 2001
From: Michael Chirico <michaelchirico4@gmail.com>
Date: Tue, 5 Dec 2023 14:58:08 +0800
Subject: [PATCH] Need fixed=TRUE

---
 .dev/lint_metadata_test.R | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

diff --git a/.dev/lint_metadata_test.R b/.dev/lint_metadata_test.R
index 1b8f2ca43..19c18ce87 100644
--- a/.dev/lint_metadata_test.R
+++ b/.dev/lint_metadata_test.R
@@ -5,13 +5,17 @@ library(testthat)
 
 xml_nodes_to_lints_file <- "R/xml_nodes_to_lints.R"
 
-xml_nodes_to_lints_file |>
-  readLines() |>
+original <- readLines(xml_nodes_to_lints_file)
+writeLines(
   sub(
-    pattern = "line_number = as.integer(line1)",
-    replacement = "line_number = as.integer(2^31 - 1)"
-  ) |>
-  writeLines(xml_nodes_to_lints_file)
+    "line_number = as.integer(line1)",
+    "line_number = as.integer(2^31 - 1)",
+    fixed = TRUE
+  ),
+  xml_nodes_to_lints_file
+)
+# Not useful in CI but good when running locally.
+withr::defer(writeLines(original, xml_nodes_to_lints_file))
 
 pkgload::load_all()