no need to deparse

Author: m7pr

R/qenv-eval_code.R

@@ -57,7 +57,7 @@ setMethod("eval_code", signature = c("qenv", "character"), function(object, code
             message = sprintf(
               "%s \n when evaluating qenv code:\n%s",
               .ansi_strip(conditionMessage(e)),
-              deparse1(current_code)
+              current_code
             ),
             class = c("qenv.error", "try-error", "simpleError"),
             trace = unlist(c(object@code, list(current_code)))

tests/testthat/test-qenv_eval_code.R

@@ -88,7 +88,7 @@ testthat::test_that("an error when calling eval_code returns a qenv.error object
     unname(q$trace),
     c("x <- 1", "y <- 2", "z <- w * x")
   )
-  testthat::expect_equal(q$message, "object 'w' not found \n when evaluating qenv code:\n\"z <- w * x\"")
+  testthat::expect_equal(q$message, "object 'w' not found \n when evaluating qenv code:\nz <- w * x")
 })
 
 testthat::test_that(

tests/testthat/test-qenv_get_code.R

@@ -43,7 +43,7 @@ testthat::test_that("get_code called with qenv.error returns error with trace in
   testthat::expect_equal(class(code), c("validation", "try-error", "simpleError", "error", "condition"))
   testthat::expect_equal(
     code$message,
-    "object 'v' not found \n when evaluating qenv code:\n\"w <- v\"\n\ntrace: \n x <- 1\n y <- x\n w <- v\n"
+    "object 'v' not found \n when evaluating qenv code:\nw <- v\n\ntrace: \n x <- 1\n y <- x\n w <- v\n"
   )
 })