qenv.error: cannot add bindings to a locked environment when evaluating qenv code:

[m7pr]

What happened?

When creating an S4 class inside eval_code you get an error that you cannot add bindings to a locked environment

library(teal.data)
library(teal.code)
code <- c(
  "setClass('aclass', slots = c(a = 'numeric', x = 'numeric', y = 'numeric')) # @linksto a x",
  "x <- new('aclass', a = 1:3, x = 1:3, y = 1:3)",
  "a <- new('aclass', a = 1:3, x = 1:3, y = 1:3)",
  "a@x <- a@y",
  "a@x <- a@x + 2",
  "a@x <- x@a"
)
tdata <- eval_code(teal_data(), code)
tdata

<qenv.error: cannot add bindings to a locked environment 
 when evaluating qenv code:
setClass("aclass", slots = c(a = "numeric", x = "numeric", y = "numeric"))>