# NOT RUN {
bot <- Bot(token = bot_token('RBot'))
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