library("twitteR")
library("rtweet")
library("RCurl")
library("ROAuth")
api_key<-"xxxxxxxxxxxxxxxx"
api_secret<-"xxxxxxxxxxxxxxxxxxxxxx"
access_token<-"xxxxxxxxxxxxxxxxxxx"
access_token_secret<-"xxxxxxxxxxxxxxxx"
setup_twitter_oauth(api_key,api_secret,access_token,access_token_secret)
test <- search_tweets("narendramodi", n= 100)
write.csv(twListToDF(test),file = "k.csv")`