Corrected ip field in query on db

feed_db.R

@@ -22,9 +22,9 @@ known_ips <- character(0)
 
 db %>%
   tbl("geoip") %>%
-  select(query) %>%
+  select(ip) %>%
   collect %>%
-  pull(query) -> known_ips
+  pull(ip) -> known_ips
 
 db %>%
   tbl("access") %>%