可以在闪亮的UI中显示控制台消息(用`message`编写)吗？ [英] Possible to show console messages (written with `message`) in a shiny ui?

问题描述

我对R的消息VS CAT VS PRINT VS等理解不深，但我想知道是否有可能捕获消息并在闪亮的应用程序中显示它们？

示例：以下应用程序可以捕获CAT语句(也可以捕获打印语句)，但不能捕获消息语句

runApp(shinyApp(
  ui = fluidPage(
    textOutput("test")
  ),
  server = function(input,output, session) {
    output$test <- renderPrint({
      cat("test cat")
      message("test message")
    })
  }
))

Cross post from the shiny-discuss Google group since I got 0 answers.

推荐答案

艺慧建议我用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 才会被输出。因此，我的最后一个解决方案是使用shinyjs包中的html函数(免责声明：那个包是我写的)，它允许我更改或附加到元素中的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)
      })
    })
  }
))

这篇关于可以在闪亮的UI中显示控制台消息(用`message`编写)吗？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！