fix: regression and adds test

Author: averissimo

R/qenv-eval_code.R

@@ -100,7 +100,13 @@ setMethod("eval_code", signature = c("qenv", "expression"), function(object, cod
   if (length(srcref)) {
     eval_code(object, code = paste(attr(code, "wholeSrcref"), collapse = "\n"))
   } else {
-    eval_code(object, code = paste(lang2calls(code), collapse = "\n"))
+    eval_code(
+      object,
+      code = paste(
+        collapse = "\n",
+        vapply(lang2calls(code), deparse1, collapse = "\n", character(1L))
+      )
+    )
   }
 })
 

tests/testthat/test-qenv_eval_code.R

@@ -172,3 +172,8 @@ testthat::test_that("comments passed alone to eval_code that contain @linksto ta
     "x"
   )
 })
+
+testthat::test_that("Code executed with integer shorthand (1L) is the same as original", {
+  q <- eval_code(qenv(), quote(a <- 1L))
+  testthat::expect_identical(get_code(q), "a <- 1L")
+})