我目前正在开发一个基于R Markdown和Shiny的用户界面，以便让不熟悉R的其他用户能够轻松执行机器学习训练过程。这个训练过程是由一个围绕R包mxnet的自定义函数完成的，并通过message()函数直接向控制台提供状态更新，如训练错误或加载的包信息，当在“普通”R脚本中运行时。然而，当在R Markdown中运行此应用程序时，浏览器中不会显示任何内容。以下脚本展示了一个最小的可重现示例（其中训练过程被一个简单的“虚拟”函数替代）：
---title: "Training of a Neural Network"output: html_documentruntime: shiny---```{r setup, include=FALSE}knitr::opts_chunk$set(echo = TRUE)``````{r start_training, echo=F}inputPanel( actionButton("button_start_training", "Start training"))``````{r dummy_function, echo=F}dummy_function <- function(){ for(i in 1:5){ message(paste0("Test: "),i) Sys.sleep(0.5) }}``````{r actual_training, echo=F}event_training = eventReactive(input$button_start_training,{ dummy_function()})renderPrint({ event_training() })```dummy_function()的控制台输出不会显示在浏览器中，而只会在控制台中显示。如果将message()替换为print()，结果中确实会显示内容，但仅在函数完成之后显示，而不是“实时”显示。因为实际的训练过程需要几个小时，我希望能够像在控制台中那样实时提供这些更新。此外，将message()替换为print()可能会引起一些问题，因为像训练错误这样的信息是在mxnet训练过程中作为消息返回的，而不是作为打印输出（如果我理解正确的话）。
因此，这归结为两个问题：
- 有没有办法让
renderPrint()一出现就立即打印输出？ - 有没有办法让
renderPrint()使用message()生成的输出，而不是print()？
感谢您的帮助。
回答：
一种解决方案是将withCallingHandlers与shinyjs包结合使用（https://github.com/daattali/shinyjs）。使用这种方法，您可以更改页面上元素的内部HTML，这会立即显示。从一个空元素开始，每次函数调用message时，您可以向元素添加一个日志，如下所示：
dummy_function <- function(){ for(i in 1:5){ message(paste0("Test: "),i) Sys.sleep(0.5) }runApp(shinyApp( ui = fluidPage( shinyjs::useShinyjs(), actionButton("button_start_training", "Start training"), textOutput("logs") ), server = function(input, output, session) { observeEvent(input$button_start_training, { withCallingHandlers({ shinyjs::html("logs", "") dummy_function() }, message = function(m) { shinyjs::html(id = "logs", html = m$message, add = TRUE) }) }) }))