未使用添加弹出窗口 layerid 的 Shiny/Leaflet答案

【问题标题】：Shiny/Leaflet adding popups layerid is unused未使用添加弹出窗口 layerid 的 Shiny/Leaflet
【发布时间】：2016-11-18 05:12:21
【问题描述】：

我正在基于 Shiny 中的 superZip 示例构建应用程序。我试图让弹出窗口显示，但我收到错误“is.na() 应用于'NULL'类型的非（列表或向量）警告：addPopups 中的错误：未使用的参数（layerid = pctcd）

这是代码，任何帮助都会非常有帮助。

   observe({
    leafletProxy("map") %>% clearPopups()
    event <- input$map_shape_click
    if (is.null(event))
      return()
    print(event)

    pctcd <- as.vector(sp_azvtd$pctcd)


    showPrecinctPopup <- function(pctcd, lat, lng) {
      selectedPct <- sp_azvtd[sp_azvtd$pctcd == pctcd,]
      content <- paste0("<h4>",selectedPct$precinctna, "</h4>",  tags$br())
      leafletProxy("map") %>% addPopups(lng, lat, content, layerID = pctcd)

    }


    isolate({
      showPrecinctPopup(event$id, event$lat, event$lng)
    })
  })

【问题讨论】：

标签： r shiny leaflet

【解决方案1】：

语法问题。 layerID 是传单中的 layerId。不过，我仍然无法将 ID 传递给事件。

【讨论】：

【解决方案2】：

我认为问题在于 pctcd 是一个向量。所以我建议你尝试将pctcd <- as.vector(sp_azvtd$pctcd) 更改为pctcd <- as.character(sp_azvtd$pctcd) 或pctcd <- as.factor(sp_azvtd$pctcd)

【讨论】：

就是这样。谢谢。这已经让我发疯了将近一个星期。我需要复习一下我的 r 数据类型。 :)
@Garrett 如果您觉得答案有用，请接受并投票。谢谢:)