url_html <- "https://raw.githubusercontent.com/tylerbaker01/Homework-Week-7/main/books.html"
html <- read_html(url_html)
books_html <- html_table(html)
books_html <- books_html[[1]]link <- "https://raw.githubusercontent.com/tylerbaker01/Homework-Week-7/main/books.xml"
books_xml<- as.list(read_html(link))url_json <- "https://raw.githubusercontent.com/tylerbaker01/Homework-Week-7/main/books%20json"
json_data <- fromJSON(url_json)