Download bill co-sponsorship records — get

Downloads the complete proposer records (769,773 rows) listing every legislator who co-sponsored each bill. Requires the arrow package.

Usage

get_proposers(cache_dir = NULL, force_download = FALSE)

Arguments

cache_dir: Directory to cache downloaded files. Defaults to tools::R_user_dir("assemblykor", "cache").
force_download: Logical. If TRUE, re-download even if cached.

Value

A data frame with 769,773 rows and 8 variables:

bill_id: Bill identifier (links to bills$bill_id)
bill_no: Numeric bill number
bill_name: Bill title in Korean
propose_date: Proposal date
proposer_name: Legislator name
proposer_party: Party affiliation at the time of co-sponsorship
member_id: Legislator identifier (links to legislators$member_id)
is_lead: Logical: TRUE if lead (primary) proposer, FALSE if co-sponsor

Examples

# \donttest{
if (requireNamespace("arrow", quietly = TRUE) &&
    requireNamespace("dplyr", quietly = TRUE)) {
  props <- get_proposers(cache_dir = tempdir())

  # Build co-sponsorship edgelist
  leads <- dplyr::select(
    dplyr::filter(props, is_lead), bill_id, lead = member_id
  )
  cosponsors <- dplyr::select(
    dplyr::filter(props, !is_lead), bill_id, cosponsor = member_id
  )
  edges <- dplyr::inner_join(
    leads, cosponsors,
    by = "bill_id", relationship = "many-to-many"
  )
}
#> Downloading proposer records (~6 MB)...
#> Cached at: /tmp/RtmphB8v02/proposers.parquet
# }