R/read_url.R

In thisisnic/noticeboard:

#' Read URLS
#'
#' Get data from URLs and return relevant components
#'
#' @param url URL to read in
#'
#' @importFrom rvest html_nodes
#' @importFrom xml2 read_html
read_url <- function(url){
  
  xml2::read_html(url) %>%
    rvest::html_nodes(css="a.link-gray-dark.v-align-middle.no-underline.h4.js-navigation-open")
  
}