From 6bc7c82fd104666efc829dbb557179767b434a65 Mon Sep 17 00:00:00 2001
From: Maxime Wack <maximewack@free.Fr>
Date: Wed, 17 Jan 2018 18:04:12 +0000
Subject: [PATCH] Select on geoip result and insert in db

---
 geoip.R | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

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") %>%