如何在Shiny中使用observeEvent捕获HTML输入元素的点击事件？

你的代码无法触发事件的核心原因是：原生HTML按钮没有和Shiny的输入系统绑定，点击时不会自动更新input$b1，因此observeEvent无法检测到变化。以下是两种可行的解决方法：

方法1：用Shiny原生actionButton自定义内容 #

这种方式既保留Shiny内置的事件绑定，又能自定义按钮显示内容，是最推荐的方案：

shinyApp(
  ui = basicPage(
    # 用actionButton创建按钮，自定义HTML标签内容
    actionButton(
      inputId = "b1", 
      label = NULL,  # 取消默认标签
      HTML('Travel time'),  # 自定义按钮显示文本
      style = "/* 可添加自定义CSS样式，比如背景色、字体等 */"
    )
  ),
  server = function(input, output, session) {
    observeEvent(input$b1, {
      print(paste("This will only be printed once; all",
                  "subsequent button clicks won't do anything"))
    }, once = TRUE)
  }
)

方法2：给原生HTML按钮添加JavaScript触发代码 #

如果必须使用原生HTML按钮，可以通过Shiny.setInputValue手动向Shiny服务器发送输入更新信号：

shinyApp(
  ui = basicPage(
    HTML('
      <input type="button" name="b1" value="Travel time" 
             onclick="Shiny.setInputValue(\'b1\', Math.random());" />
    ')
  ),
  server = function(input, output, session) {
    observeEvent(input$b1, {
      print(paste("This will only be printed once; all",
                  "subsequent button clicks won't do anything"))
    }, once = TRUE)
  }
)

这里用Math.random()生成随机值作为输入更新的内容，确保每次点击都能让Shiny检测到input$b1的变化，从而触发observeEvent。

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