Week 4 - assignment 3

pacman::p_load("robotstxt", "rvest")
paths_allowed('https://www.imdb.com/title/tt7235466/fullcredits?ref_=tt_cl_sm')

 www.imdb.com                      

[1] TRUE

Question 5, 6

'#.cast_list'

[1] "#.cast_list"

show_cast <- read_html('https://www.imdb.com/title/tt7235466/fullcredits?ref_=tt_cl_sm')

cast_elem <- html_element(show_cast,'.cast_list')

cast_table <- html_table(cast_elem)

Question 7

cast_table_edited <- subset(cast_table, select = c(2,4))
cast_table_edited_2 <- subset(cast_table_edited, X2 != "" & X4 != "")

#rownames(cast_table_edited_2) <- c("v1","v2")
#ncol(cast_table_edited_2) <- c("v1","v2")
#colnames(cast_table_edited_2) <- c("v1","v2")
names(cast_table_edited_2) <- c("v1","v2")

Question 9

SE_cast <- read_html('https://www.imdb.com/title/tt7235466/fullcredits?ref_=tt_cl_sm')

SE_elem <- html_element(SE_cast,'table.simpleTable:nth-child(38)')

SE_table <- html_table(SE_elem)