如何在一定时间后触发情节悬停？

Question

我有一个阴谋热图，在悬停时触发另一个折线图的绘图。这是相当耗时的。这就是为什么我只想在悬停时间超过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()
}
})