Connection timed out after 10000 milliseconds in R?

Question

I am trying to stream data from twitter using twitter api, rtweet and search tweets. When I do this code:

tweets1 <- search_tweets2("company", re