Let async functions return invisibly

NEWS.md

@@ -1,5 +1,8 @@
 # coro (development version)
 
+* Async functions created by `coro::async()` now return their
+  `promises::promise()` invisibly (#46, @shikokuchuo).
+
 # coro 1.0.4
 
 * Internal fix for R-devel.

R/async.R

@@ -27,7 +27,7 @@
 #'
 #' @param fn An anonymous function within which `await()` calls are
 #'   allowed.
-#' @return A function that returns a [promises::promise()].
+#' @return A function that returns a [promises::promise()] invisibly.
 #'
 #' @seealso [async_generator()] and [await_each()];
 #'   [coro_debug()] for step-debugging.

R/generator.R

@@ -208,7 +208,7 @@ generator0 <- function(fn, type = "generator") {
 
       if (is_string(type, "async")) {
         # Step into the generator right away
-        instance(NULL)
+        invisible(instance(NULL))
       } else {
         structure(instance, class = "coro_generator_instance")
       }

tests/testthat/test-async.R

@@ -276,3 +276,14 @@ test_that("can await-assign with `=` (#29)", {
   })
   expect_equal(wait_for(fn()), 2)
 })
+
+test_that("async function returns invisibly (#46)", {
+  out <- NULL
+  fn <- async(function() {
+    for (i in 1:3) {
+      out <<- c(out, i)
+      await(i)
+    }
+  })
+  expect_invisible(fn())
+})

tests/testthat/test-generator.R

@@ -316,3 +316,16 @@ test_that("can yield-assign with `=` (#29)", {
   i()
   expect_equal(i("bar"), "bar")
 })
+
+test_that("stepping into generators returns visibly (#46)", {
+  generate_abc <- generator(function() {
+    yield("a")
+    yield("b")
+    "c"
+  })
+  abc <- generate_abc()
+  expect_visible(abc())
+  expect_visible(abc())
+  expect_visible(abc())
+  expect_visible(abc())
+})