Shiny Data Table：重复点击同一ActionButton无法重复触发响应求助

你遇到的问题根源在于：Shiny的observeEvent默认只在监听的Input值发生变化时才触发。同一按钮重复点击时，传递给select_button的始终是同一个按钮ID，值没有变动，所以不会重复触发打印动作。

解决思路 #

要让每次点击都触发事件，只需确保每次传递给select_button的值唯一即可。可以在按钮ID后拼接时间戳或随机数，保证每次点击的输入值都不同；之后再从这个值里提取出真正的按钮ID进行处理。

修改后的完整代码 #

library(shiny)
library(DT)
library(tibble)

ui <- fluidPage(
  fluidRow(
    DT::dataTableOutput(outputId = "my_data_table"),
  )
)

server <- function(input, output) {
  
  myValue <- reactiveValues(check = '')
  
  shinyInput <- function(FUN, len, id, ...) {
    inputs <- character(len)
    for (i in seq_len(len)) {
      inputs[i] <- as.character(FUN(paste0(id, i), ...))
    }
    inputs
  }
  
  my_data_table <- reactive({
    tibble(
      Name = c('Dilbert', 'Alice', 'Wally', 'Ashok', 'Dogbert'),
      Motivation = c(62, 73, 3, 99, 52),
      Actions = shinyInput(actionButton, 5,
                           'button_',
                           label = "Fire",
                           # 拼接时间戳，确保每次传递的输入值唯一
                           onclick = paste0('Shiny.onInputChange(\"select_button\", this.id + \"_\" + Date.now())') 
      )    
    )
  })
  
  output$my_data_table <- renderDataTable({
    my_data_table()
  }, escape = FALSE)
  
  observeEvent(input$select_button, {
    # 提取原始按钮ID（去掉末尾的时间戳部分）
    button_id <- sub("_[0-9]+$", "", input$select_button)
    print(button_id)
  })
}

shinyApp(ui, server)

关键修改点 #

1. 按钮点击事件：将onclick中的this.id改为this.id + "_" + Date.now()，用当前时间戳保证每次传递的select_button值唯一
2. 事件处理逻辑：用sub函数去掉输入值末尾的时间戳，还原出真正的按钮ID后再打印

这样无论重复点击多少次同一个按钮，每次的输入值都是全新的，observeEvent就会每次都触发打印动作。

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