如何获取Shiny中actionButton的当前与历史点击次数

以下是符合需求的完整代码，实现初始状态下click_new和click_old均为0；第一次点击后click_new变为1、click_old保持0；后续每次点击时click_new递增1，click_old更新为点击前的click_new值：

library(shiny)

ui <- fluidPage(
  sidebarPanel(
    actionButton("button", "Button 1")
  ),
  tags$h4("Current number of action button clicks"),
  textOutput("click_new"),
  tags$h4("Previous number of action button clicks"),
  textOutput("click_old")
)

server <- function(input, output, session) {
  # 定义两个响应式变量，分别存储当前点击次数和历史点击次数
  current_clicks <- reactiveVal(0)
  previous_clicks <- reactiveVal(0)
  
  # 监听按钮点击事件：先更新历史次数为当前值，再更新当前次数+1
  observeEvent(input$button, {
    previous_clicks(current_clicks())
    current_clicks(current_clicks() + 1)
  })
  
  # 输出当前点击次数
  output$click_new <- renderText(current_clicks())
  
  # 输出历史点击次数
  output$click_old <- renderText(previous_clicks())
}

shinyApp(ui, server)

关键改动说明 #

• 新增两个reactiveVal：current_clicks存储当前点击次数，previous_clicks存储点击前的历史次数，解决原代码仅能追踪单一值的问题。
• 调整按钮点击的逻辑：每次点击时先将历史次数更新为当前的点击次数，再将当前次数加1，确保历史值始终是点击前的状态。
• 替换原UI中的print()为tags$h4，让标题显示更符合Shiny的UI规范（原print()会在页面加载时直接输出原始文本，体验不佳）。
• 移除了原代码中错误的observeEvent(input$button, click(click() - 1))逻辑，该逻辑会错误减少点击次数，无法实现历史值追踪。

内容的提问来源于stack exchange，提问作者AussieAndy