R/hd_product_model.R

In burtonlueth/webPrices: Screen scraping for collecting wholesale product pricing on web

#' Scrape and format model number for a given product from HD product page
#' @param x A string, a connection, or a raw vector.
#' @return Returns the model number from a given HD product link
#' @export
#' @examples
#' \dontrun{
#' x <- "http://www.homedepot.com/b/Electrical-Dimmers-Switches-Outlets/N-5yc1vZc34h"
#' links <- hd_get_product_links(x)
#' hd_product_model(links[1])
#' }
hd_product_model <- function(x) {
  xml2::read_html(x, encoding = "UTF-8") %>%
    rvest::html_nodes(".modelNo") %>%
    rvest::html_text() %>%
    stringr::str_replace_all("\r\n|Model # ", "") %>%
    stringr::str_trim()
}