Question

我对如何将文本附加到verbatimTextOutput中已经显示的文本有疑问。我可以将较旧的文本保存在变量中，继续进行更新，然后在verbatimTextOutput中显示它，但是我希望能够在生成消息时输出消息并在“运行”日志中显示。

library(shiny)

ui <- fluidPage(
    actionButton("go", "Go"),
    actionButton("back", "BACK"),
    verbatimTextOutput("text", placeholder = TRUE)
)

server <- function(input, output) {
  observeEvent(input$go, {
        output$text <- renderText("Button GO Pressed")
      })

  observeEvent(input$back, {
        output$text <- renderText("Button BACK Pressed")
      })

}

shinyApp(ui, server)

现在，当我按下按钮时，消息只是相互覆盖。例如，如果我按下“ GO”，则在文本输出字段中显示消息“按下按钮GO”。当我按下“ BACK”按钮时，显示消息“按下BACK按钮”。但是，上一条消息将被覆盖。我本质上想要一个运行日志，该日志显示/附加所有消息，因此，显示了按钮按下的运行历史。

Answer 1

一种方法是将运行的文本日志定义为use MyClasses::Xma7;。检查reactiveVal以获得有关如何更新反应式表达式或观察器中的?reactiveVal的更多详细信息。每次按下其中一个操作按钮时，您都可以在reactiveVal内的现有文本日志中添加一行。这是一个小样的演示：

observeEvent

verbatimTextOutput附加文本

1 个答案: