607 assignment 7

##load libary

library(XML)
library(RCurl)
library(jsonlite)
library(DT)

##HTML

htmlurl<- getURLContent("https://raw.githubusercontent.com/jayleecunysps/AssignmentforSPS/main/favbook.html")
html <-readHTMLTable(htmlurl)
html<-html[[1]]
datatable(html)

XML

xmlurl<-getURL("https://raw.githubusercontent.com/jayleecunysps/AssignmentforSPS/main/favbook.xml")
xml <- xmlParse(xmlurl)
xml = xmlToDataFrame(xml)
datatable(xml)

jsonurl <- fromJSON("https://raw.githubusercontent.com/jayleecunysps/AssignmentforSPS/main/favbook.json")
json <- jsonurl[[1]]
json <- as.data.frame(json)
datatable(json)

summary(html)

##     Title              Author           Publisher            Pages          
##  Length:3           Length:3           Length:3           Length:3          
##  Class :character   Class :character   Class :character   Class :character  
##  Mode  :character   Mode  :character   Mode  :character   Mode  :character  
##    Language        
##  Length:3          
##  Class :character  
##  Mode  :character

summary(xml)

##     Title              Author           Publisher            Pages          
##  Length:3           Length:3           Length:3           Length:3          
##  Class :character   Class :character   Class :character   Class :character  
##  Mode  :character   Mode  :character   Mode  :character   Mode  :character  
##    Language        
##  Length:3          
##  Class :character  
##  Mode  :character

summary(json)

##     Title              Author           Publisher            Pages          
##  Length:3           Length:3           Length:3           Length:3          
##  Class :character   Class :character   Class :character   Class :character  
##  Mode  :character   Mode  :character   Mode  :character   Mode  :character  
##    Language        
##  Length:3          
##  Class :character  
##  Mode  :character