我已经编写了填写和提交表单的代码：
# fill and submit form
bh <- html_session("https://www.bhtelecom.ba/index.php?id=7226&a=new", encoding = "UTF-8")
form <- html_form(bh)[[2]]
from_filled <- form %>% set_values(im = "Daniel", pr = "Horvat")
session <- submit_form(bh, from_filled)
代码提交表单没有错误，但如果我手动提交表单，它不会返回我得到的输出表。我得到两张桌子：
read_html(session) %>% html_nodes("table")
但是我应该得到6个表，一个表应该包含我需要的数据。
简单地说，我如何使用rvest或httr包从本网站提交表单？