Scrape only Tweets with Emojis in R

I have been working on a project related to Sentiment Analysis on Emojis. And I only want tweets with emojis in them and I don't want to do it manually So, is there any way that I could make some changes in the below code that will result only in the tweets that have emoticons in them. Any help will be highly appreciated.

Code:

get_token() # Connects with Twitter API
Uber <- search_tweets("uber", n = 2000, lang = "en")