Save Fed Speeches for a Subset

fed.speeches.save.subset.R

## Save raw HTML to individual text files for a subset

  # Create id numbers that matches the full list of URLS
  # This included URLs numbered 490 to 625
  fed.subset.df$id <- c(490:625)

  y <- 1:nrow(fed.subset.df)

## Save Subset of HTML files
for(i in y) {
  idNumber <- fed.subset.df[i,2]
  write(as.character(fed.subset.df[i,1]), file = paste(outpathA, "/", idNumber, ".txt", sep = ""))
}