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