<br />
require(RCurl)<br />
require(XML)</p>
<p>k = postForm("http://www.zhepb.gov.cn/htdocs/apinew/api_view_l.asp",<br />
T1 = "2012-6-1", B1 = "%B2%E9%D1%AF",<br />
style = 'post', .encoding = "utf-8")</p>
<p>k = iconv(k, 'gbk', 'utf-8')</p>
<p>k = htmlParse(k, asText = TRUE, encoding = 'utf-8')</p>
<p>k = sapply(getNodeSet(doc = k, path = "//font[@color='#0000FF' and @size='2']"),<br />
xmlValue)[1:24]</p>
<p>matrix(k, ncol = 4, byrow = TRUE)</p>
<p># [,1] [,2] [,3] [,4]<br />
# [1,] "地区" "污染指数" "空气质量" "首要污染物"<br />
# [2,] "香洲" "35" "优 " "无"<br />
# [3,] "吉大" "33" "优 " "无"<br />
# [4,] "前山" "38" "优 " "无"<br />
# [5,] "唐家" "35" "优 " "无"<br />
# [6,] "全市" "35" "优 " "无"<br />
</p>