if (FALSE) {
callback_method <- function(bot, update) {
chat_id <- update$message$chat_id
bot$sendMessage(chat_id = chat_id, text = "Hello")
}
# No filtering
message_handler <- MessageHandler(callback_method, MessageFilters$all)
}
Run the code above in your browser using DataLab