if (FALSE) {
# You can chain multiple handlers
start <- function(bot, update) {
bot$sendMessage(
chat_id = update$message$chat_id,
text = sprintf(
"Hello %s!",
update$message$from$first_name
)
)
}
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)
# And keep adding...
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)
# Give it a try!
updater$start_polling()
# Send '/start' to the bot, '/caps foo' or just a simple text
}
Run the code above in your browser using DataLab