Легко: # ################ library(telegram.bot) updater <- Updater(token = "12345:ABCDE") inline <- function(bot, update) {

Question

Легко: # ################ library(telegram.bot) updater <- Updater(token = "12345:ABCDE") inline <- function(bot, update) {

#browser()
text <- "Yes or no?"
IKM <- InlineKeyboardMarkup(
inline_keyboard = list(
list(
InlineKeyboardButton("Yes", callback_data = 'yes'),
InlineKeyboardButton("No", callback_data = 'no')
)
)
)

# Send Inline Keyboard
bot$sendMessage(update$message$chat_id, text, reply_markup = IKM)
}

inline_h <- CommandHandler('inline', inline)
updater <- updater + inline_h

answer_cb <- function(bot, update) {

data <- update$callback_query$data
#browser()
# Send Custom Keyboard
bot$sendMessage(chat_id = update$from_chat_id(),#update$message$chat_id,
text = data)

bot$answerCallbackQuery(callback_query_id = update$callback_query$id)
}

query_handler <- CallbackQueryHandler(answer_cb)
updater <- updater + query_handler

updater$start_polling()

#programming #r #russian

0

26.06.2020

1 ответов

22 просмотра

Пользователь 62a47 · Accepted Answer

Пользователь 62a47

Ух, спасибо, за оперативность )) Я прям не ожидал даже. Еще раз спасибо.

0

26.06.2020

169 похожих чатов

Легко: # ################ library(telegram.bot) updater <- Updater(token = "12345:ABCDE") inline <- function(bot, update) {

1 ответов

Похожие вопросы