R/gethtml.R

In kuhnrl30/LabCorp: Scrape the LabCorp.com website for a list of locations

#' Get raw html
#'
#' Retrieves the raw html response after passing the query string to the server
#'
#'@param myURL url string created by \code{\link{makeurl}} function
#'@return character string
#'@importFrom dplyr "%>%"
#'
gethtml<- function(myURL){
  rvest::read_html(myURL) %>%
    rvest::html_nodes("script") %>%
    .[[29]] %>%
    rvest::html_text()
}