Question

我正在根据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)
    })
  })

Answer 1

语法问题。 layerID是传单中的layerId。我仍然无法将ID传递给该活动。

Answer 2

我认为问题是pctcd是一个向量。因此，我建议您尝试将pctcd <- as.vector(sp_azvtd$pctcd)更改为pctcd <- as.character(sp_azvtd$pctcd)或pctcd <- as.factor(sp_azvtd$pctcd)

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

2 个答案: