无法使用rvest

Question

我想从以下网页提交html表单：https://www.bhtelecom.ba/index.php?id=7226&a=new，使用rvest或httr包，以及废料输出表。

我的代码：

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(pr = "Novak", im = "Mladen", di = 1)
session <- submit_form(bh, from_filled, submit = "btnSearch")

此代码不会返回任何错误，但它不会返回表。它只是从起始URL返回html。例如：

table_bh <- read_html(test, encoding = "UTF-8") %>% html_nodes("table")

不返回输出表。 请帮忙。