Skip to content

Instantly share code, notes, and snippets.

@pbiecek
Created March 10, 2015 20:58
Show Gist options
  • Save pbiecek/cd801bc0b770f03691b5 to your computer and use it in GitHub Desktop.
Save pbiecek/cd801bc0b770f03691b5 to your computer and use it in GitHub Desktop.
nodes <- html_nodes(page, "table:nth-child(11) td:nth-child(3)")
html_text(nodes)
as.numeric(gsub(html_text(nodes), pattern="[^0-9\\.]", replacement=""))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment