# NOT RUN {
# Initialize bot
bot <- TGBot$new(token = bot_token('RBot'))
bot$set_default_chat_id(user_id('me'))
# Create Custom Keyboard
text <- "Don't forget to send me the answer!"
RKM <- ReplyKeyboardMarkup(
keyboard = list(
list(KeyboardButton("Yes, they certainly are!")),
list(KeyboardButton("I'm not quite sure")),
list(KeyboardButton('No...'))),
resize_keyboard = FALSE,
one_time_keyboard = FALSE
)
# Send Custom Keyboard
bot$sendMessage(text, reply_markup = RKM)
# Remove Keyboard
bot$sendMessage("Okay, thanks!", reply_markup = ReplyKeyboardRemove())
# }
Run the code above in your browser using DataLab