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

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

## ---- eval = FALSE------------------------------------------------------------
#  updater <- Updater("TOKEN") + start_handler

## ---- eval = FALSE------------------------------------------------------------
#  echo <- function(bot, update){
#    bot$sendMessage(chat_id = update$message$chat_id,
#                    text = update$message$text)
#  }
#  
#  updater <- Updater("TOKEN") + CommandHandler("start", start) + MessageHandler(echo, MessageFilters$text)

## ---- eval = FALSE------------------------------------------------------------
#  caps <- function(bot, update, args){
#    if (length(args > 0L)){
#     	text_caps <- toupper(paste(args, collapse = " "))
#     	bot$sendMessage(chat_id = update$message$chat_id,
#     	                text = text_caps)
#    }
#  }
#  
#  updater <- updater + CommandHandler("caps", caps, pass_args = TRUE)

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

## ---- eval = FALSE------------------------------------------------------------
#  updater <- updater + start_handler

## ---- eval = FALSE------------------------------------------------------------
#  updater$dispatcher$add_handler(start_handler)

## ---- eval = FALSE------------------------------------------------------------
#  dispatcher <- updater$dispatcher
#  dispatcher <- dispatcher + start_handler