fix: creates special case for '='

Author: averissimo

R/qenv-eval_code.R

@@ -98,7 +98,13 @@ setMethod("eval_code", signature = c("qenv", "expression"), function(object, cod
   if (length(srcref)) {
     eval_code(object, code = paste(attr(code, "wholeSrcref"), collapse = "\n"))
   } else {
-    Reduce(eval_code, init = object, x = code)
+    Reduce(function(u, v) {
+      if (inherits(v, "=")) {
+        eval_code(object, paste(vapply(lang2calls(v), deparse1, collapse = "\n", character(1L)), collapse = "\n"))
+      } else {
+        eval_code(object = u, code = v)
+      }
+    }, init = object, x = code)
   }
 })
 

tests/testthat/test-qenv_within.R

@@ -131,3 +131,21 @@ testthat::test_that("within run on qenv.error returns the qenv.error as is", {
 
   testthat::expect_identical(qe, qee)
 })
+
+testthat::describe("within run with `=`", {
+  testthat::it("single expression", {
+    q <- qenv()
+    q <- within(q, {
+      i = 1
+    })
+  })
+
+  testthat::it("multiple expressions", {
+    q <- qenv()
+    q <- within(q, {
+      j <- 2
+      i = 1
+    })
+    testthat::expect_equal(q$i, 1)
+  })
+})