Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- library(rvest)
- session <- html_session("http://predstecajnenagodbe.fina.hr/pn-public-web/predmet/search")
- form <- html_form(session)
- form
- parameters <- list(since = "1.6.2018", until = "5.6.2018", `g-recaptcha-response` = "03AF6jDqXcBw1qmbrxWqadGqh9k8eHAzB9iPbYdnwzhEVSgCwO0Mi6DQDgckigpeMH1ikV70egOC0UppZsO7tO9hgdpEIaI04jTpG6JxGMR6wov27kEkLuVsEp1LhxZB4WFDRkDWdqcZeVN1YkiojUpje4k-swFG7tPyG2pJN86SdT290D9_0fyfrxlpfFNL2VUwE_c15vVthcBEdXIQ68V5qv7ZVooLiwrdTO2qLDLF1yUZWiu9IJoLuBWdFzJ_zdSP6fbuj5wTpfPdsYJ2n988Gcb3q2aYdn-2TVuWoQzqs1wbh7ya_Geo7_8gnDUL92l2nqTeV9CMY58fzppPPYDJcchdHFTTxadGwCGZyKC3WUSh81qiGZ5JhNDUpPnOO-MgSr5aPbA7tei7bbypHV9OOVjPGLLtqA9g")
- httr::POST(
- url,
- body = parameters,
- config = list(
- add_headers(Referer = "http://predstecajnenagodbe.fina.hr"),
- user_agent(get_header()),
- accept_encoding = get_encoding(),
- use_proxy("xxxx", port = 80,
- username = "xxx", password = "xxxx"),
- timeout(20L),
- tcp_keepalive = FALSE
- ),
- encode = "form",
- verbose()
- )
Add Comment
Please, Sign In to add comment