Apply suggestions from code review

Co-authored-by: André Veríssimo <[email protected]>
Signed-off-by: Dawid Kałędkowski <[email protected]>

Author: gogonzo

R/qenv-get_outputs.R

@@ -21,13 +21,9 @@
 #' @export
 setGeneric("get_outputs", function(object) standardGeneric("get_outputs"))
 
-
-
 setMethod("get_outputs", signature = "qenv", function(object) {
   Reduce(
-    function(x, y) {
-      c(x, attr(y, "outputs"))
-    },
+    function(x, y) c(x, attr(y, "outputs")),
     init = list(),
     x = object@code
   )

tests/testthat/test-get_outputs.R

@@ -37,4 +37,8 @@ testthat::describe("get_output", {
     expected <- simpleMessage("test\n", call = quote(message("test")))
     testthat::expect_identical(get_outputs(q1), list(expected))
   })
+  testthat::it("prints inside for are bundled together", {
+    q <- within(qenv(), for (i in 1:3) print(i))
+    testthat::expect_identical(get_outputs(q)[[1]], "[1] 1\n[1] 2\n[1] 3\n")
+  })
 })