#' Download Information About a Party on Databrary as JSON
#'
#' @param party_id An integer. The party number to retrieve information about.
#' @param vb A Boolean value if TRUE returns verbose output.
#' @param rq An `httr2`-style request object. If NULL, then a new request will
#' be generated using `make_default_request()`.
#'
#' @returns A nested list with information about the party.
#' This can be readily parsed by other functions.
#'
#' @examples
#' \donttest{
#' \dontrun{
#' get_party_by_id()
#' }
#' }
#' @export
get_party_by_id <- function(party_id = 6,
vb = FALSE,
rq = NULL) {
# Check parameters
assertthat::assert_that(is.numeric(party_id))
assertthat::assert_that(party_id >= 1)
assertthat::assert_that(length(vb) == 1)
assertthat::assert_that(is.logical(vb))
assertthat::assert_that(is.null(rq) |
("httr2_request" %in% class(rq)))
if (is.null(rq)) {
if (vb) {
message("NULL request object. Will generate default.")
message("Not logged in. Only public information will be returned.")
}
rq <- databraryr::make_default_request()
}
prq <- rq %>%
httr2::req_url(sprintf(GET_PARTY_BY_ID, party_id))
resp <- tryCatch(
httr2::req_perform(prq),
httr2_error = function(cnd) {
if (vb)
message("Error retrieving information for party_id ", party_id)
NULL
}
)
if (!is.null(resp)) {
httr2::resp_body_json(resp)
} else {
resp
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.