diff --git a/geoip.R b/geoip.R
index 180fae2..7b151b9 100644
--- a/geoip.R
+++ b/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") %>%