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