XML包使用
2015-06-17 18:05
176 查看
最近更新请参照 http://cangfengzhe.github.com
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_listbodybodypdbdescription$pdb)
out <- ldply(xml_listbodybodypdbdescription, function(x) {
sapply(title, function(y){
assign(y, x[[y]])
})
} )
out
“`
htmlParse(url)
解析网页,或XMLxml 转换成data.frame
“`rlibrary(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_listbodybodypdbdescription$pdb)
out <- ldply(xml_listbodybodypdbdescription, function(x) {
sapply(title, function(y){
assign(y, x[[y]])
})
} )
out
“`
相关文章推荐
- 八皇后问题python实现
- Android 实现纵向浏览的ViewPager
- 平衡二叉树算法详解
- PG学习记录
- SqlServer 禁止架构更改的复制中手动修复使发布和订阅中分别增加的字段同步
- 长按桌面进入小部件,选择“设置快捷方式”里任意一个添加到桌面,在设置中将语音设置为英语,添加的快捷方式依然是中文
- 简单Liunx线程池
- 挑战面试编程:左移字符串
- 【BZOJ】【4146】 【AMPPZ2014】Divisors
- 经验分享:大学生研究生如何找到一份数据挖掘的工作
- 贪吃蛇(修改Ⅰ版)
- ${pageContext.request.contextPath} :JSP取得绝对路径方法
- UVA-1588 Kickdown
- Android开发系列(十一):对手机通讯录的读取、添加、删除、查找
- Unity协程(Coroutine)原理深入剖析
- 【重磅】大众点评运维架构图文详解 @马哥教育联合创始人张冠宇
- erlang创建进程
- 二叉树先序、中序、后序遍历的非递归实现
- 高并发外部JS的阻塞下载
- Linux内核中kfifo使用