if (FALSE) {
# Use to filter all video messages
video_handler <- MessageHandler(callback_method, MessageFilters$video)
# To filter all contacts, etc.
contact_handler <- MessageHandler(callback_method, MessageFilters$contact)
}
Run the code above in your browser using DataLab