R/getNumPagesMioAffitto.R

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

##' Get Number of Pages (Mio Affitto)
##' 
##' This function returns the number of listing pages available on the
##' immobiliare house sale site.
##' 
##' @return An integer giving the number of pages.
##'
##' @export
##' 

getNumPagesMioAffitto = function(){
    url = "http://www.mioaffitto.it/search?provincia=77&poblacion=70708"
    html = read_html(url)
    cast = html_nodes(html, ".property-list-title-count")
    listings = gsub("[^0-9]", "", html_text(cast))
    pages = ceiling(as.numeric(listings) / 15)
    pages
}