Nothing
## ----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
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.