функция приемника с помощью Future.callr

Question

у меня есть этоRсценарий:

тест.Р

      library(future.callr)   
plan(callr)

executeInternalActivity<-function(){

 sink(file = "output.txt",append = TRUE)    
 print(Sys.time())
 Sys.sleep(3)
 print(Sys.time())    
 sink()

}

executeInternalActivity()    
#future({executeInternalActivity()})

Когдаtest.Rвыполняется:source("test.R")(Обратите внимание на вызов ), создается правильно

      [root@db1 Rscripts]# cat output.txt
[1] "2023-08-27 15:51:25 GMT"
[1] "2023-08-27 15:51:28 GMT"

Однако, если мы изменим вызов наexecuteInternalActivityсделать это сfuture:

      #executeInternalActivity()
future({executeInternalActivity()})

... а затем выполните его:

      source("test.R")

Только первыйprintпоявляется в файле:

      [root@db1 Rscripts]# cat output.txt
[1] "2023-08-27 16:10:55 GMT"

Я хочу, чтобы все отпечатки появлялись вoutput.txtфайл. Как я могу это исправить?