# Get entire 'Social' table forthe UK House of Commons
gbr_social <- get_social(legislature = "gbr")
tibble::glimpse(gbr_social)
# Get 'Social' table for members of the UK House of Commons with available TheyWorkForYou ID
gbr_social_subset <- dplyr::semi_join(x = gbr_social,
y = dplyr::filter(get_ids(legislature = "gbr"),
!is.na(theyworkforyou)),
by = "wikidataid")
tibble::glimpse(gbr_social_subset)
Run the code above in your browser using DataLab