simplify multiple spaces

ropensci · Apr 29, 2024 · 5fd0935 · 5fd0935
1 parent e2db3aa
commit 5fd0935
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/tests/testthat/test_extract_text.R b/tests/testthat/test_extract_text.R
@@ -6,6 +6,7 @@ test_that("Text can be extracted from the whole document", {
   txt <- extract_text(sf, encoding = "UTF-8")
   txt <- gsub("[\r\n]", " ", txt)
   txt <- gsub("\\s+$", "", txt)
+  txt <- gsub("\\s+", " ", txt)
   expect_identical(txt, "42 is the number from which the meaning of life, the universe, and everything can be derived. 42 is the number from which the meaning of life, the universe, and everything can be derived.")
 })