Chained functions should keep track of visibility

[wch]

then functions currently don't pass along the visible attribute.

promise_resolve(invisible(1))$
  then(function(value) {
    print(withVisible(value))
  })
#> $value
#> [1] 1
#> 
#> $visible
#> [1] TRUE

But functions in R can do it:

f <- function(value) {
  print(withVisible(value))
}
f(invisible(1))
#> $value
#> [1] 1
#> 
#> $visible
#> [1] FALSE

So promises should do it as well.