Assignment 3

Packages

library(robotstxt)
library(rvest)

Q5

wiki <- "https://en.wikipedia.org/wiki/2024_in_film"
paths_allowed(wiki)

##  en.wikipedia.org

## [1] TRUE

Q6

film <- read_html("https://en.wikipedia.org/wiki/2024_in_film")
tbs <- film %>% html_table(fill=TRUE)
highest_grossing <- tbs[[2]]
head(highest_grossing)

## # A tibble: 6 × 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

tail(highest_grossing)

## # A tibble: 6 × 4
##    Rank Title                           Distributor  `Worldwide gross`
##   <int> <chr>                           <chr>        <chr>            
## 1     5 Wicked                          Universal    $756,535,681     
## 2     6 Mufasa: The Lion King           Disney       $723,060,982     
## 3     7 Dune: Part Two                  Warner Bros. $715,409,065     
## 4     8 Godzilla x Kong: The New Empire Warner Bros. $572,505,338     
## 5     9 Kung Fu Panda 4                 Universal    $547,689,492     
## 6    10 Sonic the Hedgehog 3            Paramount    $492,162,604