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