|
- library(tidyverse)
- library(ipapi)
-
- system("grep GraphTV /var/log/nginx/access.log | grep -vi bot | cut -d ' ' -f 1 | sort | uniq", intern = T) -> ips
-
- read_delim("/var/log/nginx/access.log", delim = " ", col_names = c("ip", "null", "user", "timestamp", "zone", "req", "status", "size", "referer", "agent")) %>%
- select(-null, -user, -zone, -size) %>%
- mutate(timestamp = timestamp %>% str_sub(2) %>% as.POSIXct(format = "%d/%b/%Y:%H:%M:%S")) %>%
- mutate_at(vars(status), factor) -> access
-
- geolocate(ips) -> geoip
|