R/policy_details.R

In savchukidze/rada4you1: Work with rada4you.org API

#' Отримайте короткий опис політики
#'
#' @param id Вектор, який містить id політик (має складатись щонайменше з одного елементу). За замовчуванням має значення '1', що відповідає тестовій політиці.
#'
#' @param key Ваш персональний ключ API, отриманий на rada4you.org
#'
#' @return Датафрейм, що складається з одинадцятьох змінних для кожної політики.
#'
#' @export

policy_details <- function(id = 1, key) {

    details <- data.frame()

    for(i in id) {

      request <- httr::GET(url = "https://rada4you.org/",
                           path = paste0("api/v1/policies/", i, ".json"),
                           query = list(key = key))

      if(httr::status_code(request) != 200) {

      stop(
        message(paste('Помилка. Код відповіді сервера: '), httr::status_code(request)))

      } else {

        response <- httr::content(request, as = 'text')

        json <- jsonlite::fromJSON(response)

        detail <- data.frame(policy_id = json$id,
                             policy_name = json$name,
                             description = json$description,
                             provisional = json$provisional,
                             id = json$policy_divisions$division$id,
                             name = json$policy_divisions$division$name,
                             date = json$policy_divisions$division$date,
                             time = json$policy_divisions$division$clock_time,
                             aye_votes = json$policy_divisions$division$aye_votes,
                             no_votes = json$policy_divisions$division$no_votes,
                             rebellions = json$policy_divisions$division$rebellions,

                                                                        stringsAsFactors = F
        )

        details <- rbind.data.frame(details, detail)

        details$date <- as.Date(details$date)

        Sys.sleep(1)

      }

}

  return(details)

}