1

我想在 R 未来调用中打印调试信息，以显示有关某些过程（例如复制文件）需要多长时间的信息。

future::plan(future::multisession)

copyInBackground <- function(from, to, overwrite = FALSE) {
  future::future( {
    jamba::printDebug("Starting ...")
    fs::file_copy(path = path.expand(from),
                  new_path = path.expand(to),
                  overwrite = overwrite)
    jamba::printDebug("Done.") 
      }
    )
}

copyInBackground(from = "~/test.png", to = "H:/test/", overwrite = TRUE)

test <- copyInBackground(from = "~/test.png", to = "H:/test/", overwrite = TRUE)
future::value(test)

我的期望：文件被复制，控制台输出带有来自jamba::printDebug.

如果我直接调用该函数，我会获得有关 MultisessionFuture 的一些信息；只有当我检索到test对象的值时，我才会得到时间戳。

该功能有没有办法立即将输出打印到控制台，或者至少在作业完成后自动打印输出？

4

0 回答 0