如何在Shiny中使用JavaScript更改UI元素的属性？

ui <- fluidPage(
  tags$button("Click me", id = "myButton"),
  tags$script("
    $(document).ready(function(){
      // JavaScript代码写在这里
    });
  ")
)

tags$script("
  $(document).ready(function(){
    $('#myButton').click(function(){
      $(this).text('Button clicked!');
    });
  });
")

server <- function(input, output) {
  buttonText <- reactiveVal("Click me")
  
  observeEvent(input$myButton, {
    buttonText("Button clicked!")
  })
  
  output$myButton <- renderUI({
    tags$button(buttonText(), id = "myButton")
  })
}

ui <- fluidPage(
  uiOutput("myButton"),
  tags$script("
    $(document).ready(function(){
      $('#myButton').click(function(){
        $(this).text('Button clicked!');
      });
    });
  ")
)

shinyApp(ui, server)