XML包使用

最近更新请参照 http://cangfengzhe.github.com

htmlParse(url)

解析网页，或XML

xml 转换成data.frame

“`r
library(XML)
library(plyr)
url_path_pre <- ‘http://www.rcsb.org/pdb/rest/describePDB?structureId=4hhb,1hhb’
query_txt <- paste(structureId,collapse = ‘,’)
url_path <- paste(c(url_path_pre,query_txt),collapse = ”)
xml_txt <- htmlParse(url_path)
xml_list <- xmlToList(xml_txt)
title <- names(xml_list$body$pdbdescription$pdb) out <- ldply(xml_list$body$pdbdescription,function(x) {
sapply(title,function(y){
assign(y,x[[y]])
})
} )
out

“`