Fix: now lat/lon output is numeric (was character)

bitsandbricks · Oct 1, 2019 · 8ec909d · 8ec909d
1 parent 73674f7
commit 8ec909d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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)
         }
     }