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