Guest User

Untitled

a guest
Feb 12th, 2019
136
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.99 KB | None | 0 0
  1. library(rvest)
  2. session <- html_session("http://predstecajnenagodbe.fina.hr/pn-public-web/predmet/search")
  3. form <- html_form(session)
  4. form
  5.  
  6. parameters <- list(since = "1.6.2018", until = "5.6.2018", `g-recaptcha-response` = "03AF6jDqXcBw1qmbrxWqadGqh9k8eHAzB9iPbYdnwzhEVSgCwO0Mi6DQDgckigpeMH1ikV70egOC0UppZsO7tO9hgdpEIaI04jTpG6JxGMR6wov27kEkLuVsEp1LhxZB4WFDRkDWdqcZeVN1YkiojUpje4k-swFG7tPyG2pJN86SdT290D9_0fyfrxlpfFNL2VUwE_c15vVthcBEdXIQ68V5qv7ZVooLiwrdTO2qLDLF1yUZWiu9IJoLuBWdFzJ_zdSP6fbuj5wTpfPdsYJ2n988Gcb3q2aYdn-2TVuWoQzqs1wbh7ya_Geo7_8gnDUL92l2nqTeV9CMY58fzppPPYDJcchdHFTTxadGwCGZyKC3WUSh81qiGZ5JhNDUpPnOO-MgSr5aPbA7tei7bbypHV9OOVjPGLLtqA9g")
  7.  
  8. httr::POST(
  9. url,
  10. body = parameters,
  11. config = list(
  12. add_headers(Referer = "http://predstecajnenagodbe.fina.hr"),
  13. user_agent(get_header()),
  14. accept_encoding = get_encoding(),
  15. use_proxy("xxxx", port = 80,
  16. username = "xxx", password = "xxxx"),
  17. timeout(20L),
  18. tcp_keepalive = FALSE
  19. ),
  20. encode = "form",
  21. verbose()
  22. )
Add Comment
Please, Sign In to add comment