使用R中的telegram.bot包向机器人添加按钮

install.packages("telegram.bot")
library(telegram.bot)

bot_token <- "YOUR_BOT_TOKEN"
bot <- TGBot(token = bot_token)

handle_message <- function(update, bot) {
  message <- update$message
  
  if (is.null(message$text)) {
    # 处理接收到的按钮回调
    callback_query <- update$callback_query
    query_data <- callback_query$data
    chat_id <- callback_query$message$chat$id
    
    # 处理按钮回调的逻辑
    # ...
    
    # 回复按钮回调
    bot$answerCallbackQuery(callback_query_id = callback_query$id)
  } else {
    # 处理接收到的消息
    text <- message$text
    chat_id <- message$chat$id
    
    # 处理消息的逻辑
    # ...
  }
}

bot$start(handle_message)

keyboard <- list(
  list(
    TGBotInlineKeyboardButton(text = "按钮1", callback_data = "button1"),
    TGBotInlineKeyboardButton(text = "按钮2", callback_data = "button2")
  ),
  list(
    TGBotInlineKeyboardButton(text = "按钮3", callback_data = "button3"),
    TGBotInlineKeyboardButton(text = "按钮4", callback_data = "button4")
  )
)

reply_markup <- TGBotInlineKeyboardMarkup(inline_keyboard = keyboard)

bot$send_message(
  chat_id = chat_id,
  text = "这是一个带有按钮的消息。",
  reply_markup = reply_markup
)