diff --git a/geoip.R b/geoip.R index 3bae6d1..14f960d 100644 --- a/geoip.R +++ b/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