Make new editorOptions() argument available in drawFeatures

[JoshOBrien]

@tim-salabim (at #100 (comment)) noted that "the new editorOptions() argument is not available in drawFeatures". With a few additional lines, this ties up that loose end.

[JoshOBrien]

Here is a simple reproducible example that can be used to test the new feature:

library(sf)
library(mapview)
library(mapedit)

##------------------------------------------------------------------------------
## Simple example for testing
##------------------------------------------------------------------------------
x <- list(matrix(c(11,0,11,1,12,1,12,0,11,0), ncol = 2, byrow = TRUE))
pp <- st_sf(geom = st_sfc(st_polygon(x)), crs = 4326)
m <- mapview(pp)


##------------------------------------------------------------------------------
## Passing options to leafpm editor
##------------------------------------------------------------------------------
optsA <- list(drawOptions = list(snappable = FALSE,
                                 hintlineStyle = list(color = "red",
                                                      opacity = 0.5),
                                 templineStyle = list(color = "red")),
              editOptions = list(snappable = FALSE))
y <- drawFeatures(m, editor = "leafpm", editorOptions = optsA)

##------------------------------------------------------------------------------
## Passing options to leaflet.extras editor
##------------------------------------------------------------------------------
## A stripped down toolbar
optsB <- list(editOptions = list(remove = FALSE),
              circleOptions = FALSE,
              markerOptions = FALSE,
              circleMarkerOptions = FALSE,
              rectangleOptions = FALSE)
y <- drawFeatures(m, editor = "leaflet.extras", editorOptions = optsB)