name <- 'kearneymw'
status <- '1087047171306856451'
tweet_embed(screen_name = name, status_id = status)
tweet_embed(
screen_name = name,
status_id = status,
hide_thread = TRUE,
hide_media = FALSE,
align = 'center'
)
Run the code above in your browser using DataLab