scripts/create-dialingcode.R

library(rvest)
library(tidyverse)

URL <- "https://www.rebtel.com/en/international-calling-guide/phone-codes/south-africa/"

html <- read_html(URL)

city <- html %>%
  html_nodes(".pull-left") %>%
  html_text()

code <- html %>%
  html_nodes(".pull-right") %>%
  html_text()

dialing_codes <- data.frame(city, code)

usethis::use_data(dialing_codes, overwrite = TRUE)
DataWookie/saffeR documentation built on Jan. 4, 2023, 4:57 p.m.