【发布时间】:2019-11-08 11:06:46
【问题描述】:
我正在为一个又大又笨重的闪亮仪表板维护我的代码,我注意到点击事件功能不再重置。
在将其简化为一个最小的工作示例并与 https://stackoverflow.com/a/44543204/11703379 和 https://community.plot.ly/t/reseting-click-events/2718 的解决方案进行比较后,我得出的结论是 plotly 或 shinyjs 库中一定有变化,这禁用此功能。
通过在绘图处停止执行,我看到绘图对象确实正确地携带了源属性。
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)
谁能证实这一点?
我正在使用plotly 4.9.0 版,
和shinyjs 1.0 版。
【问题讨论】: