셀레늄을 통한 네이버 로그인

library(RSelenium)
# chrome driver
rD <- rsDriver(browser="fire",port=1000L) 
remDr <- rD[["client"]] 


remDr$navigate("https://www.naver.com") 


Sys.sleep(runif(1)+runif(1)+0.25) 

webElem <- remDr$findElement(using = 'css', "a.lg_local_btn") 
cat("\t","a0") 
webElem$clickElement()  ##
id<-"lgt5512"  ## id
webElem <- remDr$findElement(using = 'css', "input[name='id']")
webElem$sendKeysToElement(list(id))
Sys.sleep(1.5)
pwd<-"inflearn"  ## pwd
webElem <- remDr$findElement(using = 'css', "input[name='pw']")
webElem$sendKeysToElement(list(pwd))

webElem <- remDr$findElement(using = 'css', "input[title='로그인']")
webElem$clickElement() 

인프런 강의 할인 쿠폰 코드입니다.

R로 하는 웹 크롤링 - 입문편(할인쿠폰코드) 236-69fc51d93a53
https://www.inflearn.com/course/R-crawling#

R로 하는 웹 크롤링 - 실전편 (할인쿠폰코드) 237-55c672aeb038
https://www.inflearn.com/course/R-crawling-2#

R로 하는 텍스트마이닝 (Top keyword부터 감성분석까지) (할인쿠폰코드) 238-c86096730061
https://www.inflearn.com/course/R-text-mining#

 

R로 무작정 해보는 data science (할인쿠폰코드) 310-c6164f3d9be9 
https://www.inflearn.com/course/R-%EB%8D%B0%EC%9D%B4%ED%84%B0%EC%82%AC%EC%9D%B4%EC%96%B8%EC%8A%A4-%EB%9D%BC%EC%9D%B4%EB%B8%8C%EC%BD%94%EB%94%A9#

R로 무작정 해보는 data science - 인프런