Shiny/LeafletがポップアップレイヤーIDを追加していません

Question

ShinyのsuperZipの例に基づいてアプリをビルドしています。ポップアップを表示させようとしていますが、「NULL」のタイプ（リストまたはベクトル）に適用されたis.na（）エラーが表示されます。警告：addPopupsのエラー：未使用の引数（レイヤーID = 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)

012に変更してください