R/statItemList.R

In seokhoonj/ecos: Economic Statistics System of the Bank of Korea

##' Item list of statistics
##'
##' @details
##' \preformatted{
##' ## Example
##' statItemList(lang = "en", count = 100, stat_code = "902Y001")
##' }
##'
## @param api_key A string specifying ECOS API key. Need not be specified if
##   the key was stored as an environment variable via \code{\link{setKey}} or
##   .Renviron.
##' @param stat_code A string specifying the statistical table code
##' @param format A string specifying the file format to process - xml, json
##' @param lang A string specifying the language of result value - kr (Korean),
##'   en (English)
##' @param count An integer specifying the number of requests
##' @return A data.frame object containing queried information
##' @export
statItemList <- function(stat_code, format = c("xml", "json"), lang = c("kr", "en"), 
                         count = 1000) {
  api_key <- ecos.getKey()
  format <- match.arg(format)
  lang <- match.arg(lang)
	if (missing(stat_code)) {
	  # op <- options("max.print" = .Machine$integer.max)
	  showStatTableList(format = format, lang = lang)
	  # on.exit(op)
	  stat_code <- readline("Please insert stat_code: ")
	}
  url <- URLencode(
    sprintf("http://ecos.bok.or.kr/api/StatisticItemList/%s/%s/%s/1/%s/%s/",
            api_key, format, lang, count, stat_code)
  )
  html <- GET(url)
  content <- rawToChar(html$content)
	if (format == "xml") {
    parseXML(content, type = "item")
	} else {
    parseJSON(content, type = "item")
	}
}