R/nasPetitionSearch.R

In lawine90/datagokR: "Import Data from <www.data.go.kr> using API"

#' National Assembly Secretariat, Recent proposed petition list searching by congressman name who approving the petition.
#'
#' nasPetitionSearch function import proposed petition list searching by name of congressman who approving the petition.
#'
#' @param key character value. API key issued from <www.data.go.kr>. no default.
#' @param name character value. the name of congressman who approving it.
#'
#' @examples
#'  key <- 'your key issued from data.go.kr'
#'
#'  # example.
#'  data <- nasPetitionSearch(key, name = enc2utf8('경대수'))
#'
#' @export

nasPetitionSearch <- function(key, name = NULL){
  ### 1. parameter checking and processing.
  ## key
  if(is.null(key)){ stop("Invalid key. \n Please issue API key first and insert it to 'key' param.") }

  ### 2. REST url for get n of pages
  ## generate list of urls(fxxking so many limitations...).
  # 1st, (url + key)
  url <- sprintf('http://apis.data.go.kr/9710000/%s/%s?ServiceKey=%s&numOfRows=%s',
                 'BillInfoService2', 'getPetitionList', key, 1000)

  # 2nd, name
  if(!is.null(name)){
    url <- sprintf('%s&approver=%s', url, utils::URLencode(enc2utf8(name)))
  }


  ### 3. first urls's xml parsing.
  # parsing xml codes with repeat and trycatch.
  tmp_xml <- datagokR:::try_read_xml(url)

  # if access fail, stop it.
  if(length(xml2::xml_text(xml2::xml_find_all(tmp_xml, '//errMsg'))) != 0){
    warning(xml2::xml_text(xml2::xml_find_all(tmp_xml, '//returnAuthMsg')))
    return(NULL)
  }

  item <- xml2::xml_find_all(tmp_xml, '//item')
  data <- data.frame(
    id = datagokR:::find_xml(item, './billId'),
    no = datagokR:::find_xml(item, './billNo'),
    name = datagokR:::find_xml(item, './billName'),

    approver = datagokR:::find_xml(item, './approver'),
    proposer = datagokR:::find_xml(item, './proposer'),
    propose_date = datagokR:::find_xml(item, './proposeDt'),

    committee = datagokR:::find_xml(item, './committeeName'),
    vote_date = datagokR:::find_xml(item, './procdt'),
    vote_result = datagokR:::find_xml(item, './generalResult'),
    stringsAsFactors = F
  )

  for(col in colnames(data)){
    if(class(data[[col]]) == 'character'){
      Encoding(data[[col]]) <- 'UTF-8'
      data[[col]][data[[col]] == ''] <- NA
    }
  }

  return(dplyr::as.tbl(data))
}