DATA 607 Homework 6

jsonTable = data.frame(fromJSON('https://raw.githubusercontent.com/parastyle/DATA607/master/books.json'))
jsonTable

##                      book_table.book.Title book_table.book.Author
## 1          Computer Power and Human Reason      Joseph Weizenbaum
## 2     Optimization and Computational Logic            Ken McAloon
## 3 From standard logic to logic programming              A. Thayse
##                                            book_table.book.Brief
## 1 Definitive integration of technological and humanistic thought
## 2         Merges discrete and continuous problem solving methods
## 3  Introducing a logic based apporach to artificial intelligence
##   book_table.book.ISBN book_table.book.Pages
## 1        0-7167-0463-3                   280
## 2        0-471-11533-9                   520
## 3        0-471-91838-5                   335

xmlTable = data.frame(xmlToDataFrame(getURL('https://raw.githubusercontent.com/parastyle/DATA607/master/books.xml')))
xmlTable

##                                      Title            Author
## 1          Computer Power and Human Reason Joseph Weizenbaum
## 2     Optimization and Computational Logic       Ken McAloon
## 3 From standard logic to logic programming         A. Thayse
##                                                            Brief
## 1 Definitive integration of technological and humanistic thought
## 2         Merges discrete and continuous problem solving methods
## 3  Introducing a logic based apporach to artificial intelligence
##            ISBN Pages
## 1 0-7167-0463-3   280
## 2 0-471-11533-9   520
## 3 0-471-91838-5   335

htmlTable = data.frame(readHTMLTable(getURL('https://raw.githubusercontent.com/parastyle/DATA607/master/books.html'),header=TRUE,which=1))
htmlTable

##                                      Title            Author
## 1          Computer Power and Human Reason Joseph Weizenbaum
## 2     Optimization and Computational Logic       Ken McAloon
## 3 From standard logic to logic programming         A. Thayse
##                                                            Brief
## 1 Definitive integration of technological and humanistic thought
## 2         Merges discrete and continuous problem solving methods
## 3  Introducing a logic based apporach to artificial intelligence
##            ISBN Pages
## 1 0-7167-0463-3   280
## 2 0-471-11533-9   520
## 3 0-471-91838-5   335

xmlComparedToJson = xmlTable == jsonTable
xmlComparedToJson

##      Title Author Brief ISBN Pages
## [1,]  TRUE   TRUE  TRUE TRUE  TRUE
## [2,]  TRUE   TRUE  TRUE TRUE  TRUE
## [3,]  TRUE   TRUE  TRUE TRUE  TRUE

xmlComparedToHTML = xmlTable == htmlTable
xmlComparedToHTML

##      Title Author Brief ISBN Pages
## [1,]  TRUE   TRUE  TRUE TRUE  TRUE
## [2,]  TRUE   TRUE  TRUE TRUE  TRUE
## [3,]  TRUE   TRUE  TRUE TRUE  TRUE

if XML = JSON, and XML = HMTL, then HTML = JSON.

Data frames are identical.