inst/doc/telegrambot-introduction.R

In telegram.bot: Develop a 'Telegram Bot' with R

## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----eval = FALSE-------------------------------------------------------------
# # install.packages("telegram.bot")
# library(telegram.bot)
# 
# bot <- Bot(token = "TOKEN")

## ----eval = FALSE-------------------------------------------------------------
# print(bot$getMe())

## ----eval = FALSE-------------------------------------------------------------
# updates <- bot$getUpdates()

## ----eval = FALSE-------------------------------------------------------------
# chat_id <- "CHAT_ID" # you can retrieve it from bot$getUpdates() after sending a message to the bot
# bot$sendMessage(chat_id = chat_id, text = "TestReply")

## ----eval = FALSE-------------------------------------------------------------
# # Send message
# bot$sendMessage(chat_id,
#   text = "foo *bold* _italic_",
#   parse_mode = "Markdown"
# )
# 
# # Send photo
# bot$sendPhoto(chat_id,
#   photo = "https://telegram.org/img/t_logo.png"
# )
# 
# # Send audio
# bot$sendAudio(chat_id,
#   audio = "http://www.largesound.com/ashborytour/sound/brobob.mp3"
# )
# 
# # Send document
# bot$sendDocument(chat_id,
#   document = paste0(
#     "https://github.com/ebeneditos/telegram.bot/raw/gh-pages/docs/",
#     "telegram.bot.pdf"
#   )
# )
# 
# # Send sticker
# bot$sendSticker(chat_id,
#   sticker = "https://www.gstatic.com/webp/gallery/1.webp"
# )
# 
# # Send video
# bot$sendVideo(chat_id,
#   video = "http://techslides.com/demos/sample-videos/small.mp4"
# )
# 
# # Send gif
# bot$sendAnimation(chat_id,
#   animation = "https://media.giphy.com/media/sIIhZliB2McAo/giphy.gif"
# )
# 
# # Send location
# bot$sendLocation(chat_id,
#   latitude = 51.521727,
#   longitude = -0.117255
# )
# 
# # Send chat action
# bot$sendChatAction(chat_id,
#   action = "typing"
# )
# 
# # Get user profile photos
# photos <- bot$getUserProfilePhotos(user_id = chat_id)
# 
# # Download user profile photo
# file_id <- photos$photos[[1L]][[1L]]$file_id
# bot$getFile(file_id, destfile = "photo.jpg")