How do I get all S&P500 corp code list using R?

I want to make FOR statement in R for analysis Stock data at one go. But I don't know how do I get a S&P corp code list. Please, let me know solution. Thank you. library(rpart) library(r...