setwd("~/work")
library(jsonlite)
library(fable)
library(tsibble)
library(lubridate)

logfile <- file("photos.vanrenterghem.biz.access.kvp.log")

apachelog <- stream_in(logfile)

#apachelog$time <- gsub("\\[|\\]", "", apachelog$time)
apachelog %>%
  mutate(time = gsub("\\[|\\]", "", time),
           time = dmy_hms(time)) %>%
  group_by(time) %>%
  summarise(hits = n()) ->
  apachelog

as.tsibble(apachelog, index = time)