require(RCurl)
require(XML)
require(magrittr)
## Writed By Dongdong Kong
url <- "http://www.china-customs.com/customs-tax/04/"
table <- iconv(paste(readLines(url), collapse = ""), "gbk", "utf-8") %>%
htmlParse(., encoding = "utf-8") %>% getNodeSet(., "//table[3]/tr[2]/td/table") %>% extract2(1)
tablehead <- xpathSApply(table, "td", xmlValue)
result<- lapply(getNodeSet(table, "tr")[-1], function(tr) xpathSApply(tr, "td", xmlValue)) %>%
do.call(rbind, .)