Este código funciona. trueFalse e errorMessage são capturados pelo servidor chamando a função que produz esse código e exibida usando renderText () no servidor e textOutput () na GUI
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"))