R闪亮传单标记缩放问题

我希望能够双击自定义标记，并使地图重新居中和缩放。我不确定它是否应该自动执行，只是不是，或者我是否需要一个特殊的代码

下面是我当前的标记代码： 谢谢

ui-dput（wins）
结构（列表）名称=结构（c（9L、6L、11L、4L、2L、10L、5L、，
3L，8L，1L，7L），标签=c（“布里格姆”，“布朗”，“水牛”，“康奈尔”，
“缅因州医疗”、“MGH”、“米德尔塞克斯”、“缅因州北部”、“塔夫茨”，
“UVM”，“耶鲁”，class=“factor”），其中=结构（c（9L，6L，
11L，4L，2L，10L，5L，3L，8L，1L，7L），标签=c（“Brigam”，“Brown”，
“布法罗”、“康奈尔”、“缅因州医学”、“MGH”、“米德尔塞克斯医学医院”，
“北缅因州”、“塔夫茨”、“UVM”、“耶鲁”，class=“factor”），What=结构（c（1L，
1L，1L，1L，1L，1L，1L，1L，1L，1L，1L，1L），.Label=“saple3”，class=“factor”），
Who=结构（c）（1L，1L，1L，1L，1L，1L，1L，1L，1L，1L，1L，
1L），.Label=“RML-SAM-”，class=“factor”），
为什么=结构（c）（1L，1L，1L，1L，1L，1L，1L，1L，1L，1L，
1L），.Label=“sample”，class=“factor”），OrderDate=结构（c（1L，
1L，1L，1L，1L，1L，1L，1L，1L，1L，1L，1L），.Label=“Q1”，class=“factor”），
GoLiveDate=结构（c（1L，1L，1L，1L，1L，1L，1L，
1L，1L，1L），.Label=“Q2”，class=“factor”），lat=c（42.349598，
42.361542, 41.303229, 40.764991, 41.819064, 44.47972, 43.653243, 
42.886447,47.140694,42.33597,41.55466），lng=c（-71.063541，
-71.0688334, -72.933826, -73.95479, -71.408277, -73.194072, 
-70.276184, -78.87836, -68.269043, -71.10766, -72.64815), 
链路=结构（c（1L、2L、1L、1L、1L、1L、1L、1L、1L、1L、1L、，
3L），.Label=c（“http:\\\www.google.com”，“http:\\\\www.google.org”，
"https://google.com"
)，class=“factor”），.Names=c（“名称”、“位置”、“内容”，
“谁”、“为什么”、“订单日期”、“GoLiveDate”、“lat”、“lng”、“链接”
)，class=“data.frame”，row.names=c（NA，-11L））

不幸的是，传单中没有

双击事件（我希望被证明是错的）

如果您只需单击一下即可，我们可以执行以下操作：

server <- function(input, output){
    output$map <- renderLeaflet({
        m <- leaflet(wins) %>% 
            addProviderTiles(providers$OpenStreetMap) %>% 
            addMarkers(~lng, ~lat,
                       #icon = 'greenLeafIcon',
                       popup = paste("Where:", wins$Where,"<br>", "What:", wins$What,"<br>", "Who:", wins$Who,"<br>", "Why:", wins$Why,"<br>", "Order Date:", wins$OrderDate,"<br>", "Go Live Date:", wins$GoLiveDate, "<br>","<a href='",wins$link,"' target='_blank'>",wins$link,"</a>"),
                       clusterOptions = markerClusterOptions(color="#0017bb"),
                       #centerMap,
                       label = ~Name,
                       labelOptions = labelOptions(noHide = F)) 
    })

    observe({
        click <- input$map_marker_click
        zoom <- isolate(input$map_zoom)
        if(is.null(click))
            return()

        leafletProxy('map') %>% 
            setView(click$lng, click$lat, zoom = zoom)
    })
}

server您能否将
dput（wins）
的结果添加到问题中，从而使您的代码具有可复制性？@GGamba刚刚做了，谢谢！在哪里可以看到地图标记单击输入或地图缩放？这是我必须定义的吗？它们应该在添加传单“对象”时定义，但我不确定是否仍然是这样，在过去2年多的时间里，图书馆可能已经发生了变化
server <- function(input, output){
    output$map <- renderLeaflet({
        m <- leaflet(wins) %>% 
            addProviderTiles(providers$OpenStreetMap) %>% 
            addMarkers(~lng, ~lat,
                       #icon = 'greenLeafIcon',
                       popup = paste("Where:", wins$Where,"<br>", "What:", wins$What,"<br>", "Who:", wins$Who,"<br>", "Why:", wins$Why,"<br>", "Order Date:", wins$OrderDate,"<br>", "Go Live Date:", wins$GoLiveDate, "<br>","<a href='",wins$link,"' target='_blank'>",wins$link,"</a>"),
                       clusterOptions = markerClusterOptions(color="#0017bb"),
                       #centerMap,
                       label = ~Name,
                       labelOptions = labelOptions(noHide = F)) 
    })

    observe({
        click <- input$map_marker_click
        zoom <- isolate(input$map_zoom)
        if(is.null(click))
            return()

        leafletProxy('map') %>% 
            setView(click$lng, click$lat, zoom = zoom)
    })
}