Use one db conn object

geoip.R

@@ -16,13 +16,13 @@ read_delim("access.log", delim = " ", col_names = c("ip", "null1", "user", "time
 
 known_ips <- character(0)
 
-src_sqlite("access.db") %>%
+db %>%
   tbl("geoip") %>%
   select(query) %>%
   collect %>%
   pull(query) -> known_ips
 
-src_sqlite("access.db") %>%
+db %>%
   tbl("access") %>%
   select(ip) %>%
   collect %>%