Fix typo spotted by Claude

hadley · hadley · commit 3f1c8a9e1c71 · 2025-10-06T16:51:21.000-05:00
diff --git a/R/expect-constant.R b/R/expect-constant.R
@@ -86,7 +86,7 @@ expect_waldo_constant_ <- function(
     msg <- c(
       sprintf("Expected %s to be %s.", act$lab, exp$lab),
       "Differences:",
-      paste0(comp, collpase = "\n")
+      paste0(comp, collapse = "\n")
     )
     fail(msg, info = info, trace_env = trace_env)
   } else {
diff --git a/R/expect-equality.R b/R/expect-equality.R
@@ -151,7 +151,7 @@ expect_waldo_equal_ <- function(
     msg <- c(
       sprintf(msg, act$lab, exp$lab),
       "Differences:",
-      paste0(comp, collpase = "\n")
+      paste0(comp, collapse = "\n")
     )
     fail(msg, info = info, trace_env = trace_env)
   }

Original file line number	Diff line number	Diff line change
`@@ -86,7 +86,7 @@ expect_waldo_constant_ <- function(`
`86`	`86`	`msg <- c(`
`87`	`87`	`sprintf("Expected %s to be %s.", act$lab, exp$lab),`
`88`	`88`	`"Differences:",`
`89`		`- paste0(comp, collpase = "\n")`
	`89`	`+ paste0(comp, collapse = "\n")`
`90`	`90`	`)`
`91`	`91`	`fail(msg, info = info, trace_env = trace_env)`
`92`	`92`	`} else {`
Original file line number	Diff line number	Diff line change
`@@ -151,7 +151,7 @@ expect_waldo_equal_ <- function(`
`151`	`151`	`msg <- c(`
`152`	`152`	`sprintf(msg, act$lab, exp$lab),`
`153`	`153`	`"Differences:",`
`154`		`- paste0(comp, collpase = "\n")`
	`154`	`+ paste0(comp, collapse = "\n")`
`155`	`155`	`)`
`156`	`156`	`fail(msg, info = info, trace_env = trace_env)`
`157`	`157`	`}`