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")
  })
  
}

})

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）