add selectFeatures to select features from sf

DESCRIPTION

@@ -25,4 +25,4 @@ Suggests:
     mapview
 Encoding: UTF-8
 LazyData: true
-RoxygenNote: 5.0.1
+RoxygenNote: 6.0.1

NAMESPACE

@@ -1,6 +1,8 @@
 # Generated by roxygen2: do not edit by hand
 
 S3method(edit_map,leaflet)
+S3method(selectFeatures,sf)
 S3method(select_map,leaflet)
 export(edit_map)
+export(selectFeatures)
 export(select_map)

R/select.R

@@ -0,0 +1,32 @@
+#' Interactively Select Map Features
+#'
+#' @param x map to use
+#'
+#' @param ... other arguments
+#'
+#' @example ./inst/examples/examples_select.R
+#' @export
+selectFeatures <- function(x, ...) {
+  UseMethod("selectFeatures")
+}
+
+#' @export
+selectFeatures.sf <- function(x, ...) {
+  x$edit_group = as.character(1:nrow(x))
+
+  addfun = switch(as.character(sf::st_dimension(sf::st_geometry(x)))[1],
+                  "0" = leaflet::addCircleMarkers,
+                  "1" = leaflet::addPolylines,
+                  "2" = leaflet::addPolygons)
+
+  m = leaflet::leaflet() %>%
+    leaflet::addTiles() %>%
+    addfun(data = x, weight = 1, group = ~edit_group)
+
+  ind = select_map(m, ...)
+
+  indx = ind$group[as.logical(ind$selected)]
+  todrop = "edit_group"
+  return(x[as.numeric(indx), !names(x) %in% todrop])
+}
+