Select on geoip result and insert in db

geoip.R

@@ -33,10 +33,9 @@ db %>%
 if (length(ips) > 0)
 {
   ips %>%
-    geolocate -> geoip
-
-  dbConnect(SQLite(), "access.db") %>%
-    dbWriteTable("geoip", geoip, append = T)
+    geolocate %>%
+    select(ip = query, city, country, lat, lon) %>%
+    dbWriteTable(conn = db, name = "geoip", value = ., append = T)
 }
 
 src_sqlite("access.db") %>%