Data 607 Week 7

install.packages("rvest")

## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.5'
## (as 'lib' is unspecified)

install.packages("jsonlite")

## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.5'
## (as 'lib' is unspecified)

library(rvest)
library(jsonlite)

html_page <- read_html("books.html")
books_html <- html_page |> html_table(fill = TRUE)
books_html <- books_html[[1]]

json_data <- fromJSON("books.json")
books_json <- json_data$books
books_json <- as.data.frame(books_json)

colnames(books_json) <- colnames(books_html)

books_html <- data.frame(lapply(books_html, as.character), stringsAsFactors = FALSE)
books_json <- data.frame(lapply(books_json, as.character), stringsAsFactors = FALSE)

identical(books_html, books_json)

## [1] TRUE