无需添加软件包：

shinyApp(
  ui = basicPage( 
    HTML('<button type="button" id="b1" class="action-button">Travel time</button>')
  ),
  
  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) 
  }

)

您可以使用shinyjs包来解决此问题

shinyApp(
  ui = basicPage(
    shinyjs::useShinyjs(),
    HTML('<input type="button" id = "b1" value="Travel time"/>')
  ),
  
  server = function(input, output, session) {
    shinyjs::onclick(
      "b1",
      {
        shinyjs::disable(id = "b1")
        print(paste("This will only be printed once; all",
                    "subsequent button clicks won't do anything"))
      }
    )
    
  }
)

希望这对你有帮助！