# NOT RUN {
# Initialize bot
bot <- TGBot$new(token = bot_token('RBot'))
bot$set_default_chat_id(user_id('me'))
# Create Inline Keyboard
text <- "Could you type their phone number, please?"
IKM <- InlineKeyboardMarkup(
inline_keyboard = list(
list(InlineKeyboardButton(1),
InlineKeyboardButton(2),
InlineKeyboardButton(3)),
list(InlineKeyboardButton(4),
InlineKeyboardButton(5),
InlineKeyboardButton(6)),
list(InlineKeyboardButton(7),
InlineKeyboardButton(8),
InlineKeyboardButton(9)),
list(InlineKeyboardButton("*"),
InlineKeyboardButton(0),
InlineKeyboardButton("#"))
)
)
# Send Inline Keyboard
bot$sendMessage(text, reply_markup = IKM)
# }
Run the code above in your browser using DataLab