R/dkpp.R

In andriy-gazin/edata: Work with spending.gov.ua API

#' Повертає довідник ДКПП
#'
#' @return Датафрейм із державним класифікатором продукції промисловості
#'
#' @export

dkpp <- function() {
  
  request <- httr::GET('http://api.spending.gov.ua/api/v2/dictionaries/dkpp')
  
  if(httr::status_code(request) != 200) {
    
    stop(paste('Помилка. Код помилки:', httr::status_code(request)))
    
  } else {
    
    response <- httr::content(request, as = 'text')
    response <- jsonlite::fromJSON(response, flatten = TRUE)
    
  }
  
  return(response)
  
}