jduckles

library(tidyverse)
library(readr)

workshops <- read_csv('workshops.csv')
svg('workshops.svg')
ggplot(workshops, aes(x=date,y=workshops$count)) + geom_line() + ylab("Cumulative Number of Workshops")
dev.off()

instructors <- read_csv("instructors.csv")
svg('instructors.svg')

leeper

# Check URLs in a document

## This code will extract URLs from a text document using regex,
## then execute an HTTP HEAD request on each and report whether
## the request failed, whether a redirect occurred, etc. It might
## be useful for cleaning up linkrot.

if (!require("httr")) {
    install.packages("httr", repos = "http://cran.rstudio.com/")
}