From a2c233caa3dba2c41c38be19d5f2bf262b9e5a24 Mon Sep 17 00:00:00 2001
From: Daniel <mail@danielluedecke.de>
Date: Thu, 7 Sep 2023 18:18:01 +0200
Subject: [PATCH] scoping issue

---
 tests/testthat/test-recode_into.R | 23 ++++++++++++-----------
 1 file changed, 12 insertions(+), 11 deletions(-)

diff --git a/tests/testthat/test-recode_into.R b/tests/testthat/test-recode_into.R
index ebf541120..2f2b65e22 100644
--- a/tests/testthat/test-recode_into.R
+++ b/tests/testthat/test-recode_into.R
@@ -189,27 +189,28 @@ test_that("recode_into, make sure recode works with missing in original variable
   data(mtcars)
   mtcars$mpg[c(3, 10, 12, 15, 16)] <- NA
   mtcars$cyl[c(2, 15, 16)] <- NA
+  d <<- as.data.frame(mtcars)
   out1 <- recode_into(
-    mtcars$mpg > 20 & mtcars$cyl == 6 ~ 1,
-    mtcars$mpg <= 20 ~ 2,
-    mtcars$cyl == 4 ~ 3,
+    d$mpg > 20 & d$cyl == 6 ~ 1,
+    d$mpg <= 20 ~ 2,
+    d$cyl == 4 ~ 3,
     default = 0
   )
   out2 <- recode_into(
-    mtcars$mpg > 20 & mtcars$cyl == 6 ~ 1,
-    mtcars$mpg <= 20 ~ 2,
+    d$mpg > 20 & d$cyl == 6 ~ 1,
+    d$mpg <= 20 ~ 2,
     default = 0
   )
   out3 <- recode_into(
-    mtcars$mpg > 20 & mtcars$cyl == 6 ~ 1,
-    mtcars$mpg <= 20 ~ 2,
-    mtcars$cyl == 4 ~ 3,
+    d$mpg > 20 & d$cyl == 6 ~ 1,
+    d$mpg <= 20 ~ 2,
+    d$cyl == 4 ~ 3,
     default = 0,
     preserve_na = FALSE
   )
   out4 <- recode_into(
-    mtcars$mpg > 20 & mtcars$cyl == 6 ~ 1,
-    mtcars$mpg <= 20 ~ 2,
+    d$mpg > 20 & d$cyl == 6 ~ 1,
+    d$mpg <= 20 ~ 2,
     default = 0,
     preserve_na = FALSE
   )
@@ -238,7 +239,7 @@ test_that("recode_into, make sure recode works with missing in original variable
     )
   )
   expect_identical(
-    out3,
+    out4,
     c(
       1, 0, 0, 1, 2, 2, 2, 0, 0, 0, 2, 0, 2, 2, 0, 0, 2, 0, 0, 0,
       0, 2, 2, 2, 2, 0, 0, 0, 2, 2, 2, 0