# NOT RUN {
p_list <- list("partyid",
c("partyid", "age"),
c("age", "race"),
c("partyid", "age", "race"))
ft_list <- list("partyidNot str republican",
c("partyidInd,near dem", "age"),
c("age", "raceBlack"),
c("partyidInd,near dem", "age", "raceBlack"))
extract_all_subscripts(p_list, ft_list)
# }
Run the code above in your browser using DataLab