У меня есть сюжетная тепловая диаграмма, которая при наведении вызывает отображение другой линейной диаграммы.Это довольно много времени.Вот почему я хотел бы вызвать событие наведения, только если наведение заняло более 2 секунд.Есть ли способ сделать это в блестящем / плотно?
Вот событие наведения:
output$distPlot <- renderPlot({
event_data <- event_data("plotly_hover", source = "heatplot")
if (length(event_data)) {
selectedDate <- event_data[["y"]]
#draw Plot
ggplot(myData[date==selectedDate], aes(y=y, x=x)) + geom_line()
}
})