[r-crawling] 사례분석: 국토부 표준지공시지가 크롤링(2편)

library(RSelenium)
startServer()

remDr = remoteDriver(browserName = 'chrome')
remDr$open()
remDr$navigate('http://www.realtyprice.kr/notice/search/gsSearchList.search')

sido = remDr$findElement(using='id', value = 'sido_list')
sido$sendKeysToElement(list("서울특별시"))
# 윈도우 유저의 경우 sido$sendKeysToElement(list(iconv('서울특별시', from = 'cp949', to= 'utf8')))
sgg = remDr$findElement(using = 'id', value = 'sgg_list')
sgg$sendKeysToElement(list('강남구'))
# 윈도우 유저의 경우 sgg$sendKeysToElement(list(iconv('강남구', from = 'cp949', to = 'utf8')))
eub = remDr$findElement(using = 'id', value = 'eub_list')
eub$sendKeysToElement(list('대치동'))
# 윈도우 유저의 경우 eub$sendKeysToElement(list(iconv('대치동', from = 'cp949', to='utf8')))

search = remDr$findElement(using = 'css selector', 'p.search-bt')
search$clickElement()

src = remDr$getPageSource()[[1]]
h = read_html(src)
cells = html_text(html_nodes(h, 'td'))
matrix(cells, ncol = 11, byrow = T)

nextbutton = remDr$findElements(using = 'xpath', '//a[@href="javascript:goPage(7)"]')
nextbutton[[1]]$clickElement()