feat: add location name in function return

FRBCesab · Dec 12, 2023 · c15021a · c15021a
1 parent 89741b9
commit c15021a
Showing 1 changed file with 6 additions and 4 deletions.
diff --git a/R/address_to_coords.R b/R/address_to_coords.R
@@ -76,12 +76,14 @@ address_to_coords <- function(address) {
 
   if (length(results) == 0) {
 
-    return(data.frame("lon" = numeric(0),
-                      "lat" = numeric(0)))
+    return(data.frame("lon"  = numeric(0),
+                      "lat"  = numeric(0),
+                      "name" = character(0)))
 
   } else {
 
-    return(data.frame("lon" = as.numeric(results$"lon"),
-                      "lat" = as.numeric(results$"lat")))
+    return(data.frame("lon"  = as.numeric(results$"lon"),
+                      "lat"  = as.numeric(results$"lat"),
+                      "name" = results$"display_name"))
   }
 }