httr 的 POST 请求问题：未检索到所需的表

问：

描述：尝试使用库从 Investing.com 检索历史数据httr

原文页面： https://www.investing.com/rates-bonds/austria-1-year-bond-yield-historical-data

预期输出：包含历史数据的 html 表：示例表输出

脚本逻辑：

• 发送查询POSThttr
• 使用 html_table 方法美化read_html方法的输出

问题：

• 脚本从主页检索表，而不是从实际的历史记录表中检索表

代码：

library(httr)

url <- 'https://www.investing.com/instruments/HistoricalDataAjax'

# mimic XHR POST request implemented in the investing.com website
http_resp <- POST(url = url,
                 body = list(
                   curr_id = "23859", 
                   smlID = "202274", 
                   header = "Austria+1-Year+Bond+Yield+Historical+Data",
                   st_date = "08/01/2021", # MM/DD/YYYY format
                   end_date = "08/20/2021",
                   interval_sec = "Daily",
                   sort_col = "date",
                   sort_ord = "DESC",
                   action = "historical_data"
                 )
                )

# parse the returned XML
html_doc <- read_html(http_resp)
print(html_table(html_doc)[[1]])

你可能会注意到，与原始网页相比，R 脚本中使用的 URL 使用的 URL 不同。造成这种情况的原因显然是设置开始和结束日期时 POST 请求中使用的链接。您可能会在下面的屏幕截图中看到这一点：https://www.investing.com/instruments/HistoricalDataAjaxhttps://www.investing.com/rates-bonds/austria-1-year-bond-yield-historical-data

设置开始日期和结束日期时的 XHR 请求标头

据我所知，当用户为特定证券指定日期时，网站会发送一个查询，其中包含请求正文中指定的证券/资产的参数和标识符： 选择日期后的请求正文示例HistoricalDataAjax