R/get_page_links.R

In julianflowers/myScrapers: Functions to extract data from PHE websites and identify PH information on the web

# get page links


get_page_links <- function(url){
  
  require(httr)
  require(dplyr)
  require(rvest)
  
  links <- GET(url) %>%
    read_html() %>%
    html_nodes("a") %>%
    html_attr("href")
  
  return(links)
  
}