Use only src_sqlite in reading

geoip.R

@@ -3,7 +3,7 @@ library(leaflet)
 
 src_sqlite("access.db") %>%
   tbl("access") %>%
-  left_join(db %>% tbl("geoip")) %>%
+  left_join(src_sqlite("access.db") %>% tbl("geoip")) %>%
   collect %>%
   mutate(timestamp = timestamp %>% as.POSIXct(origin = "1970-01-01")) %>%
   mutate_at(vars(city, country, agent), factor) -> geoaccess