predictWebsiteHits.R

   1 setwd("~/work")
   2 library(jsonlite)
   3 library(fable)
   4 library(tsibble)
   5 library(lubridate)
   6
   7 logfile <- file("photos.vanrenterghem.biz.access.kvp.log")
   8
   9 apachelog <- stream_in(logfile)
  10
  11 #apachelog$time <- gsub("\\[|\\]", "", apachelog$time)
  12 apachelog %>%
  13   mutate(time = gsub("\\[|\\]", "", time),
  14            time = dmy_hms(time)) %>%
  15   group_by(time) %>%
  16   summarise(hits = n()) ->
  17   apachelog
  18
  19 as.tsibble(apachelog, index = time)