У меня есть листовка с картой в приложении Shiny, которая отображает точку, где было совершено каждое преступление. Пользователи могут выбирать различные фильтры (например, год, когда было совершено преступление) для обновления карты.
В настоящее время проблема заключается в том, что когда пользователи изменяют активные фильтры, карта автоматически сбрасывается до исходного уровня масштабирования, который я не хочу Вот мой код:
output$map <- renderLeaflet({
addTiles(setView(leaflet(options = leafletOptions(preferCanvas = TRUE)), lng = -73.731368, lat = 45.531368, zoom = 11))
})
observe(
leafletProxy("map", data = map_dataset()) %>%
clearMarkers() %>%
addCircleMarkers(data = map_dataset(), lat = ~ LATITUDE, lng = ~ LONGITUDE, popup = ~ paste(DATE, ". ", CATEGORIE),color = ~factor_palette_police(CATEGORIE) , opacity = 1, weight = dot_size() -0.9) %>%
addLegend(position = "bottomright", factor_palette_police, values = ~ CATEGORIE, opacity = 1)
)
Если ваш код поможет мне поддерживать постоянный уровень масштабирования даже после обновления карты, это действительно поможет мне.
Я не хотел включите все, чтобы не перегружать себя бесполезным кодом, но если вам нужна какая-либо другая часть кода, пожалуйста, скажите!
Большое спасибо за вашу помощь!