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

## ---- eval = FALSE------------------------------------------------------------
#  handler <- MessageHandler(callback,
#    MessageFilters$video | MessageFilters$photo | MessageFilters$document
#  )

## ---- eval = FALSE------------------------------------------------------------
#  handler <- MessageHandler(callback,
#    MessageFilters$forwarded & MessageFilters$photo
#  )

## ---- eval = FALSE------------------------------------------------------------
#  handler <- MessageHandler(callback,
#    MessageFilters$photo & (!MessageFilters$forwarded)
#  )

## ---- eval = FALSE------------------------------------------------------------
#  filter_user <- function(message) message$from_user  == "USER_ID"

## ---- eval = FALSE------------------------------------------------------------
#  filter_user <- BaseFilter(filter = filter_user)

## ---- eval = FALSE------------------------------------------------------------
#  filter_user <- as.BaseFilter(function(message) message$from_user  == "USER_ID")

## ---- eval = FALSE------------------------------------------------------------
#  kill_handler <- CommandHandler("kill", kill, filter_user)

## ---- eval = FALSE------------------------------------------------------------
#  MessageFilters$text_or_command <- BaseFilter(function(message) {
#    !is.null(message$text))
#  }

## ---- eval = FALSE------------------------------------------------------------
#  handler <- MessageHandler(callback, MessageFilters$text_or_command)