Leaflet draw

devtools::install_github('bhaskarvk/leaflet.extras')

library(leaflet)
library(leaflet.extras)
leaflet(width = 950) %>%
 setView(lat = 50.742, lng = -1.89, zoom = 10) %>%
      addTiles(group="OSM") %>%
      addMiniMap(position = "bottomleft") %>%
      addScaleBar() %>%
      addGraticule(interval=1,group="Graticule") %>%
      addMeasure(primaryLengthUnit ='meters', secondaryLengthUnit='kilometers',primaryAreaUnit='hectares', secondaryAreaUnit='acres') %>%
      addProviderTiles(providers$Stamen.Toner, group = "Toner") %>%
      addProviderTiles("Esri.WorldImagery", group = "Satellite") %>%
      addProviderTiles("Esri.WorldShadedRelief", group = "Shaded relief",options = providerTileOptions(opacity =1))%>%
      addLayersControl(
        baseGroups = c("OSM", "Toner","Satellite","Shaded relief"),
        overlayGroups = c("Graticule"),
        options = layersControlOptions(collapsed = TRUE)) %>%
  
  addDrawToolbar(
    targetGroup='draw',
    editOptions = editToolbarOptions(selectedPathOptions = selectedPathOptions()))  %>%
  addStyleEditor()