library(robotstxt)
## Warning: package 'robotstxt' was built under R version 4.3.3
library(rvest)
paths_allowed("https://www.imdb.com/title/tt7235466/fullcredits?ref_=tt_cl_sm")
##
www.imdb.com
## [1] TRUE
read <- read_html("https://www.imdb.com/title/tt7235466/fullcredits?ref_=tt_cl_sm")
Series_Cast <- html_element(read, "#fullcredits_content > table.cast_list")
Cast_Table <- html_table(Series_Cast)
Cast_Table
## # A tibble: 2,978 × 4
## X1 X2 X3 X4
## <lgl> <chr> <chr> <chr>
## 1 NA "" "" ""
## 2 NA "Angela Bassett" "..." "Athena Grant\n / ... \n …
## 3 NA "" "" ""
## 4 NA "Peter Krause" "..." "Bobby Nash\n 108 episodes, 20…
## 5 NA "" "" ""
## 6 NA "Oliver Stark" "..." "Evan 'Buck' Buckley\n / ... \n …
## 7 NA "" "" ""
## 8 NA "Aisha Hinds" "..." "Henrietta 'Hen' Wilson\n / ... \n …
## 9 NA "" "" ""
## 10 NA "Kenneth Choi" "..." "Howie 'Chimney' Han\n / ... \n …
## # ℹ 2,968 more rows
Cast_Updated <- subset(Cast_Table, X2!="", c(2,4))
Cast_Updated
## # A tibble: 1,488 × 2
## X2 X4
## <chr> <chr>
## 1 Angela Bassett "Athena Grant\n / ... \n 108 …
## 2 Peter Krause "Bobby Nash\n 108 episodes, 2018-2024"
## 3 Oliver Stark "Evan 'Buck' Buckley\n / ... \n …
## 4 Aisha Hinds "Henrietta 'Hen' Wilson\n / ... \n …
## 5 Kenneth Choi "Howie 'Chimney' Han\n / ... \n …
## 6 Jennifer Love Hewitt "Maddie Kendall\n / ... \n 98…
## 7 Ryan Guzman "Eddie Diaz\n 97 episodes, 2018-2024"
## 8 Corinne Massiah "May Grant\n 93 episodes, 2018-2024"
## 9 Gavin McHugh "Christopher Diaz\n 87 episodes, 2018-…
## 10 Marcanthonee Reis "Harry Grant\n 74 episodes, 2018-2022"
## # ℹ 1,478 more rows
names(Cast_Updated) <- c("v1","v2")
Cast_Updated
## # A tibble: 1,488 × 2
## v1 v2
## <chr> <chr>
## 1 Angela Bassett "Athena Grant\n / ... \n 108 …
## 2 Peter Krause "Bobby Nash\n 108 episodes, 2018-2024"
## 3 Oliver Stark "Evan 'Buck' Buckley\n / ... \n …
## 4 Aisha Hinds "Henrietta 'Hen' Wilson\n / ... \n …
## 5 Kenneth Choi "Howie 'Chimney' Han\n / ... \n …
## 6 Jennifer Love Hewitt "Maddie Kendall\n / ... \n 98…
## 7 Ryan Guzman "Eddie Diaz\n 97 episodes, 2018-2024"
## 8 Corinne Massiah "May Grant\n 93 episodes, 2018-2024"
## 9 Gavin McHugh "Christopher Diaz\n 87 episodes, 2018-…
## 10 Marcanthonee Reis "Harry Grant\n 74 episodes, 2018-2022"
## # ℹ 1,478 more rows
Col_Names_Cast <- colnames(Cast_Updated) <- c("v1","v2")
Cast_Updated
## # A tibble: 1,488 × 2
## v1 v2
## <chr> <chr>
## 1 Angela Bassett "Athena Grant\n / ... \n 108 …
## 2 Peter Krause "Bobby Nash\n 108 episodes, 2018-2024"
## 3 Oliver Stark "Evan 'Buck' Buckley\n / ... \n …
## 4 Aisha Hinds "Henrietta 'Hen' Wilson\n / ... \n …
## 5 Kenneth Choi "Howie 'Chimney' Han\n / ... \n …
## 6 Jennifer Love Hewitt "Maddie Kendall\n / ... \n 98…
## 7 Ryan Guzman "Eddie Diaz\n 97 episodes, 2018-2024"
## 8 Corinne Massiah "May Grant\n 93 episodes, 2018-2024"
## 9 Gavin McHugh "Christopher Diaz\n 87 episodes, 2018-…
## 10 Marcanthonee Reis "Harry Grant\n 74 episodes, 2018-2022"
## # ℹ 1,478 more rows
Series_Vis_Effects <- html_element(read, "#fullcredits_content > table:nth-child(38)")
SVE_Table <- html_table(Series_Vis_Effects)
SVE_Table
## # A tibble: 187 × 3
## X1 X2 X3
## <chr> <chr> <chr>
## 1 Christian Zeiler ... digital compositor / digital compositor: FuseFX…
## 2 Katrina Duclos ... visual effects editor / visual effects editor: …
## 3 Bryant Reif ... cg supervisor (50 episodes, 2019-2022)
## 4 Tony Pirzadeh ... visual effects producer: FuseFX / visual effect…
## 5 Ezra Christian ... managing producer (46 episodes, 2021-2024)
## 6 Timothy Michael Cairns ... compositing supervisor (44 episodes, 2019-2022)
## 7 Luciano DiGeronimo ... compositing supervisor: FuseFX / digital effect…
## 8 Zachary Goodson ... visual effects supervisor / visual effects arti…
## 9 Esmeralda Ramirez ... vfx coordinator: FuseFX / vfx coordinator: Fuse…
## 10 Brigitte Bourque ... digital effects supervisor: Fuse FX / composite…
## # ℹ 177 more rows