Assignment 3

options(repos = c(CRAN = "https://cloud.r-project.org"))

install.packages("robotstxt")

## 
## The downloaded binary packages are in
##  /var/folders/60/znjt_0y54nx55cl82pvt6lfw0000gn/T//Rtmp9Zk89Y/downloaded_packages

library(rvest)
library(robotstxt)

Question 5

baswiki <- read_html("https://en.wikipedia.org/wiki/2026_in_film")

Question 6

wikitbls <- html_elements(baswiki, "table")

high_gross <- html_table(wikitbls[[2]])
high_gross

## # A tibble: 19 × 1
##    `Years in film`                                                    
##    <chr>                                                              
##  1 ""                                                                 
##  2 "19th century"                                                     
##  3 "1870s"                                                            
##  4 "1880s\n1880\n1881\n1882\n1883\n1884\n1885\n1886\n1887\n1888\n1889"
##  5 "1890s\n1890\n1891\n1892\n1893\n1894\n1895\n1896\n1897\n1898\n1899"
##  6 "1900s\n1900\n1901\n1902\n1903\n1904\n1905\n1906\n1907\n1908\n1909"
##  7 "1910s\n1910\n1911\n1912\n1913\n1914\n1915\n1916\n1917\n1918\n1919"
##  8 "1920s\n1920\n1921\n1922\n1923\n1924\n1925\n1926\n1927\n1928\n1929"
##  9 "1930s\n1930\n1931\n1932\n1933\n1934\n1935\n1936\n1937\n1938\n1939"
## 10 "1940s\n1940\n1941\n1942\n1943\n1944\n1945\n1946\n1947\n1948\n1949"
## 11 "1950s\n1950\n1951\n1952\n1953\n1954\n1955\n1956\n1957\n1958\n1959"
## 12 "1960s\n1960\n1961\n1962\n1963\n1964\n1965\n1966\n1967\n1968\n1969"
## 13 "1970s\n1970\n1971\n1972\n1973\n1974\n1975\n1976\n1977\n1978\n1979"
## 14 "1980s\n1980\n1981\n1982\n1983\n1984\n1985\n1986\n1987\n1988\n1989"
## 15 "1990s\n1990\n1991\n1992\n1993\n1994\n1995\n1996\n1997\n1998\n1999"
## 16 "2000s\n2000\n2001\n2002\n2003\n2004\n2005\n2006\n2007\n2008\n2009"
## 17 "2010s\n2010\n2011\n2012\n2013\n2014\n2015\n2016\n2017\n2018\n2019"
## 18 "2020s\n2020\n2021\n2022\n2023\n2024\n2025\n2026\n…"               
## 19 "vte"