tweets <- c(
"This is a first tweet. Simple!",
"This tweet tags @hadleywickham and @_wurli",
"This tweet links {rtweet}: https://docs.ropensci.org/rtweet/",
"Emojis take up two characters \U1F600\U1F600\U1F600",
strrep("This tweet is way too long! ", 20)
)
# Dataframe summarising all of the following
tweet_info(tweets)
# Ratio of used characterss to allowed characters
tweet_permillage(tweets)
# Length of the tweet (according to Twitter's rules):
tweet_weighted_length(tweets)
# Logical indicating tweet validity:
tweet_is_valid(tweets)
# Valid range of a tweet
tweet_valid_range_start(tweets)
tweet_valid_range_end(tweets)
# Display range of a tweet
tweet_display_range_start(tweets)
tweet_display_range_end(tweets)
Run the code above in your browser using DataLab