From 07de553b835560430ab4b74cd29327059ac58bc6 Mon Sep 17 00:00:00 2001 From: Grant Cavanaugh Date: Fri, 15 Dec 2017 08:22:52 -0800 Subject: [PATCH] Added override limit clause to an error catch --- R/geocode.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/geocode.R b/R/geocode.R index 27b7a01..4171d68 100644 --- a/R/geocode.R +++ b/R/geocode.R @@ -114,7 +114,7 @@ geocode <- function(location, output = c("latlon", "latlona", "more", "all"), # message/stop as neeeded s <- sprintf("google restricts requests to %s requests a day for non-premium use.", limit) - if(length(location) > as.numeric(limit)) stop(s, call. = FALSE) + if(length(location) > as.numeric(limit) && !override_limit) stop(s, call. = FALSE) if(length(location) > 200 && messaging) message(paste("Reminder", s, sep = " : ")) # geocode ply and out