data-raw/character_ids.R

In Edgar-Zamora/superheroR: Superhero API Wrapper

## code to prepare `DATASET` dataset goes here
# Loading packages
library(xml2)
library(rvest)
library(janitor)
library(dplyr)
library(purrr)
library(here)
library(readr)

# Scraping site to obtain dataframe with ids and associated characters
url <- "https://superheroapi.com/ids.html"


character_ids <- url %>%
  read_html() %>%
  html_elements('table') %>%
  html_table() %>%
  reduce(union) %>%
  rename(
    id = X1,
    character = X2
    ) #%>%
  # group_by(character) %>%
  # summarise(
  #   id = min(id)
  #   ) %>%
  # ungroup()

# Writing data
write_csv(character_ids, "data-raw/character_ids.csv")
save(character_ids, file = "data/character_ids.rda")