每次单击 actionButton 时，R shiny 变量增加 1

Question

每次增加 actionButton 时，我希望变量 x 的值增加 1，例如，请参见下面的可重现代码。然而，observeEvent 中的代码是隔离的，x 的值不会增量更新。

library(shiny)

ui <- fluidPage(
  actionButton("plus","+1"),
  textOutput("value")
)

server <- function(input, output, session) {
  x = 1
  observeEvent(input$plus,{
    x = x+1
    output$value = renderText(x)
  })
}

shinyApp(ui, server)

Answer 1

您需要确保要更改的值是 react 性的。你可以制作x使用 reactiveVal() react .然后当你想要 x 的当前值时你打电话x()以及何时要更改 x 的值, 你使用 x(<new value>)

library(shiny)

ui <- fluidPage(
  actionButton("plus","+1"),
  textOutput("value")
)

server <- function(input, output, session) {
  x = reactiveVal(0)
  observeEvent(input$plus,{
    x(x()+1) # increment x by 1
  })
  output$value = renderText(x())
}

shinyApp(ui, server)