Wilson Cai wilsoncai1992
wilsoncai1992
/ withConsoleRedirect.R
Created
June 29, 2016 17:10
— forked from jcheng5/withConsoleRedirect.R
Someone at #useR2016 asked me if you can have Shiny execute code in observers/reactives but send the console output to the browser.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(shiny) | |
| withConsoleRedirect <- function(containerId, expr) { | |
| # Change type="output" to type="message" to catch stderr | |
| # (messages, warnings, and errors) instead of stdout. | |
| txt <- capture.output(results <- expr, type = "output") | |
| if (length(txt) > 0) { | |
| insertUI(paste0("#", containerId), where = "beforeEnd", | |
| ui = paste0(txt, "\n", collapse = "") | |
| ) |