R/get_specific_nominations.R

In ProPublicaR: Access Functions for ProPublica's APIs

#' Get a Specific Nomination
#'
#' To get details about a particular presidential civilian nomination,, use the following function. HTTP Request: GET https://api.propublica.org/congress/v1/{congress}/nominees/{nominee-id}.json
#'
#' @param congress 107-116
#' @param nominee_id alphanumeric ID beginning with PN - for example, PN675
#' @inheritParams get_new_members
#'
#' @return List of returned JSON from endpoint that retrieves 
#' @export
#'
#' @examples
#' \dontrun{
#' get_specific_nominations(115, 'PN40')
#' }
get_specific_nominations <- function(congress, nominee_id, page = 1, myAPI_Key){
  API = 'congress'
  control <- 107:cMaxCongress
  if(!congress %in% 107:cMaxCongress){
    stop("Incorrect congress, posible options are: ", control[1], ", ", control[2], ", ", control[3], " until ", control[9] )
  }
  query <- sprintf("%s/nominees/%s.json", congress, nominee_id)
  pp_query(query, API, page = page, myAPI_Key = myAPI_Key)
}