# Get entire 'Portraits' table for the United States Senate
usa_portraits <- get_portrait(legislature = "usa_senate")
tibble::glimpse(usa_portraits)
# Get 'Portraits' table for Democratic members of the United States Senate
usa_port_subset <- dplyr::semi_join(x = usa_portraits,
y = dplyr::filter(get_political(legislature = "usa_senate"),
party == "D"),
by = "pageid")
tibble::glimpse(usa_port_subset)
Run the code above in your browser using DataLab