library(rvest)
library(dplyr)
library(stringr)
library(readr)
library(janitor)
library(robotstxt)

Is scraping this web page allowed by robotstxt

robotstxt::paths_allowed("https://en.wikipedia.org/wiki/2024_in_film")  #if TRUE then Yes
##  en.wikipedia.org
## [1] TRUE

Reading 2024 Wiki Film Webpage HTML

film_html <- read_html("https://en.wikipedia.org/wiki/2024_in_film")
Selecting the Element we are extracting
table_html <- html_elements(film_html, "table")   #selects tables from web
print(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 ...
Selecting the “Highest-grossing films” Table
tibble_list <- html_table(table_html[2])
print(tibble_list)
## [[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