library(robotstxt)
library(rvest)#Question 5
paths_allowed("https://en.wikipedia.org/wiki/2026_in_film")## Warning: package 'future' was built under R version 4.5.2## en.wikipedia.org## [1] TRUEmov_html <- read_html("https://en.wikipedia.org/wiki/2026_in_film")
mov_html## {html_document}
## <html class="client-nojs vector-feature-language-in-header-enabled vector-feature-language-in-main-page-header-disabled vector-feature-page-tools-pinned-disabled vector-feature-toc-pinned-clientpref-1 vector-feature-main-menu-pinned-disabled vector-feature-limited-width-clientpref-1 vector-feature-limited-width-content-enabled vector-feature-custom-font-size-clientpref-1 vector-feature-appearance-pinned-clientpref-1 skin-theme-clientpref-day vector-sticky-header-enabled vector-toc-available" lang="en" dir="ltr">
## [1] <head>\n<meta http-equiv="Content-Type" content="text/html; charset=UTF-8 ...
## [2] <body class="skin--responsive skin-vector skin-vector-search-vue mediawik ...table_mov <- html_elements(mov_html, "table")
table_mov## {xml_nodeset (7)}
## [1] <table class="sidebar nomobile nowraplinks" role="navigation"><tbody>\n<t ...
## [2] <table class="sidebar sidebar-collapse nomobile nowraplinks hlist" role=" ...
## [3] <table class="wikitable sortable">\n<caption>Highest-grossing films of 20 ...
## [4] <table class="wikitable sortable" style="font-size:90%;"><tbody>\n<tr>\n< ...
## [5] <table class="wikitable sortable" style="font-size:90%;"><tbody>\n<tr>\n< ...
## [6] <table class="wikitable sortable defaultcenter" style="font-size:90%;">\n ...
## [7] <table class="box-Empty_section plainlinks metadata ambox mbox-small-left ...tibble_list <- html_table(table_mov[3])
tibble_list## [[1]]
## # A tibble: 10 × 4
## Rank Title Distributor `Worldwide gross`
## <int> <chr> <chr> <chr>
## 1 1 Cheburashka 2 † Central Partnership $79,559,272
## 2 2 28 Years Later: The Bone Temple † Sony $56,722,595
## 3 3 Send Help † 20th Century Studi… $54,977,893
## 4 4 Border 2 † AA Films $51,204,000[3]
## 5 5 Mercy † Amazon MGM Studios… $49,802,465
## 6 6 Return to Silent Hill † Iconic Events Rele… $41,586,056[4]
## 7 7 Primate † Paramount Pictures $39,702,818
## 8 8 Iron Lung † Markiplier Studios $38,965,988
## 9 9 Dracula † SND (France) $33,593,404
## 10 10 Mana Shankara Vara Prasad Garu † Gold Box Entertain… $32,225,000[5][6]