Parse a CSV file exported from Uptime Robot to get a summary of outages over the past year.

UptimeRobot.R

if (!require("pacman")) install.packages("pacman")
pacman::p_load(tidyverse, lubridate, pander)

inputFileName <- file.choose()
rawData <- read_csv(inputFileName, locale = locale(tz = Sys.timezone()), col_types = cols(
  Event = col_character(),
  `Date-Time` = col_datetime(format = ""),
  Reason = col_factor(levels = NULL),
  Duration = col_character(),
  `Duration (in mins.)` = col_integer()
)) %>% 
rename(
  When = `Date-Time`
)

outagesOverPastYear <- rawData %>%
  mutate(PreviousWhen = lead(`When`)) %>%
  filter(Event == "Up") %>%
  select(PreviousWhen, When) %>% 
  mutate(DurationMinutes = round(as.numeric(When - PreviousWhen, 'mins'), digits = 0)) %>% 
  filter(PreviousWhen > (Sys.time() %m+% years(-1))) %>% 
  rename(
    OutageStarted = PreviousWhen,
    OutageFinished = When
  )

outagesOverPastYear %>%
  pander(style="simple", justify = c("left", "left", "right"))