Skip to content

Instantly share code, notes, and snippets.

@1beb

1beb/fundserv_codes.R

Created May 25, 2011 23:03
Show Gist options
  • Save 1beb/992205 to your computer and use it in GitHub Desktop.
Save 1beb/992205 to your computer and use it in GitHub Desktop.
Download ZIP
Pull FundServ Data into R
Raw
fundserv_codes.R
library(XML)
theurl <- "http://www.fundserv.com/services/code-lists.php?status_type=1&file_type=d"
dealer.codes <- readHTMLTable(theurl)
n.rows <- unlist(lapply(dealer.codes, function(t) dim(t)[1]))
dealer.codes <- dealer.codes[[which.max(n.rows)]]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment