我正在尝试两种策略来从Web表格中获取数据：

library(tidyverse)  
library(rvest)                        

webpage <- read_html('https://markets.cboe.com/us/equities/market_statistics/book/')
data <- html_table(webpage,fill=TRUE)
data[[2]]

''

library("httr")
library("XML")

URL <- 'https://markets.cboe.com/us/equities/market_statistics/book/'
temp <- tempfile(fileext = ".html")
GET(url = URL,user_agent("Mozilla/5.0"),write_disk(temp))

df <- readHTMLTable(temp)
df <- df[[2]]

他们两个都返回一个空表。