if (FALSE) {
# Start polling example
start <- function(bot, update) {
bot$sendMessage(
chat_id = update$message$chat_id,
text = sprintf(
"Hello %s!",
update$message$from$first_name
)
)
}
updater <- Updater("TOKEN") + CommandHandler("start", start)
updater$start_polling(verbose = TRUE)
}
Run the code above in your browser using DataLab