Hantz_Angrand_Acquisition_HW7

Read html data

#Load XML Library
library('XML')

#Read html file
book_html<-readHTMLTable('C:/Users/hangr/Documents/Acquisition and data management/myBooks/books.html')
book_html

## $`NULL`
##                                                            Title
## 1                                          The Republic Of Plato
## 2 Capitalism without capital: The Rise of the intangible Economy
## 3                                            Python Crash Course
##                               Author                  Publisher Year
## 1          Francis McDonald CornFord    Oxford University Press 1945
## 2 Haskel Jonathan and Stian Westlake Princeton University Press 2018
## 3                       Eric Matthes            William Pollock 2016
##                 ISBN
## 1 9178-0-19-500364-2
## 2  978-0-691-17503-4
## 3  978-1-59327-603-4

#Reading XML file
book_xml<-xmlToDataFrame('C:/Users/hangr/Documents/Acquisition and data management/myBooks/books.xml')
book_xml

Reading JSON File

#Load libraries jsonlite
library('jsonlite')

books_json<-fromJSON('C:/Users/hangr/Documents/Acquisition and data management/myBooks/books.json')
books_json

identical(book_html,book_xml)

## [1] FALSE

identical(book_html,books_json)

## [1] FALSE

identical(book_xml, books_json)

## [1] FALSE

NONE OF OUR FILE TYPE ARE IDENTICAL.