我正在寻找一种方法来捕获标准错误并将其重定向到 R(Shiny)中的标准输出。我在网上找不到任何信息。有办法吗?
答案1
此代码有效。服务器通过调用生成该代码的函数捕获 trueFalse 和 errorMessage,并使用服务器中的 renderText() 和 GUI 中的 textOutput() 显示它们
trueFalse = FALSE
# capture all the output to a file.
FILE <- file("log.txt", open = "wt")
sink(FILE)
sink(FILE, type = "message")
#try(log("a"))
try(message("Path does not exist. You can make changes to the PARAMS file. Afterwards, stop and restart glycoPipe"))
## revert output back to the console -- only then access the file!
sink(type = "message")
sink()
#file.show("log.txt")
errorMessage <- (readLines("log.txt"))