[r-crawling] Selenium 사용 사례

remDr <- remoteDriver(remoteServerAddr = "localhost"
                      , port = 4445L
                      , browserName = "chrome")
remDr$open()
remDr$navigate("http://naver.com")

 

로그인 창으로 이동

to_login = remDr$findElement(using = "css selector", "a.lg_global_btn")
to_login$clickElement()

 

아이디랑 비밀번호 채우기

id = remDr$findElement("css selector", "input#id")
pw = remDr$findElement("css selector", "#pw")
id$sendKeysToElement(list('mjh1764'))
pw$sendKeysToElement(list('************'))

 

버튼 눌러서 로그인

login_button = remDr$findElement("xpath", '//*[@id="frmNIDLogin"]/fieldset/input')
login_button$clickElement()