各位大侠：
利用别人介绍的方法，抓取网页的数据后，导出总是提示如下问题：
> output <- write.table(TableData,file='output.txt',row.names = FALSE)
Error in data.frame(`NULL` = list(V1 = c(2L, 1L, 5L, 13L, 12L, 16L, 3L,  :
  arguments imply differing number of rows: 24, 14, 23, 11, 12, 6, 7, 8

请各位帮忙看看是什么问题？

代码如下：
library(XML);##解析网页用##

URL <- 'http://www.stats.gov.cn/tjsj/zxfb/201412/t20141216_653701.html'

if(url.exists(URL)){

  ##read the special table data##

  TableData <- readHTMLTable(URL)

  ##ok##

}
TableData
output <- write.table(TableData,file='output.csv',row.names = FALSE)