Assignment3_BI

#install.packages("rvest")
library(rvest)
#install.packages("robotstxt")
library(robotstxt)

html_bbl <- read_html("https://www.basketball-reference.com/boxscores/?month=6&day=14&year=2025")

4. using an html table function to convert to tibble

url <- "https://en.wikipedia.org/wiki/2025_in_film"
html_page <- read_html(url)

html_table(html_page)

6. Scraping the Highest Grossing Films

paths_allowed("https://en.wikipedia.org/wiki/2025_in_film")
highest_doc <- read_html("https://en.wikipedia.org/wiki/2025_in_film")
film_html <- html_elements(highest_doc, "table")
html_table(film_html[])[]