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

## ----eval = FALSE-------------------------------------------------------------
# library(telegram.bot)
# 
# updater <- Updater(token = "TOKEN")

## ----eval = FALSE-------------------------------------------------------------
# file.edit(path.expand(file.path("~", ".Renviron")))

## ----eval = FALSE-------------------------------------------------------------
# R_TELEGRAM_BOT_RTelegramBot=TOKEN

## ----eval = FALSE-------------------------------------------------------------
# updater <- Updater(token = bot_token("RTelegramBot"))

## ----eval = FALSE-------------------------------------------------------------
# start <- function(bot, update) {
#   bot$sendMessage(
#     chat_id = update$message$chat_id,
#     text = sprintf("Hello %s!", update$message$from$first_name)
#   )
# }

## ----eval = FALSE-------------------------------------------------------------
# start_handler <- CommandHandler("start", start)
# updater <- updater + start_handler

## ----eval = FALSE-------------------------------------------------------------
# updater$start_polling()