This is my code so far.
tweets_search <- search_tweets("Company",n=100,include_rts=FALSE)
tss <- tweets_search %>% select(text)
tss$c