HW7

library(XML)
library(knitr)
library(jsonlite)  
library(RCurl)

## Loading required package: bitops

library(DT)

## Warning: package 'DT' was built under R version 3.5.3

Json format:

book_json<- fromJSON("https://raw.githubusercontent.com/Weicaidata/607/master/book.json.txt")
book_json <- as.data.frame(book_json)
datatable(book_json)

HTML format:

html <- getURL("https://raw.githubusercontent.com/Weicaidata/607/master/book1.html")
book_html <- readHTMLTable(html)
book_html <- as.data.frame(book_html)
datatable(book_html)

XML format:

url <- getURL("https://raw.githubusercontent.com/Weicaidata/607/master/book5.xml")
xml <- xmlParse(url)
root <- xmlRoot(xml)
book_xml <- xmlToDataFrame(root)
datatable(book_xml)