Favorite Books

#The below exercise is to import the name data frame from files of three different types. The three files were manual built in a table format**

library(rjson)

#import json

#fav_bks_json <- fromJSON(file = "favorite_books_json.json")

#import html

library(XML)
fav_bks_html <- data.frame(readHTMLTable("favorite_books_html.html")[1])

#import xml

#fav_bks_xml <- data.frame(xmlParse("favorite_books_xml.xml"))