feat: prevent assignment to qenv.error

Author: averissimo

NAMESPACE

@@ -1,7 +1,9 @@
 # Generated by roxygen2: do not edit by hand
 
 S3method("$",qenv.error)
+S3method("$<-",qenv.error)
 S3method("[[",qenv.error)
+S3method("[[<-",qenv.error)
 S3method(within,qenv)
 S3method(within,qenv.error)
 export(concat)

R/qenv-get_var.R

@@ -70,3 +70,14 @@ setMethod("[[", signature = c("qenv", "ANY"), function(x, i) {
   }
   result
 }
+
+#' @export
+`[[<-.qenv.error` <- function(x, name, value) {
+  stop(errorCondition(
+    list(message = conditionMessage(x)),
+    class = c("validation", "try-error", "simpleError")
+  ))
+}
+
+#' @export
+`$<-.qenv.error` <- `[[<-.qenv.error`

tests/testthat/test-qenv_get_var.R

@@ -1,4 +1,4 @@
-testthat::test_that("get_var, `$` and `[[`return error if object is qenv.error", {
+testthat::test_that("get_var, `$` and `[[` return error if object is qenv.error", {
   q <- eval_code(qenv(), quote(x <- 1))
   q <- eval_code(q, quote(y <- w * x))
 
@@ -53,3 +53,11 @@ testthat::test_that("get_var, `$` and `[[` only returns objects from qenv, not .
   testthat::expect_null(q[["iris"]])
   testthat::expect_null(q$iris)
 })
+
+testthat::test_that("`$<-` and `[[<-` always return error", {
+  q <- eval_code(qenv(), quote(x <- 1))
+  q <- eval_code(q, quote(y <- w * x))
+
+  testthat::expect_error(q[["x2"]] <- 3, "when evaluating qenv code")
+  testthat::expect_error(q$x2 <- 3, "when evaluating qenv code")
+})