|
- library(tidyverse)
- library(leaflet)
-
- src_sqlite("access.db") %>%
- tbl("access") %>%
- 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
-
- geoaccess %>%
- filter(status != 404,
- !agent %>% str_detect("bot")) %>%
- distinct(ip, lon, lat) %>%
- leaflet %>%
- addProviderTiles(providers$CartoDB.Positron) %>%
- addMarkers(~lon, ~lat, clusterOptions = markerClusterOptions())
|