rm purrr

DESCRIPTION

@@ -22,7 +22,6 @@ Imports:
     jsonlite,
     lubridate,
     osmdata,
-    purrr,
     raster,
     RCurl,
     readxl,

R/download_osm.R

@@ -102,9 +102,9 @@ download_osm <- function (mainPath, location, type, alwaysDownload = FALSE, most
   }
   # Download 
   message(paste0("Downloading OSM data (", type, ")..."))
-  osmData <- opq(bbox = bb)  %>%
-    add_osm_feature(key = colName, value = classes) %>%
-    osmdata_sf()
+  osmData <- osmdata::opq(bbox = sf::st_bbox(border)) %>%
+    osmdata::add_osm_feature(key = colName, value = classes) %>%
+    osmdata::osmdata_sf()
 
   if (type == "roads" | type == "waterLines") {
     shp <- osmData$osm_lines

R/process_raster.R

@@ -11,7 +11,7 @@
 #' @keywords internal
 #' @export
 process_raster <- function (ras, border, epsg, projMeth) {
-  `%>%` <- purrr::`%>%`
+  # `%>%` <- purrr::`%>%`
   border <- sf::st_transform(as(border, "sf"), terra::crs(ras))
   cat(paste("Cropping:\n", ras %>% terra::sources()))
   rasCrop <- terra::crop(ras, border)