add argument editor to drawFeatures. sohuld fix #90

r-spatial · Jan 30, 2019 · 4e4c6a9 · 4e4c6a9
1 parent 445db14
commit 4e4c6a9
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/R/draw.R b/R/draw.R
@@ -33,12 +33,14 @@ drawFeatures = function(map = NULL,
                         record = FALSE,
                         viewer = shiny::paneViewer(),
                         title = "Draw Features",
+                        editor = c("leaflet.extras", "leafpm"),
                         ...) {
   res = editMap(x = map,
                 sf = sf,
                 record = record,
                 viewer = viewer,
                 title = title,
+                editor = editor,
                 ...)
   if (!inherits(res, "sf") && is.list(res)) res = res$finished
   return(res)

diff --git a/R/edit.R b/R/edit.R
@@ -154,7 +154,7 @@ editMap.mapview <- function(
 
 #' @name editMap
 #' @export
-editMap.NULL = function(x, ...) {
+editMap.NULL = function(x, editor = c("leaflet.extras", "leafpm"), ...) {
   m = mapview::mapview()@map
   m = leaflet::fitBounds(
     m,
@@ -163,7 +163,7 @@ editMap.NULL = function(x, ...) {
     lng2 = 180, #as.numeric(sf::st_bbox(x)[3]),
     lat2 = 90 #as.numeric(sf::st_bbox(x)[4])
   )
-  ed = editMap(m, record=TRUE)
+  ed = editMap(m, record = TRUE, editor = editor)
   ed_record <- ed$finished
   attr(ed_record, "recorder") <- attr(ed, "recorder", exact = TRUE)
   ed_record