RでEutilsを使ってみる

library(dplyr)
library(rvest)

pubmedID <- "25517282"
address <- "http://eutils.ncbi.nlm.nih.gov/entrez/eutils/efetch.fcgi?db=pubmed&mode=XML&id="

myXML <- read_xml(paste(address,pubmedID,sep=""))

#雑誌名
myXML %>% 
	xml_nodes(xpath="//Journal/Title") %>% xml_text()

#年
myXML %>% 
	xml_nodes(xpath="//JournalIssue/PubDate") %>%
	xml_children() %>%
	xml_text() %>% 
	paste(collapse=" ") 

#ページ数
myXML %>% 
	xml_nodes(xpath="//MedlinePgn") %>% xml_text()

#タイトル
myXML %>% 
	xml_nodes(xpath="//ArticleTitle") %>% xml_text()

これもスクレイピングと言えるのかな?