R/getNumPagesCasa.R

In rockclimber112358/romeHousePrices: Package to scrape and analyze Rome housing prices

##' Get Number of Pages for Casa.it
##' 
##' This function returns the number of listing pages available on the
##' casa.it housing sale site.
##' 
##' @return An integer giving the number of pages.
##'
##' @export
##' 

getNumPagesCasa = function(url){
  #url = "http://www.casa.it/vendita-residenziale/in-roma%2c+rm%2c+lazio/lista-1?preferredState=laz"
  html = read_html(url)
  cast = html_nodes(html, ".resultsInfo p")
  cast <- html_text(cast[[1]])
  castNew = gsub(".*[0-9] di ", "", cast)
  castNew = gsub(" [A-Za-z ]+","",castNew)
  
ceiling(as.numeric(castNew)/20)
}