In this article we are going to parse tap.az announcment website.
library(rvest, warn.conflicts=F, quietly=T)
library(dplyr, warn.conflicts=F, quietly=T)
link="https://tap.az/elanlar"
page=read_html(link)
prod_name=page%>%html_nodes("div.products-name")%>%html_text()
prod_price<-page %>% html_nodes("div.products-price") %>% html_text()
#ad_time=page %>% html_nodes("div.products-created") %>% html_text()
tapaz_db=data.frame(prod_name,prod_price, stringsAsFactors = FALSE)
head(tapaz_db)## prod_name prod_price
## 1 Qrusa 6AZN
## 2 H<U+0259>y<U+0259>t evi, Masazir q<U+0259>s. 118 000AZN
## 3 Paltaryuyan ustasi 15AZN
## 4 C<U+0259>naz<U+0259> avtomobili xidm<U+0259>ti 2AZN
## 5 Wifi gücl<U+0259>ndirici "TP-Link TL-WA855RE" 55AZN
## 6 "Mercedes Vito" sifarisi 1AZN