fix function: expect_equal_tbls, in section 14.3.1 (#1025)

hadley · Oct 6, 2023 · 33295e6 · 33295e6
1 parent b23a3e4
commit 33295e6
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/testing-design.Rmd b/testing-design.Rmd
@@ -470,10 +470,10 @@ compare_tbl <- function(x, y, label = NULL, expected.label = NULL) {
 expect_equal_tbls <- function(results, ref = NULL, ...) {
   # code that gets things ready ...
 
-  for (i in seq_along(rest)) {
+  for (i in seq_along(results)) {
     compare_tbl(
-      rest[[i]], ref,
-      label = names(rest)[[i]],
+      results[[i]], ref,
+      label = names(results)[[i]],
       expected.label = ref_name
     )
   }