change read_geocode_cache() top load_geocode_cache()

NAMESPACE

@@ -45,12 +45,12 @@ export(inset)
 export(inset_ggmap)
 export(inset_raster)
 export(legs2route)
+export(load_geocode_cache)
 export(make_bbox)
 export(mapdist)
 export(mutate_geocode)
 export(qmap)
 export(qmplot)
-export(read_geocode_cache)
 export(register_google)
 export(retry_stamen_map_download)
 export(revgeocode)

R/geocode.R

@@ -19,6 +19,8 @@
 #'   and appended to the query)
 #' @param data a data frame or equivalent
 #' @param path path to file
+#' @param overwrite in [load_geocode_cache()], should the current cache be
+#'   wholly replaced with the one on file?
 #' @param ... In [mutate_geocode()], arguments to pass to [geocode()]. In
 #'   [write_geocode_cache()], arguments to pass to [saveRDS()].
 #' @return If \code{output} is "latlon", "latlona", or "more", a tibble (classed
@@ -27,8 +29,10 @@
 #' @seealso \url{http://code.google.com/apis/maps/documentation/geocoding/},
 #'   \url{https://developers.google.com/maps/documentation/javascript/geocoding},
 #'
+#'
 #'   \url{https://developers.google.com/maps/documentation/geocoding/usage-limits}
 #'
+#'
 #' @name geocode
 #' @examples
 #'
@@ -511,28 +515,36 @@ write_geocode_cache <- function (path, ...) {
 
 
 
+
 #' @export
 #' @rdname geocode
-read_geocode_cache <- function(path) {
+load_geocode_cache <- function(path, overwrite = FALSE) {
 
   if (!exists(".geocode_cache", envir = ggmap_environment)) {
 
     assign(".geocode_cache", list(), ggmap_environment)
 
   } else {
 
-    assign(
-      ".geocode_cache",
-      c(geocode_cache(), readRDS(path)),
-      ggmap_environment
-    )
+    if (overwrite) {
+      assign(".geocode_cache", readRDS(path), ggmap_environment)
+    } else {
+      assign(
+        ".geocode_cache",
+        c(geocode_cache(), readRDS(path)),
+        ggmap_environment
+      )
+    }
 
   }
 
 }
 
 
 
+
+
+
 #' @export
 #' @rdname geocode
 clear_geocode_cache <- function(path) {