diff --git a/R/qenv-get_code.R b/R/qenv-get_code.R index a345cf9d1..5e8fe048c 100644 --- a/R/qenv-get_code.R +++ b/R/qenv-get_code.R @@ -50,7 +50,7 @@ setMethod("get_code", signature = "qenv.error", function(object, ...) { sprintf( "%s\n\ntrace: \n %s\n", conditionMessage(object), - paste(lang2calls(object$trace), collapse = "\n ") + paste(object$trace, collapse = "\n ") ), class = c("validation", "try-error", "simpleError") ) diff --git a/tests/testthat/test-qenv_get_code.R b/tests/testthat/test-qenv_get_code.R index 9166b1b0b..099f0a36f 100644 --- a/tests/testthat/test-qenv_get_code.R +++ b/tests/testthat/test-qenv_get_code.R @@ -41,6 +41,6 @@ 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:\nw <- v\n\ntrace: \n c(\"x <- 1\", \"y <- x\", \"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" ) })