Выделите во время наведения на Plotly - не работает - PullRequest
Новая
       52

Выделите во время наведения на Plotly - не работает

0 голосов
/ 24 марта 2020

Контекст: я пытаюсь построить линейный график с несколькими временными рядами одновременно. Группы описаны ~ Страна. На графике отображаются только те страны, которые выбрал пользователь (введите $ Страна) в блестящем приложении. Пользователь также определяет переменные 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))  

  })
}
...