Запретить масштабирование в листовке R-Map?

Я сделал карту буклета с R-пакетом листовки.

Вот как выглядит результат:

Я очень доволен этим, но когда я вставляю его в веб-сайт и прокручиваю статью с помощью своего ноутбука, я часто случайно уменьшаю карту, которая выглядит следующим образом:

Пользователь должен снова заглянуть назад, чтобы взглянуть на переплетенную часть карты, которая меня действительно раздражает.

Есть ли способ заморозить часть карты, например, вы можете увеличить масштаб, как обычно, но не можете уменьшить масштаб изображения больше, чем на изображении? Я попытался настроить представление в моем коде, но вы все еще можете уменьшить масштаб, поэтому я удалил эту часть.

    mymap <- leaflet() %>% 

addProviderTiles("Esri.WorldGrayCanvas") %>%
addPolygons(data = dortmund, 
            fillColor = ~palette(student1$Anteil),  ## we want the polygon filled with 
            ## one of the palette-colors
            ## according to the value in student1$Anteil
            fillOpacity = 0.6,         ## how transparent do you want the polygon to be?
            color = "darkgrey",       ## color of borders between districts
            weight = 1.5,            ## width of borders
            popup = popup1,         ## which popup?
            group="<span style='color: #7f0000; font-size: 11pt'><strong>2000</strong></span>")%>%  
            ## which group?
            ## the group name has to be the same as later in "baseGroups", where we define 
            ## the groups for the Layerscontrol. Because for this layer I wanted a specific 
            ## color and size, the group name includes some font arguments.  

## for the second layer we mix things up a little bit, so you'll see the difference in the map!
addPolygons(data = dortmund, 
            fillColor = ~palette(student2$Anteil), 
            fillOpacity = 0.2, 
            color = "white", 
            weight = 2.0, 
            popup = popup2, 
            group="2014")%>%
addLayersControl(
    baseGroups = c("<span style='color: #7f0000; font-size: 11pt'><strong>2000</strong></span>", ## group 1
                   "2014" ## group 2
    ),
    options = layersControlOptions(collapsed = FALSE))%>% ## we want our control to be seen right away
addLegend(position = 'topleft', ## choose bottomleft, bottomright, topleft or topright
           colors = c('#fee0d2',
                      '#fcbba1',
                      '#fc9272',
                      '#fb6a4a',
                      '#ef3b2c',
                      '#cb181d',
                      '#a50f15',
                      '#67000d'), 
           labels = c('0%',"","","","","","",'26%'),  ## legend labels (only min and max)
           opacity = 0.6,      ##transparency 
           title = "relative<br>amount")   ## title of the legend

Простите мои плохие английские навыки. Если важно ответить на мой вопрос, полный код здесь: http://journocode.com/2016/01/28/your-first-choropleth-map/.

Большое спасибо

Ответ 1