# 필요 패키지를 불러옵니다. 
library(httr)
library(rvest)
library(dplyr)
library(stringr)
library(jsonlite)

# POST() 함수를 사용하여 시도지사선거의 서울특별시 종로구 개표 결과를 수집합니다.
resp <- 
  POST(
    url = 'http://info.nec.go.kr/electioninfo/electionInfo_report.xhtml',
    encode = 'form', 
    body = list(
      electionId = '0020180613',
      electionCode = '3',
      requestURI = '/WEB-INF/jsp/electioninfo/0020180613/vc/vccp08.jsp',
      topMenuId = 'VC',
      secondMenuId = 'VCCP08',
      menuId = 'VCCP08',
      statementId = 'VCCP08_#00',
      statementId = '0020180613.VCCP08_#00',
      hubo1 = '박원순',
      hubo2 = '김문수',
      hubo3 = '안철수',
      hubo4 = '김종민',
      hubo5 = '김진숙',
      hubo6 = '인지연',
      hubo7 = '신지예',
      hubo8 = '우인철',
      hubo9 = '최태현',
      hubo10 = '',
      hubo11 = '',
      hubo12 = '',
      hubo13 = '',
      hubo14 = '',
      hubo15 = '',
      hubo16 = '',
      hubo17 = '',
      hubo18 = '',
      hubo19 = '',
      hubo20 = '',
      jd1 = '더불어민주당',
      jd2 = '자유한국당',
      jd3 = '바른미래당',
      jd4 = '정의당',
      jd5 = '민중당',
      jd6 = '대한애국당',
      jd7 = '녹색당',
      jd8 = '우리미래',
      jd9 = '친박연대',
      jd10 = '',
      jd11 = '',
      jd12 = '',
      jd13 = '',
      jd14 = '',
      jd15 = '',
      jd16 = '',
      jd17 = '',
      jd18 = '',
      jd19 = '',
      jd20 = '',
      wiwName = '중구', 
      cityCode = '1100',
      townCode = '1102'
    )
  )

# 응답 상태코드를 확인합니다. 
status_code(x = resp)

# 응답 결과를 출력하여 육안으로 확인합니다. 
content(x = resp, as = 'text')

# 서울특별시장 선거의 서울특별시 종로구 개표 결과를 추출합니다.
resultTbl <- 
  resp %>% 
  read_html() %>% 
  html_node(css = 'table') %>% 
  html_table(fill = TRUE)

# '시도' 항목 입력에 관련된 HTML Element를 찾아 출력합니다. 
resp %>% 
  read_html() %>% 
  html_nodes(css = 'select#cityCode option')

# 광역시도 코드만 추출하여 저장합니다. 
cityCd <- 
  resp %>% 
  read_html() %>% 
  html_nodes(css = 'select#cityCode option') %>% 
  html_attr(name = 'value')

# 광역시도 이름만 추출하여 저장합니다. 
cityNm <- 
  resp %>% 
  read_html() %>% 
  html_nodes(css = 'select#cityCode option') %>% 
  html_text()

# 두 벡터를 cbind()하고 city라는 객체에 저장합니다. 
city <- cbind(cityCd, cityNm)

# 데이터 프레임으로 변환한 후 첫 행을 삭제합니다. 
city <- city %>% as.data.frame() %>% `[`(-1, )

# city 객체를 출력합니다. 
print(city)

# 지방자치단체 코드만 추출하여 저장합니다. 
townCd <- 
  resp %>% 
  read_html() %>% 
  html_nodes(css = 'select#townCode option') %>% 
  html_attr(name = 'value')

# 지방자치단체 이름만 추출하여 저장합니다. 
townNm <- 
  resp %>% 
  read_html() %>% 
  html_nodes(css = 'select#townCode option') %>% 
  html_text()

# 두 벡터를 cbind()하고 town이라는 객체에 저장합니다. 
town <- cbind(townCd, townNm)

# 데이터 프레임으로 변환한 후 첫 행을 삭제합니다. 
town <- town %>% as.data.frame() %>% `[`(-1, )

# town 객체를 출력합니다. 
print(town)

# 지방자치단체별 개표 결과를 수집하는 사용자 정의 함수를 생성합니다. 
# 이번 코드에서는 wiwName과 townCode만 바꿔서 입력할 수 있도록 설정하겠습니다. 
getVoteResult <- function(cityCd = '1100', townCd, townNm) {
  
  # HTTP Request 
  resp <- 
    POST(
      url = 'http://info.nec.go.kr/electioninfo/electionInfo_report.xhtml',
      encode = 'form', 
      body = list(
        electionId = '0020180613',
        electionCode = '3',
        requestURI = '/WEB-INF/jsp/electioninfo/0020180613/vc/vccp08.jsp',
        topMenuId = 'VC',
        secondMenuId = 'VCCP08',
        menuId = 'VCCP08',
        statementId = 'VCCP08_#00',
        statementId = '0020180613.VCCP08_#00',
        hubo1 = '박원순',
        hubo2 = '김문수',
        hubo3 = '안철수',
        hubo4 = '김종민',
        hubo5 = '김진숙',
        hubo6 = '인지연',
        hubo7 = '신지예',
        hubo8 = '우인철',
        hubo9 = '최태현',
        hubo10 = '',
        hubo11 = '',
        hubo12 = '',
        hubo13 = '',
        hubo14 = '',
        hubo15 = '',
        hubo16 = '',
        hubo17 = '',
        hubo18 = '',
        hubo19 = '',
        hubo20 = '',
        jd1 = '더불어민주당',
        jd2 = '자유한국당',
        jd3 = '바른미래당',
        jd4 = '정의당',
        jd5 = '민중당',
        jd6 = '대한애국당',
        jd7 = '녹색당',
        jd8 = '우리미래',
        jd9 = '친박연대',
        jd10 = '',
        jd11 = '',
        jd12 = '',
        jd13 = '',
        jd14 = '',
        jd15 = '',
        jd16 = '',
        jd17 = '',
        jd18 = '',
        jd19 = '',
        jd20 = '',
        cityCode = cityCd,
        townCode = townCd,
        wiwName = townNm
      )
    )
  
  # 개표 결과 테이블만 추출하여 저장합니다. 
  resultTbl <- 
    resp %>% 
    read_html() %>% 
    html_node(css = 'table') %>% 
    html_table(fill = TRUE)
    
  # 개표 결과 테이블은 읍면동명으로 시작합니다. 
  # 지방자치단체별 구분을 위하 시군구명을 추가하겠습니다. 
  # 시군구명에는 townNm을 할당합니다. 
  resultTbl <- cbind(시군구명 = townNm, resultTbl)
    
  # 첫 행에 있는 후보자명만 추출합니다. (이상한 부분 제거!)
  # 후보자명으로 컬럼명을 대체하고 첫 행은 삭제합니다. 
  candidates <- resultTbl[1, c(6, 9:17)]
  colnames(x = resultTbl)[6:15] <- candidates
  resultTbl <- resultTbl[-1, ]
  
  # 숫자 중 콤마(,)와 마이너스(-) 부호를 제거하고 숫자형 벡터로 변환합니다. 
  resultTbl[, 4:17] <- 
    resultTbl[, 4:17] %>% 
    sapply(FUN = function(x) 
      x %>% str_remove_all(pattern = '[,-]') %>% as.numeric())
  
  # 개표 결과를 반환합니다. 
  return(resultTbl)
}

# 최종 결과를 저장할 빈 객체를 생성합니다. 
result <- data.frame()

# 전체 행수를 저장합니다. 
n <- nrow(x = town)

# 반복문으로 서울특별시 전체 개표 결과를 하나로 수집합니다. 
for (i in 1:n) {
  
  # 소요시간 측정을 위해 시작 시각을 저장합니다. 
  startTime <- Sys.time()
  
  # 사용자 정의 함수에 포함될 값을 정합니다. 
  townCode <- town[i, 1]
  townName <- town[i, 2]
  
  # 진행과정을 출력합니다. 
  cat('[', i, '/', n, '] 현재', townName, '작업 중! ')
  
  # 사용자 정의 함수를 실행하여 df에 저장합니다. 
  df <- getVoteResult(townCd = townCode, townNm = townName)
  
  # df를 최종 결과 객체에 rbind() 합니다. 
  result <- rbind(result, df)
  
  # 소요시간 측정을 위해 종료 시작을 저장합니다. 
  endTime <- Sys.time()
  
  # 소요시간을 출력합니다. 
  (endTime - startTime) %>% print()
  
  # 1초간 쉽니다. 
  Sys.sleep(time = 1)
}

# 최종 결과 객체의 구조를 파악합니다. 
str(object = result)