Възможно ли е да се показват конзолни съобщения (написани с `message`) в лъскав потребителски интерфейс?

Yihui ми предложи да използвам withCallingHandlers и това наистина ми позволи да намеря решение. Не бях съвсем сигурен как да използвам тази функция по начин, който да прави точно това, от което се нуждаех, защото проблемът ми беше, че имах функция, която отпечатва няколко съобщения едно по едно и използвайки наивен подход отпечатва само последното съобщение. Ето първия ми опит (който работи, ако имате само едно съобщение за показване):

foo <- function() {
  message("one")
  message("two")
}

runApp(shinyApp(
  ui = fluidPage(
    actionButton("btn","Click me"),
    textOutput("text")
  ),
  server = function(input,output, session) {
    observeEvent(input$btn, {
      withCallingHandlers(
        foo(),
        message = function(m) output$text <- renderPrint(m$message)
      )
    })
  }
))

Забележете как се извежда само two\n. Така че окончателното ми решение беше да използвам функцията html от пакета shinyjs (отказ от отговорност: аз написах този пакет), която ми позволява да променям или добавям към HTML вътре в елемент. Работи перфектно - сега и двете съобщения се отпечатаха в реално време.

foo <- function() {
  message("one")
  Sys.sleep(0.5)
  message("two")
}

runApp(shinyApp(
  ui = fluidPage(
    shinyjs::useShinyjs(),
    actionButton("btn","Click me"),
    textOutput("text")
  ),
  server = function(input,output, session) {
    observeEvent(input$btn, {
      withCallingHandlers({
        shinyjs::html("text", "")
        foo()
      },
        message = function(m) {
          shinyjs::html(id = "text", html = m$message, add = TRUE)
      })
    })
  }
))

Знам, че това не е толкова елегантно, но заобиколих малко подобен проблем, използвайки capture.output; за съжаление обаче sink не позволява едновременно заснемане на съобщенияи изход. Не ги получавате в оригиналния ред, но можете да извлечете поне двата потока (тук обърнати към HTML):

runApp(shinyApp(
  ui = fluidPage(
    uiOutput("test")
  ),
  server = function(input,output, session) {
    output$test <- renderUI({
      HTML(
      paste(capture.output(type = "message", expr = { 
        message(capture.output(type = "output", expr = {
          cat("test cat<br>")
          message("test message")
          cat("test cat2<br>")
          message("test message2")
        }))
      }), collapse="<br>")
  )})
 })
)

Изход:

test message
test message2
test cat
test cat2

Може би в случай, че потребителят иска да улови и двете, но и да ги раздели, това ще осигури удобно решение. (Вашият пакет shinyjs изглежда чист, трябва да го разгледате!)