R闪亮的地图标记点击事件

如何解决R闪亮的地图标记点击事件

我有一个闪亮的传单地图，它在 input$map_marker_click 为空时绘制标记，当我单击这些标记时，另一个数据集会使用我之前数据集的路径作为输入来显示不同的标记。显示过去的路线后，我回到我的第一个数据集，按下按钮将 input$map_marker_click 更改为 null。但是，我无法再次显示我的数据过去的路线。你能帮助我吗？我的用户界面代码：

用户界面

column(10,actionButton("remove","Remove"),tags$script("Shiny.addCustomMessageHandler('resetValue',function(variableName) { Shiny.onInputChange(variableName,null); Shiny.setInputValue(variableName,null); });"))

服务器

观察({

temp =Data()
temp2 = historyData()
event <-input$mapH_marker_click
if(nrow(temp)!=0){
  
  if(!is.null(event)){
    leafletProxy("mapH")%>%
      clearMarkerClusters() %>%
      leaflet.extras::clearHeatmap()%>%
      addMarkers(data=temp2,icon = shipicon,label =sprintf("<br/><font size=2 color=#045FB4> Time:</font> %s <br/><font size=2 color=#045FB4> Name:</font> %s <br/><font size=2 color=#045FB4> Longitude:</font> %s <br/><font size=2 color=#045FB4> Latitude:</font> %s <br/>",temp2$TIME,temp2$SHIPNAME,temp2$LAT,temp2$LON)
                 %>%lapply(htmltools::HTML),clusterOptions = markerClusterOptions())
    
  }
  else if(is.null(event)){
    leafletProxy("mapH")%>%
      clearMarkerClusters() %>%
      leaflet.extras::clearHeatmap()%>%
      
      addMarkers(data=temp,temp$TIME,temp$SHIPNAME,temp$LAT,temp$LON)
                 %>%lapply(htmltools::HTML),clusterOptions = markerClusterOptions())
  }
  observeEvent(input$remove,{
    session$sendCustomMessage(type = "resetValue",message = "mapH_marker_click")
  })
  
}

})