title: Shiny: Is there a way to enable mouse wheel zoom only after click on map in shiny?
body: <p>Is there a way to enable mouse wheel zoom only after first click on map.</p>
  
  <p>I have the following code in which I want to zoom the map only after click on the map. Is there a way to do that in shiny?</p>
  
  <pre><code>library(shiny)
  library(leaflet)
  library(maps)
  
  ui &lt;- fluidPage(
   leafletOutput("CountryMap", width = 1000, height = 500)
  )
  
  server &lt;- function(input, output){
     Country = map("world", fill = TRUE, plot = FALSE, regions="USA", exact=TRUE)
     output$CountryMap &lt;- renderLeaflet({
     leaflet(Country) %&gt;% addTiles() %&gt;%
     fitBounds(Country$range[1], Country$range[3], Country$range[2], Country$range[4])%&gt;%
     addPolygons(fillOpacity = 0.6,  smoothFactor = 0.5, stroke = TRUE, weight = 1)
  })
  }
  
  shinyApp(ui =ui, server = server)
  </code></pre>