r - 在 Plotly 悬停期间突出显示 - 不起作用？

Question

背景：我正在尝试一次绘制具有多个时间序列的折线图。这些组由〜国家描述。只有用户在闪亮的应用程序中选择的国家 (input$Country) 才会显示在图表中。用户还定义了 x 和 y 变量。

问题：当有悬停事件时，我想使用突出显示功能突出显示每个时间序列。该图似乎可以识别突出显示语法，因为 Dynamic=TRUE 指定的颜色选择小部件在那里。但是，在鼠标悬停期间，线条本身不会突出显示。

任何人都可以看到错误在哪里以及在悬停期间突出显示功能可以工作的原因是什么？

server <- function(input, output, ...) {

highlight_key(data, key=~Country)

    output$p <- renderPlotly({
      (plot_ly(data, x = ~get(input$xvar), y = ~get(input$yvar), mode='lines', color= ~Country) %>%
      filter(Country %in% input$Country) %>%
      add_lines(line=list(width=3)) %>% 
      layout(yaxis = list(type = input$yscale, title = input$yvar))%>% 
      layout(xaxis = list(title = "Title of X"))%>% 
      config(displayModeBar = FALSE, scrollZoom=TRUE)%>%
      filter(Country %in% input$Country)%>%
      highlight(on='plotly_hover',off='plotly_doubleclick',dynamic=TRUE))  

  })
}

标签： rshinyhoverplotlyhighlight