열린재정 open API 이용하여 parsing 하기

아래에서 설명한대로 열린재정은 재정정보원에서 관리하는데

open API를 사용하기 위해서 전화도 해보고 문의도 해보았는데,

뭐 공공기관 답게 담당자에게 전화 토스 하면서 아무 해결도 되지 않았다. 

여하튼, 마구 감으로 대충 URL 형태를 추측해가면서 자료를 추출해보았다.

예산사업을 먼저 추출하였다.

문제는 한 번에 1000개 밖에 추출이 안되던데, 그 이상 추출하는 방법을 모르겠다.

예산사업이 매년 1만개 넘어가는데, 이것 좀 해결되면 좋겠다. 

필요한 라이브러리는 적절히 로드하시길. 

url0    = "http://openapi.openfiscaldata.go.kr/ExpenditureBudgetInit1?"
api_key = "Key=(인증키)&"
type    = "Type=xml&"
pIndex  = "pIndex=1&"
pSize   = "pSize=1000&"
FSCL_YY    = "FSCL_YY=2018"

url = paste0(url0,
             api_key,
             type,
             pIndex,
             pSize,
             FSCL_YY)

temp <- read_xml(url)
temp0 <- xmlParse(temp)
df <- xmlToDataFrame(getNodeSet(temp0, "//row"))

이렇게 만들어졌다. 

XML의 세계는 넓고 복잡하구마잉.