data z gumtree

library(stringi)
library(stringr)
library(rvest)



aktualne_oferty <- function(link) {
  linki<-read_html(link) %>%
    html_nodes('.href-link') %>%
    html_attr('href') %>%
    paste0('http://www.gumtree.pl', .) 
  #usunięcie trzech pierwszych ofert, które są sponsorowane i z każdym odświeżeniem ulegają zmianie
  linki<-linki[-c(1,2,3)]
  return(linki)
}
library(pbapply)

linki <- paste('http://www.gumtree.pl/s-pokoje-do-wynajecia/warszawa/v1c9000l3200008p',1:liczba_stron,sep="")
adresy<-c(pbsapply(linki,aktualne_oferty))


adresy[1] -> x
  read_html(x, encoding = "UTF-8") -> web
  # data dodania
  web %>%
    html_nodes("li:nth-child(1) .value") %>%
    html_text() %>%
    str_replace_all("[\n\t]","") -> data_dodania
  if(length(data_dodania)==0) data_dodania<-""
  data_dodania<-as.Date(data_dodania,format="%d/%m/%Y")