r - 带有 json 文件的 R 传单弹出功能

Question

我目前正处于使用 r shiny 和 r 传单创建 web 地图的最后阶段。

我有一个.geojson 文件，我已使用leafletProxy 在我的闪亮应用程序中成功地将它渲染到我的传单输出中。

但是， addGeoJSONv2 中的 popupProperty 参数在通过闪亮呈现时被完全忽略（代码仅在使用传单时有效）。

我试图使用observeEvent 来呈现点击，但不是返回我试图显示的属性，它只是显示JS() 中的文本。

下面弹出事件的代码：

observeEvent(input$mymap_shape_click, {
  leafletProxy("mymap") %>% clearPopups()
  event <- input$mymap_shape_click
  if (is.null(event))
  return()
  isolate ({
    leafletProxy("mymap") %>% 
    addPopups(data = shia_json, event$lng, event$lat, paste(JS("function(feature){return 
      '<b>Parcel Number: </b>' + feature.properties.PARCEL_NUM +
      '<br>' + '<br>' + '<b>Owner: </b>' + feature.properties.ownername1 + 
      '<br>' + '<br>' + '<b>Address: </b>' + feature.properties.address +
      '<br>' + '<b>City: </b>' + feature.properties.city +
      '<br>' + '<b>Zip: </b>' + feature.properties.zipcode +
      '<br>' + '<br>' + '<b>Description: </b>' + feature.properties.descriptio;}")))
  })
})

任何帮助，将不胜感激。