library(rvest)
#reading main url
url<-"https://devveri.com/"
h<- read_html(url)#create NULL variables
category<-NULL
count<-NULL
#get categories
c<-html_nodes(h, xpath='/html/body/div[3]/div[1]/div[2]/div[1]/ul/li/a/text()')
#get counts
cc<-html_nodes(h, xpath='/html/body/div[3]/div[1]/div[2]/div[1]/ul/li/text()')
#save results, convert XMLs to character
category<- as.matrix(as.character(c))
count<- as.matrix(as.character(cc))
#view both in a df
data.frame(category, count)## category count
## 1 Big Data (11)\n
## 2 Cloud (3)\n
## 3 docker (1)\n
## 4 Dogal Dil Isleme (2)\n
## 5 ElasticSearch (4)\n
## 6 Graph (1)\n
## 7 Haberler (7)\n
## 8 Hadoop (24)\n
## 9 HBase (1)\n
## 10 Kitap (1)\n
## 11 Lucene / Solr (3)\n
## 12 Nosql (12)\n
## 13 Ölçeklenebilirlik (2)\n
## 14 Polyglot (1)\n
## 15 Sunum (1)\n
## 16 Veri Bilimi (2)\n
## 17 Veri Madenciligi (4)\n
## 18 Yapay Ögrenme (3)\n#create NULL variables
name<-NULL
date<-NULL
comment_count<-NULL
#get names
n<- html_nodes(h, xpath='/html/body/div[3]/div/div[1]/div/h2/a/text()')
#get dates
d<- html_nodes(h, xpath='/html/body/div[3]/div/div[1]/div/p[1]/span[1]/text()')
#get comment counts
comc<- html_nodes(h, xpath='/html/body/div[3]/div/div[1]/div/p[1]/span[4]/a/text()')
#saving results
name<- as.matrix(as.character(n))
date<- as.matrix(as.character(d))
comment_count<- as.matrix(as.character(comc))
#view with df function
data.frame(name, date, comment_count)## name date
## 1 Amazon EMR ile Spark 18 Ocak 2018
## 2 Amazon EMR 13 Ocak 2018
## 3 AWS ile Big Data 11 Ocak 2018
## 4 Apache Hadoop 3.0 10 Ocak 2018
## 5 Big Data Teknolojilerine Hizli Giris 19 Haziran 2017
## 6 Günlük Hayatta Yapay Zekâ Teknikleri – Yazi Dizisi (1) 29 Mart 2016
## 7 Hive Veritabanlari Arasi Tablo Tasima 18 Subat 2016
## 8 Basit Lineer Regresyon 11 Subat 2016
## 9 Apache Sentry ile Yetkilendirme 10 Ocak 2016
## 10 Hive Iç Içe Sorgu Kullanimi 09 Aralik 2015
## 11 Kmeans ve Kmedoids Kümeleme 07 Aralik 2015
## 12 Veri analizinde yeni aliskanliklar 25 Kasim 2015
## 13 Daha Iyi Bir Veri Bilimcisi Olmaniz Için 5 Inanilmaz Yol 02 Kasim 2015
## 14 R ile Korelasyon, Regresyon ve Zaman Serisi Analizleri 12 Ekim 2015
## 15 Data Driven Kavrami ve II. Faz 28 Eylül 2015
## comment_count
## 1 1
## 2 0
## 3 0
## 4 0
## 5 1
## 6 0
## 7 0
## 8 5
## 9 0
## 10 2
## 11 0
## 12 0
## 13 1
## 14 3
## 15 0