为什么我用submit_form（rvest）得到错误（411）？

Question

我正在尝试使用rvest从doleta.gov上的表单中获取一些搜索结果，但是我在这个页面上的表单上收到错误，我无法弄清楚我错过了什么。

以下是一个例子：

library(rvest)
library(httr)
set_config( config( ssl_verifypeer = 0L ) )

num = "1234"
session <- html_session("https://www.doleta.gov/tradeact/taa/taa_search_form.cfm")
form <- html_form(session)[[2]]
form <- set_values(form, input = num)
results <- submit_form(session, form)

最后一行返回警告：

Submitting with 'NULL'
Warning message:
In request_POST(session, url = url, body = request$values, encode = request$encode,  :
  client error: (411) Length Required

我需要做些什么才能在此页面上进行此操作？