网址：http://www.tianqi.com/air/

这是全国各城市PM2.5数据，我想提取这些数据做成污染地图，每天在朋友圈里发一下。
library(XML)
URL<-"http://www.tianqi.com/air/"
data<-readHTMLTable(URL,header = TRUE,which = 1)

提示：data    NULL（empty）

请问该如何正确的读取页面数据？

感谢感谢~~~~