# NOT RUN {
# Initialize bot
bot <- TGBot$new(token = bot_token('RBot'))
bot$set_default_chat_id(user_id('me'))
# Create Custom Keyboard
text <- "Aren't those custom keyboards cool?"
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 = TRUE
)
# Send Custom Keyboard
bot$sendMessage(text, reply_markup = RKM)
# }
Run the code above in your browser using DataLab