# NOT RUN {
bot <- Bot(token = bot_token("RTelegramBot"))
chat_id <- user_id("Me")
animation_url <- "http://techslides.com/demos/sample-videos/small.mp4"
bot$sendAnimation(chat_id = chat_id,
animation = animation_url)
# }
Run the code above in your browser using DataLab