R/cg_bill_subjects.R

In rsunlight: Interface to 'Sunlight' Foundation 'APIs'

#' Get Library of Congress-assigned subjects about a particular bill
#'
#' @export
#' @param congress congress id (numeric,integer)
#' @param id the bill id (character)
#' @template args
#' @examples \dontrun{
#' cg_bill_subjects(115, 'hr1628')
#' cg_bill_subjects(115, 'hr2810')
#' }
cg_bill_subjects <- function(congress, id, key = NULL, as = 'table', ...) {
  key <- check_key(key, "PROPUBLICA_API_KEY")
  path <- sprintf("congress/v1/%s/bills/%s/subjects.json",
    congress, id)
  tmp <- foo_bar(as, cgurl(), path, list(), key, ...)
  tibble::as_tibble(as_dt(tmp$results[[1]]$subjects))
}