Including Plots

You can also embed plots, for example:

library(rvest)
library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(xml2)

get_moreInfo_func=function(rent_links){
  moreInfo_page=read_html(rent_links)
  moreInfo=moreInfo_page %>% html_nodes("div.param_info")%>%html_text() %>% paste(collapse ="," )
  return(moreInfo)
}

rent_data=data.frame()   #Create empty data frame

for (i in seq(1:2)){
  link=paste("https://bina.az/baki/kiraye/menziller/kohne-tikili?page=",i,sep="")
  page=read_html(link)
  
  toremove<-page %>% html_nodes("div.repair")
  xml_remove(toremove)
  
  toremove1<-page %>% html_nodes("div.bill_of_sale")
  xml_remove(toremove1)
  
  rent_place=page %>% html_nodes("div.location") %>% html_text()
  rent_links=page %>% html_nodes("a.item_link") %>% html_attr("href") %>% paste("https://bina.az",.,sep="")
  rent_info=page %>% html_nodes("ul.name") %>%html_text()
  rent_price=page%>%html_nodes("div.price")%>%html_text()
  rent_city_time=page %>% html_nodes("div.city_when") %>% html_text()
  
  rent_moreInfo=sapply(rent_links, FUN=get_moreInfo_func, USE.NAMES = FALSE)
  
  rent_data=rbind(rent_data, data.frame(rent_place, rent_info, rent_price, rent_city_time, rent_moreInfo, rent_links, stringsAsFactors = FALSE))
  
  print(paste("Page ",i," scrapped!"))  
}

## [1] "Page  1  scrapped!"
## [1] "Page  2  scrapped!"

#write_xlsx(rent_data,"rent_data.xlsx")

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.