#install.packages("robotstxt")
#install.packages("rvest")#Question 5
library(robotstxt)
library(rvest)
url <- "https://en.wikipedia.org/wiki/2024_in_film"
paths_allowed(url)## en.wikipedia.org## [1] TRUE#Question 6
film_html <- read_html("https://en.wikipedia.org/wiki/2024_in_film")
table_html <- html_elements(film_html, "table")
table_html## {xml_nodeset (7)}
## [1] <table class="sidebar nomobile nowraplinks"><tbody>\n<tr><th class="sideb ...
## [2] <table class="wikitable sortable" style="margin:auto; text-align:left">\n ...
## [3] <table class="wikitable sortable"><tbody>\n<tr>\n<th>Date</th>\n<th>Event ...
## [4] <table class="wikitable sortable" style="font-size:90%;"><tbody>\n<tr>\n< ...
## [5] <table class="wikitable" style="font-size: 90%;"><tbody>\n<tr>\n<th rowsp ...
## [6] <table class="wikitable sortable defaultcenter" style="font-size:90%;">\n ...
## [7] <table class="nowraplinks mw-collapsible open navbox-inner" style="border ...highest_grossing_data <- html_table(table_html[2])
highest_grossing_data## [[1]]
## # A tibble: 10 × 4
## Rank Title Distributor `Worldwide gross`
## <int> <chr> <chr> <chr>
## 1 1 Inside Out 2 Disney $1,698,863,816
## 2 2 Deadpool & Wolverine Disney $1,338,073,645
## 3 3 Moana 2 Disney $1,059,242,164
## 4 4 Despicable Me 4 Universal $971,315,095
## 5 5 Wicked Universal $756,535,681
## 6 6 Mufasa: The Lion King Disney $723,060,982
## 7 7 Dune: Part Two Warner Bros. $715,409,065
## 8 8 Godzilla x Kong: The New Empire Warner Bros. $572,505,338
## 9 9 Kung Fu Panda 4 Universal $547,689,492
## 10 10 Sonic the Hedgehog 3 Paramount $492,162,604