# NOT RUN {
# 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