Я создал блестящую карту листовки, которая при щелчке мышью увеличивает границы набора. К сожалению, это, похоже, лишило функциональности «двойной щелчок для увеличения». В любое время, когда я пытаюсь дважды щелкнуть, чтобы увеличить масштаб карты, она приближается к установленным границам (так как регистрирует одиночный щелчок, а не двойной щелчок). Я довольно много читал, и, кажется, есть обходной путь к листовому плагину (ссылка здесь ). К сожалению, даже после следования этому руководству я не смог реализовать плагин.
Я приложил упрощенный, воспроизводимый код ниже.
Как реализовать плагин, и является ли это наиболее эффективным способом различения типов кликов? Если нет, то что будет?
Спасибо!
ui <- fluidPage(
leafletOutput("map")
)
server <- function(input, output, session) {
output$map = renderLeaflet({
leaflet() %>% addTiles %>% setView(lat = 46.73135,lng = 12.32733,12)
})
observeEvent(input$map_click,{
leafletProxy("map") %>% flyToBounds(lng1 =-25.555731 ,lat1 = 69.200741,lng2 = 51.436455,lat2 =35.833665 )
})
}
shinyApp(ui, server)