|
|
|
@@ -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 |
|
|
|
|
