- simplify Reduce call

- fix R CMD check

Author: gogonzo

R/qenv-eval_code.R

@@ -103,7 +103,7 @@ setMethod("eval_code", signature = c("qenv", "expression"), function(object, cod
   if (length(srcref)) {
     eval_code(object, code = paste(attr(code, "wholeSrcref"), collapse = "\n"))
   } else {
-    Reduce(function(object, x) eval_code(object, x), init = object, x = code)
+    Reduce(eval_code, init = object, x = code)
   }
 })
 

tests/testthat/test-qenv_eval_code.R

@@ -43,6 +43,8 @@ testthat::test_that("eval_code works with expression", {
   q1 <- eval_code(qenv(), expression(a <- 1, b <- 2))
   testthat::expect_identical(get_code(q1), "a <- 1\nb <- 2")
   testthat::expect_equal(q1, list2env(list(a = 1, b = 2)))
+})
+
 testthat::test_that("eval_code preserves original formatting when `srcref` is present in the expression", {
   code <- "# comment
   a <- 1L"