时间戳

首页 > 解决方案 > 如何在传单地图上使粒度更大（更平滑的缩放）？

r - 如何在传单地图上使粒度更大（更平滑的缩放）？

问题描述

我尝试为传单地图添加更大的粒度。我用谷歌搜索并在这里阅读了一些关于 SO 的帖子，但这对我没有帮助。我添加zoomSnap（根据leaflet文档）作为自定义选项，leafletOptions但它不起作用。我还尝试在onRender部分中添加自定义 js 代码，但它也不起作用。任何想法如何使它成为可能？我想像在 Mapbox 中一样缩放工作，它工作得非常顺利（例如https://docs.mapbox.com/mapbox-gl-js/example/simple-map/）

这是我的可重现代码。评论部分是原始 JS，我也尝试过这个，但它不起作用：

library(shiny)
library(leaflet)
library(dplyr)
library(sf)
library(htmlwidgets)

ui <- fluidPage(
   leafletOutput("map")
)

server <- function(input, output, session) {
   
   coords <- quakes %>%
      sf::st_as_sf(coords = c("long","lat"), crs = 4326)

     output$map <- leaflet::renderLeaflet({
     leaflet::leaflet(
        options = leaflet::leafletOptions(
           zoomSnap = 0.1)
        ) %>%         
       leaflet::addTiles() %>%
       leaflet::setView(172.972965,-35.377261, zoom = 4) %>%
       leaflet::addCircleMarkers(
         data = coords,
         stroke = FALSE,
         radius = 6) #%>% 
        # htmlwidgets::onRender(
        #       "function(el, x) {
        #     var map = this;
        #     map.options({zoomSnap: 0.1});}" 
        #    )
   })
}

shinyApp(ui, server)

标签： rshinyleafletr-leaflet

解决方案

尝试leafletOptions(zoomSnap = 0.1, zoomDelta = 0.1)

zoomSnap = x是强制缩放级别为的倍数x

zoomDelta = y是按单位更改缩放级别y

推荐阅读