未定义Shinyjs函数吗？

Question

我试图遵循Shinyjs的文档来创建一个按钮，当用户在Shiny中单击它时可以隐藏图形图。

library("shiny")
library("quantmod")
library("data.table")
library("highcharter")
library("shinyjs")

ui <- 
  fluidPage(
    highchartOutput("plot"),
    actionButton("btn", "Click me")
  )

server <- function(input, output, session){
  ##Retrieve stock data
  stock_data <- getSymbols("IBM", auto.assign = FALSE)

  output$plot <- 
    renderHighchart({
      plot_max <- 200
      plot_min <- 100
        highchart(type = "stock") %>% 
          hc_yAxis_multiples(
            create_yaxis(2, height = c(200, 50), min = plot_min, max = plot_max, turnopposite = TRUE)
          ) %>% 
          # series :D
          hc_add_series_flags(stock_data, dates = as.Date("2018-10-12", format = "%Y-%m-%d"), title = "Testing flag", text = "some words") %>%
          hc_add_series(stock_data, yAxis = 0) %>% 
          hc_add_series(stock_data$IBM.Volume, yAxis = 1, type = "column", color = hex_to_rgba("green", 0.7))
      })

  observeEvent(input$btn, {
    shinyjs::hide(id = "plot")
  })

}

shinyApp(ui, server)

但是，单击按钮时，不会禁用图形。我已经测试了其他功能，包括shinyjs :: disable（），结果是一样的，并显示诸如“ disable（）not defined”之类的错误消息。

如何解决此问题？非常感谢。