Impedire lo zoom in R-Map opuscolo?

Question

Ho creato una mappa di volantini con il volantino R-package.

Questo è ciò che il risultato è simile:

Sono molto felice con lui, ma quando l'ho incorporare in un sito web e scorrere in basso l'articolo con il mio portatile ho spesso accidentalmente zoom fuori dalla mappa che poi guarda in questo modo:

l'utente ha per ingrandire indietro nel troppo avere uno sguardo alla parte intersteing della mappa che veramente mi infastidisce.

C'è un modo per bloccare la parte della mappa come è possibile ingrandire come al solito, ma non è possibile eseguire lo zoom indietro più come nell'immagine? Ho provato a impostare la vista nel mio codice, ma puoi comunque eseguire lo zoom indietro, quindi ho eliminato quella parte.

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's 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 

Perdona le mie cattive abilità in inglese. Se è importante rispondere alla mia domanda, il codice completo è qui: http://journocode.com/2016/01/28/your-first-choropleth-map/.

La ringrazio molto

Answer 1

sostituire il vostro addProviderTiles con il seguente (set di qualunque livello di zoom desiderato per max e min:!

addProviderTiles("Esri.WorldGrayCanvas", 
     options = providerTileOptions(minZoom=10, maxZoom=18))