Merge branch 'main' into 249-code_dependency

Author: averissimo

.pre-commit-config.yaml

@@ -6,7 +6,7 @@ default_language_version:
   python: python3
 repos:
   - repo: https://github.com/lorenzwalthert/precommit
-    rev: v0.4.3.9003
+    rev: v0.4.3.9009
     hooks:
       - id: style-files
         name: Style code with `styler`

DESCRIPTION

@@ -1,8 +1,8 @@
 Type: Package
 Package: teal.code
 Title: Code Storage and Execution Class for 'teal' Applications
-Version: 0.6.1.9000
-Date: 2025-02-14
+Version: 0.6.1.9001
+Date: 2025-05-20
 Authors@R: c(
     person("Dawid", "Kaledkowski", , "[email protected]", role = c("aut", "cre")),
     person("Aleksander", "Chlebowski", , "[email protected]", role = "aut"),

NEWS.md

@@ -1,4 +1,4 @@
-# teal.code 0.6.1.9000
+# teal.code 0.6.1.9001
 
 ### Bug fixes
 

R/qenv-eval_code.R

@@ -98,7 +98,14 @@ 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, "=") && identical(typeof(v), "language")) {
+        # typeof(`=`) is language, but it doesn't dispatch on it, so we need to
+        # explicitly pass it as first class of the object
+        class(v) <- unique(c("language", class(v)))
+      }
+      eval_code(u, v)
+    }, init = object, x = code)
   }
 })
 

inst/WORDLIST

@@ -1,7 +1,4 @@
 Forkers
 Hoffmann
-Reproducibility
 funder
 qenv
-repo
-reproducibility

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 # nolintr: assigment. styler: off.
+    })
+  })
+
+  testthat::it("multiple '=' expressions", {
+    q <- qenv()
+    q <- within(q, {
+      j = 2 # nolintr: assigment. styler: off.
+      i = 1 # nolintr: assigment. styler: off.
+    })
+    testthat::expect_equal(q$i, 1)
+  })
+})