update_frequency.R

library("rvest")
library("anytime")

# From https://steamdb.info/app/730/patchnotes/
patchnotes <- read_html("C:/Users/kristi/Documents/Counter-Strike_ Global Offensive (App 730) · Patches and Updates · SteamDB.html")

update_timestamps <- patchnotes %>%
  html_nodes("tbody") %>%
  .[[2]] %>%
  html_elements("tr") %>%
  html_attr("data-date") %>%
  as.integer()


# break by months
hist(anydate(update_timestamps), breaks="month", freq=TRUE, main="CS:GO Update Frequency", xlab="Month", ylab="Updates", las=1, border="orange")

#library("ggplot2")
# break into 70 pieces
#qplot(anytime(update_timestamps), bins=30, alpha=I(.2), col=I("red"), main="CS:GO Update Frequency")