From 8ec909dfa7bd77f8a0cd89653db567000f9dfa56 Mon Sep 17 00:00:00 2001
From: HAVB <avazquez@gmail.com>
Date: Tue, 1 Oct 2019 19:33:25 -0300
Subject: [PATCH] Fix: now lat/lon output is numeric (was character)

---
 R/USIG_geocode.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/USIG_geocode.R b/R/USIG_geocode.R
index a08326b..d6d8c68 100644
--- a/R/USIG_geocode.R
+++ b/R/USIG_geocode.R
@@ -76,8 +76,8 @@ USIG_geocode <- function(address) {
 
 
             data.frame(address_normalised = ifelse(is.null(address_normalised), NA, address_normalised),
-                       lon = ifelse(is.null(x), NA, x),
-                       lat = ifelse(is.null(y), NA, y),
+                       lon = ifelse(is.null(x), NA, as.numeric(x)),
+                       lat = ifelse(is.null(y), NA, as.numeric(y)),
                        stringsAsFactors = FALSE)
         }
     }