Skip to content

Instantly share code, notes, and snippets.

Avatar

Steve Simpson data-steve

  • Taylors, SC
View GitHub Profile
View parse_extract_html_table_w_content_preserved.R
#compare with https://gist.github.com/expersso/bb03efcab2a6c125da5ac22e1c33d070
url <- "https://github.com/daattali/addinslist/blob/master/README.md#list-of-addins"
get_html_table <- function(url){
xx <- xml2::read_html(url)
rvest::xml_node(rvest::xml_node(xx,"body"),"table")
}
tr_to_nms <- function(tbl){