Merge branch 'redesign@main' of https://github.com/insightsengineering/teal.code into redesign@main

Author: m7pr

R/qenv-eval_code.R

@@ -36,7 +36,6 @@ setGeneric("eval_code", function(object, code, label) {
 })
 
 setMethod("eval_code", signature = c("qenv", "character", "character"), function(object, code, label = "") {
-
   parsed_code <- parse(text = code, keep.source = TRUE)
   object@.xData <- rlang::env_clone(object@.xData, parent = parent.env(.GlobalEnv))
   if (length(parsed_code) == 0) {

tests/testthat/test-qenv_get_code.R

@@ -973,7 +973,7 @@ testthat::test_that("when labels are passed only code related to those labels is
 
 testthat::test_that("names are ignored when labels are provided", {
   q <- eval_code(qenv(), "a <- 1L", label = "code for a")
-  testthat::expect_identical(get_code(q, names = 'X', labels = "code for a"), "a <- 1L")
+  testthat::expect_identical(get_code(q, names = "X", labels = "code for a"), "a <- 1L")
 })
 
 testthat::test_that("it is possible to pass labels of length greater than 1", {