if (FALSE) {
# Initialize bot
bot <- Bot(token = "TOKEN")
chat_id <- "CHAT_ID"
# Set input parameters
text <- "Don't forget to send me the answer!"
# Send reply message
bot$sendMessage(chat_id, text, reply_markup = ForceReply())
}
Run the code above in your browser using DataLab