如何在shiny中使用JS点击绘图模式栏按钮？

library(shiny)

ui <- fluidPage(
  actionButton("plotModeButton", "绘图模式")
)

server <- function(input, output, session) {
  observeEvent(input$plotModeButton, {
    session$sendCustomMessage(type = "plotMode", message = "enable")
  })
}

ui <- fluidPage(
  actionButton("plotModeButton", "绘图模式"),
  tags$script('
    Shiny.addCustomMessageHandler("plotMode", function(message) {
      if (message === "enable") {
        $(".shinyplotmodebar").show();
      } else if (message === "disable") {
        $(".shinyplotmodebar").hide();
      }
    });
  ')
)

shinyApp(ui, server)