Попытка связать реактивные значения данных из plotly_hover с картой листовки без перезагрузки листовки

Question

Я хочу использовать значения plotly_hover из графика временного ряда и показывать положение GPS на листовой карте с той же отметкой времени, что и plotly_hover.

Я нашел способ, но карта листовок перезагружается каждый раз, когда курсор меняет положение. Я сейчас пытаюсь следующий код. Вот где я застрял с event.data и наблюдаю, чтобы связать график временных рядов и карту листовки для отображения положения (широта и долгота) на карте и значения скорости в графике временных рядов одновременно при наведении на сюжет.

Я уменьшаю фрейм данных только для практических целей, но ошибка та же. Предупреждение: ошибка в UseMethod: нет применимого метода для 'metaData', примененного к объекту класса "персонаж"

DateTime <- c("2019-06-18 02:45:00", "2019-06-18 02:30:00", 
          "2019-06-18 02:15:00", "2019-06-18 02:00:00", 
          "2019-06-18 01:45:00", "2019-06-18 01:30:00", 
          "2019-06-18 02:45:00", "2019-06-18 02:30:00",
          "2019-06-18 02:15:00", "2019-06-18 02:00:00",
          "2019-06-18 01:45:00", "2019-06-18 01:30:00")

ShipName <- c("ShipA", "ShipA", "ShipA", "ShipA", "ShipA", "ShipA", 
              "ShipB", "ShipB", "ShipB", "ShipB", "ShipB", "ShipB")

Latitude <- c(24.97308, 25.01779, 25.06509, 25.11231, 25.16046, 25.21110, 
              23.63477, 23.66860, 23.70218, 23.73552, 23.76868, 23.80180)

Longitude <- c(36.02598, 35.98830, 35.95460, 35.92248, 35.89232, 
               35.86438, 59.11677, 59.07402, 59.03015, 58.98605, 
               58.94183, 58.89752)

GPSSpeed <- c(13.6, 13.4, 13.4, 13.4, 13.4, 13.5, 12.5, 12.6, 12.5, 12.5, 
              12.7, 12.7)

DF <- data.frame(DateTime, ShipName, Latitude, Longitude, GPSSpeed)
DF$DateTime <- as.POSIXct(DF$DateTime)


ui <- bootstrapPage(

  fluidRow(
    column(4,selectInput(inputId = "shipname",
                   label = "ShipName",
                   choices = c("ShipA", "ShipB"),
                   selected = NULL,
                   multiple = FALSE)),
   column(4,dateRangeInput(inputId = "daterange",
                      label = "Date Range:",
                      format = "yyyy-mm-dd",
                      start = as.Date("2019-06-17"),
                      end = as.Date("2019-06-19"))),
   column(4,selectInput(inputId = 'Feature1',
                   label = 'T1 Option 1 for left y-axis:',
                   choices = c("Blank",c(colnames(bw[,-c(1:2)]))),
                   selected="GPSSpeed"))),


    plotlyOutput(outputId = 'timeseries1', height = 300),


    leafletOutput(outputId = "mymap", height = 300)

 )




server <- function(input, output){

 # Create an empty column to have the plot empty
 DF$Blank <- NA

 # Plot time series chart 1 
 output$timeseries1 <- renderPlotly({

    Filtered_DF <- DF %>% filter(ShipName == input$shipname) %>% 
    filter(DateTime >= input$daterange[1]  & DateTime <= 
    input$daterange[2])


     p <- plot_ly(Filtered_DF, x = ~DateTime, key = ~DateTime, source = 
                  "latPos") %>%
     #add_lines(y = ~get(input$Feature1), 
     #          name = paste(as.character(input$Feature1))) %>%
     add_trace(y = ~get(input$Feature1), 
               name = paste(as.character(input$Feature1)), 
               type = 'scatter', 
               mode = 'lines')  %>%
     layout(legend = list(nrow = 2,
                          orientation = "h",
                          x = 0, y = -0.25),
                          hovermode = 'x',
                          xaxis = list(title = "DateTime"),
                          autosize = TRUE) %>%
     config(displayModeBar = TRUE)
     p
   })


filteredData <- reactive({

DF %>% filter(ShipName == input$shipname) %>% 
 filter(DateTime >= input$daterange[1] & DateTime <= input$daterange[2])

 event.data <- event_data(event = "plotly_hover", source = "latPos")
  if (is.null(event.data)) {
    print("Hover to see the lat posistion of the point filterdata")
  } else { 
    Filtered_DF %>% filter(DateTime == event.data$key)
  }
})


 output$mymap <- renderLeaflet({

  Filtered_DF <- DF %>% 
  filter(ShipName == input$shipname) %>% 
  filter(DateTime >= input$daterange[1] & DateTime <= input$daterange[2])

  leaflet(Filtered_DF) %>%
    setView(lng = 0, lat = 0, zoom = 2)  %>% 
    addTiles() %>%
    addPolylines(lat = ~Latitude, lng = ~Longitude, color = "blue", 
                 weight = 1)
 })


 observe({
  leafletProxy("mymap", data = filteredData()) %>%
  addCircles(lat = ~Latitude, lng = ~Longitude, weight = 3)
  })

}

shinyApp(ui=ui, server=server)