Assignment_5

raw_json <- fromJSON("https://raw.githubusercontent.com/wilsonvetdev/DATA607/main/Assignment1016/books.json")

raw_json

## $books
##                  title                         author year
## 1 tuesdays with Morrie                    Mitch Albom 2000
## 2        The Alchemist                   Paulo Coelho 1988
## 3   Last Chance to See Douglas Adams, Mark Carwardine 1990

page <- read_html("https://raw.githubusercontent.com/wilsonvetdev/DATA607/main/Assignment1016/books.html") 

page %>% html_table(fill=T) %>% as.data.frame()

##                  title                         author year
## 1 tuesdays with Morrie                    Mitch Albom 2000
## 2        The Alchemist                   Paulo Coelho 1988
## 3   Last Chance to See Douglas Adams, Mark Carwardine 1990

xml_data <- getURL("https://raw.githubusercontent.com/wilsonvetdev/DATA607/main/Assignment1016/books.xml")

doc <- xmlParse(xml_data) 

xml_df <- xmlToDataFrame(doc)

xml_df

##                  title                         author year
## 1 tuesdays with Morrie                    Mitch Albom 2000
## 2        The Alchemist                   Paulo Coelho 1988
## 3   Last Chance to See Douglas Adams, Mark Carwardine 1990

The dataframes are identical - they each have three columns and three rows housing title, author, and year published data.