DATA 607 HW 7

library(RJSONIO)
jsF <- '/Users/samdevries/Documents/DATA607/books.json'
jsDF <- data.frame(fromJSON(jsF))

library(XML)
x <- xmlParse("/Users/samdevries/Documents/DATA607/books.xml")
xDF <- xmlToDataFrame(nodes=getNodeSet(x,"//Books"))

h <- '/Users/samdevries/Documents/DATA607/books.html'
hDF <- data.frame(readHTMLTable(h))