如何使用 observeEvent 捕獲 shiny 中的 HTML 輸入 id？

Question

如何使用 observeEvent 捕獲 shiny 中的 HTML 輸入 id？

shinyApp(
  ui = basicPage( HTML('<input type="button" name = "b1" value="Travel time"/>')),

  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)

  }
)

我想實現 function 在 shiny 中使用 HTML，當我點擊“旅行時間”時，可以觀察到事件。

Answer 1

無需添加 package：

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) 
  }

)

Answer 2

你可以用shinyjs package 解決這個問題

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"))
      }
    )
    
  }
)

希望這可以幫助！！