Advertisement
Guest User

Untitled

a guest
Nov 21st, 2016
134
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.79 KB | None | 0 0
  1. library("rvest")
  2. library("data.table")
  3.  
  4. url<- "http://uyeler.mynet.com/login/login.asp?rurl=http%3A%2F%2Ffinans.mynet.com%2Fborsa%2Fcanliborsa%2F&formname=finans#A"
  5. session<-html_session(url)
  6. form<- html_form(session)[[1]]
  7.  
  8. login<- set_values(form, "username" ="muharrem_babaogul_1991","password"="q1w2e3")
  9. submit_form(session,login)
  10.  
  11. jumped<-jump_to(session,url = 'http://finans.mynet.com/borsa/canliborsa/#A')
  12.  
  13. page<- read_html(jumped)
  14. page<-html_nodes(page,xpath='//*[@id="canliLeftColumn"]/div[3]/table')
  15. page<- html_table(page)
  16. head(page[[1]])
  17.  
  18. [1] Hisse Hisse Hisse Son Alış
  19. [6] Satış %Fark En Düşük En Yüksek AOF
  20. [11] Hacim (Lot) Hacim (TL) Son İşlem Ekle / Kaldır
  21. <0 rows> (or 0-length row.names)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement