Initial commit

R/geocode.R

@@ -0,0 +1,22 @@
+library(dplyr, warn.conflicts = FALSE)
+library(tidygeocoder)
+
+# create a dataframe with addresses
+some_addresses <- tibble::tribble(
+  ~name,                  ~addr,
+  "White House",          "1600 Pennsylvania Ave NW, Washington, DC",
+  "Transamerica Pyramid", "600 Montgomery St, San Francisco, CA 94111",     
+  "Willis Tower",         "233 S Wacker Dr, Chicago, IL 60606",
+  "Rob",                  "863 Tartan Dr, Venice, FL 34293"
+)
+
+# geocode the addresses
+lat_longs <- some_addresses %>%
+  geocode(
+    addr, 
+    method = 'google', 
+    lat = latitude , 
+    long = longitude
+)
+# 
+#