공공데이터 open api 사용법

작성중

library(tidyverse)

library(magrittr)

library(XML)

api_url <- 'http://openapi.molit.go.kr:8081/OpenAPI_ToolInstallPackage/service/rest/RTMSOBJSvc/getRTMSDataSvcRHTrade'

service_key <- '개인 서비스 키'

lawd_cd = c(11110, 11140)

deal_ymd = c(201512, 201601)

result_table <- tibble()

for(idx_date in seq_along(deal_ymd)){

  for(idx_loc in seq_along(lawd_cd)){

    url <- paste0(api_url, '?serviceKey=', service_key, '&LAWD_CD=', lawd_cd[idx_loc], '&DEAL_YMD=', deal_ymd[idx_date])  

    raw_data <- xmlTreeParse(url, useInternalNodes = TRUE, encoding = 'UTF-8')

    

    rootNode <- xmlRoot(raw_data)

# 한글 열이름 깨짐

    names <- rootNode[[2]][['items']][['item']] %>% names() 

    

    temp_tbl <- xmlToDataFrame(nodes = getNodeSet(rootNode, '//item')) %>%

      set_names(iconv(names, 'UTF8', 'CP949') %>% unname()) %>% as_tibble() %>%

      mutate(우편번호 = lawd_cd[idx_loc])

    

    result_table %<>% bind_rows(., temp_tbl)

  }

}

result_table %>% View()