Scrape and consolidate the year superheroes made their debut in comics

scrape.R

library(tidyverse)
library(rvest)

"https://en.wikipedia.org/wiki/List_of_superhero_debuts" %>%
  read_html() %>%
  html_nodes(xpath = "//*[@id='mw-content-text']/div/table") %>%
  map(html_table, fill = TRUE) %>%
  map_df( ~ mutate(., `Year Debuted` = as.character(`Year Debuted`))) %>%
  mutate(`Char_Team` = coalesce(`Character / Team / Series`, `Character / Team`)) %>%
  select(Char_Team, Year_Debut = `Year Debuted`) %>%
  mutate(Year = str_extract(Year_Debut, "18[0-9]{2,2}|19[0-9]{2,2}|20[0-9]{2,2}")) %>%
  filter(!is.na(Year)) %>%
  View()