Gather Fed Speeches

get_fed_speeches.R

## Download websites

addresses <- read.csv("~/links.full.csv")

for (i in addresses){
    fed.text <- getURL(i)
}

fed.df <- as.data.frame(fed.text)

## Save raw HTML to individual text files
outpathA <- "~/fed.text.indv.full/"

x <- 1:nrow(fed.df)

for(i in x) {
   write(as.character(fed.df[i,1]), file = paste(outpathA,"/",i,".txt",sep = ""))
}