R Action 按钮和 eventReactive 不工作

Question

这是一个简单的问题，但我不知道为什么我简单的按下按钮没有显示文本。

我有一个 ID 为“go”的 actionButton。当用户按下按钮时，我只想在我的 textOutput 框中显示“Button Pressed”。我还想在我的 R 控制台窗口中显示一条消息。

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

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

shinyApp(ui, server)

现在，我的 GO 按钮显示出来了，就在我看到 TextOutput 框的正下方，里面什么也没有(正如预期的那样)。但是，当我按下按钮时，什么也没有发生。我正在尝试显示“按下按钮”。

Answer 1

eventReactive 除非你使用它，否则不会被评估，这里我添加了一个 observe 来触发:

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

    server <- function(input, output) {
        displayText <- eventReactive(input$go, {
            output$text <- renderText({input$go;"Button Pressed"})
        })

        observe(displayText())
    }

    shinyApp(ui, server)

由于您不向 displayText 返回任何内容，请考虑使用:

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

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

shinyApp(ui, server)