R 使用shinyjs不'；在最近的更新之后，它似乎不再工作了

我正在维护一个大而笨重的闪亮仪表板的代码，我注意到点击事件功能不再重置

在将其分解为一个最小的工作示例，并与和的解决方案进行比较后，我得出结论，禁用此功能的

plotly

或

shinyjs

库中肯定有更改。 通过在plot停止执行，我看到plot对象确实正确地携带了source属性

library(plotly)
library(shiny)
library(shinyjs)

ui <- fluidPage(
    useShinyjs(),

    plotlyOutput("plot"),

    extendShinyjs(text = "shinyjs.resetClick = function() { Shiny.onInputChange('.clientValue-plotly_click-plot', 'null'); }"),
    actionButton("reset", "Reset click"),

    verbatimTextOutput("click")
)

server <- function(input, output, session) {
    observeEvent(input$reset, js$resetClick())

    output$click <- renderPrint(event_data("plotly_click", source = "plot"  ))

    output$plot <- renderPlotly(
        plot_ly(mtcars, x = ~mpg, y = ~wt,
                  type="scatter",
                  mode="markers",
                  source = "plot") %>%
            event_register("plotly_click")
    )

    output$click <- renderPrint({
        d <- event_data(source = "plot","plotly_click")
        if (is.null(d)) "No click" else d
    })
}

shinyApp(ui, server)

library（plotly）
图书馆（闪亮）
图书馆（shinyjs）
ui看起来像。不再需要clientValue-。可能是
发生了变化，但我不确定

将
.clientValue-plotly\u click-plot
更改为
plotly\u click-plot
，它应该可以工作

输出：