使用 readHTMLTable 读取 HTMLTable答案

【问题标题】：readHTMLTable using readHTMLTable使用 readHTMLTable 读取 HTMLTable
【发布时间】：2014-03-30 23:53:03
【问题描述】：

我正在尝试将此链接的表格读入 R： http://www.insidestocks.com/optqte.asp?sym=ESU4&view=add&mode=d

我的 R 代码如下。由于某种原因，它无法识别该表。也许有一个更好的包供我使用？任何帮助将不胜感激！

library(XML)
theurl <- "http://www.insidestocks.com/optqte.asp?sym=ESU4&view=add&mode=d"
tables <- readHTMLTable(theurl)
n.rows <- unlist(lapply(tables, function(t) dim(t)[1]))
tables[[whictablesh.max(n.rows)]]

【问题讨论】：

标签： r

【解决方案1】：

相关的是第七张表。

tables[[7]]

我们得到

Strike Open    High     Low    Close Change Volume Open Int Prem ($)
1 600.00C      1247.75 1243.20 1243.25s  +9.75      0      202 62162.50
2 600.00P         0.05    0.01    0.01s   unch      0        0     0.50
3 625.00C      1222.75 1218.20 1218.25s  +9.75      0      202 60912.50
4 625.00P         0.05    0.01    0.01s   unch      0        0     0.50
5 650.00C      1197.75 1193.20 1193.25s  +9.75      0        0 59662.50

【讨论】：