R Shiny Server - 如何在observeEvent函数中保存变量值？

Question

我创建了以下简单的函数来在用户单击按钮时增加计数器:

observeEvent(input$go, {
  counter = 1
  print(counter)
  counter <- (counter + 1)
  print(counter)
  })

我初步counter如下:

counter = 1
shinyServer(function(input, output) {
...

如果我Go多次点击按钮,我预计计数器会不断增加一个.但是,输出始终如下:

[1] 1
[1] 2
[1] 1
[1] 2
[1] 1
[1] 2
[1] 1
[1] 2

有人能解释一下为什么吗？

Answer 1

尝试使用observeEvent带reactiveValues.下面的最小工作示例:

library(shiny)

ui <- shinyUI(fluidPage(
   sidebarLayout(
      sidebarPanel(
         actionButton("go", "Go")
      ),
      mainPanel(
         verbatimTextOutput("text")
      )
   )
))

server <- shinyServer(function(input, output) {
    v <- reactiveValues(counter = 1L)
    observeEvent(input$go, v$counter <- v$counter + 1L)
    output$text <- renderPrint({
       print(v$counter)
   })
})

shinyApp(ui = ui, server = server)