Tweet Markov Bot

tweet_markov_bot.R

library(tidyverse)
library(rtweet)
library(markovifyR)

## Get tweets with "rtweet"
## FYI you need to set up "rtweet" beforehand
yost_data <- get_timeline("@travisyost", n = 10000)

## Take out RTs and create Markov model
markov_model <- yost_data %>%
  filter(is_retweet == FALSE) %>%
  pull(text) %>%
  generate_markovify_model(markov_state_size = 2) %>%
  markovify_text(maximum_sentence_length = NULL, count = 25, tries = 100, only_distinct = TRUE)

## Print output
markov_model %>%
  print(n = 25)