В ການພິມເຜີຍແຜ່ທີ່ຜ່ານມາ ພວກເຮົາໄດ້ຄິດອອກວິທີການສ້າງ bot, ເລີ່ມຕົ້ນຕົວຢ່າງຂອງຫ້ອງຮຽນ Bot ແລະຄຸ້ນເຄີຍກັບວິທີການສົ່ງຂໍ້ຄວາມໂດຍໃຊ້ມັນ.

ໃນບົດຄວາມນີ້ຂ້າພະເຈົ້າສືບຕໍ່ຫົວຂໍ້ນີ້, ສະນັ້ນຂ້າພະເຈົ້າແນະນໍາໃຫ້ເລີ່ມຕົ້ນອ່ານບົດຄວາມນີ້ພຽງແຕ່ຫຼັງຈາກອ່ານ ສ່ວນທໍາອິດ.

ເວລານີ້ພວກເຮົາຈະຄິດວິທີການຟື້ນຟູ bot ຂອງພວກເຮົາແລະເພີ່ມການສະຫນັບສະຫນູນຄໍາສັ່ງກັບມັນ, ແລະຍັງຮູ້ຈັກກັບຫ້ອງຮຽນ. Updater.

ໃນລະຫວ່າງບົດຄວາມ, ພວກເຮົາຈະຂຽນ bots ງ່າຍດາຍຫຼາຍ, ສຸດທ້າຍຈະ, ອີງຕາມວັນທີແລະລະຫັດປະເທດ, ກໍານົດວ່າມື້ໃນປະເທດໃດຫນຶ່ງແມ່ນທ້າຍອາທິດຫຼືມື້ເຮັດວຽກຕາມປະຕິທິນການຜະລິດ. ແຕ່, ດັ່ງທີ່ຜ່ານມາ, ຈຸດປະສົງຂອງບົດຄວາມແມ່ນເພື່ອຄຸ້ນເຄີຍກັບການໂຕ້ຕອບຂອງຊຸດ telegram.bot ເພື່ອແກ້ໄຂບັນຫາຂອງທ່ານເອງ.

ບົດຄວາມທັງຫມົດຈາກຊຸດ "ຂຽນໂທລະເລກ bot ໃນ R"

1. ພວກເຮົາສ້າງ bot ແລະໃຊ້ມັນເພື່ອສົ່ງຂໍ້ຄວາມໃນ telegram
2. ເພີ່ມການສະຫນັບສະຫນູນຄໍາສັ່ງແລະການກັ່ນຕອງຂໍ້ຄວາມໃສ່ bot

ເນື້ອໃນ

ຖ້າທ່ານສົນໃຈໃນການວິເຄາະຂໍ້ມູນ, ທ່ານອາດຈະສົນໃຈຂອງຂ້ອຍ telegram и youtube ຊ່ອງ. ສ່ວນໃຫຍ່ຂອງເນື້ອຫາແມ່ນອຸທິດຕົນເພື່ອພາສາ R.

1. ຫ້ອງຮຽນອັບເດດ
2. Handlers - handlers
3. ເພີ່ມຄໍາສັ່ງທໍາອິດກັບ bot, ຕົວຈັດການຄໍາສັ່ງ
4. ຕົວປະມວນຜົນຂໍ້ຄວາມ ແລະຕົວກອງ
5. ເພີ່ມຄໍາສັ່ງທີ່ມີພາລາມິເຕີ
6. ດໍາເນີນການ bot ໃນພື້ນຫລັງ
7. ສະຫລຸບ

ຫ້ອງຮຽນອັບເດດ

Updater ແມ່ນຫ້ອງຮຽນທີ່ເຮັດໃຫ້ມັນງ່າຍຂຶ້ນສໍາລັບທ່ານທີ່ຈະພັດທະນາ telegram bot, ແລະນໍາໃຊ້ຫ້ອງຮຽນພາຍໃຕ້ hood ໄດ້ Dispetcher. ການ​ມອບ​ຫມາຍ​ຫ້ອງ​ Updater ແມ່ນເພື່ອໄດ້ຮັບການປັບປຸງຈາກ bot (ໃນບົດຄວາມທີ່ຜ່ານມາພວກເຮົາໄດ້ໃຊ້ວິທີການສໍາລັບຈຸດປະສົງນີ້ getUpdates()), ແລະໂອນໃຫ້ເຂົາເຈົ້າຕື່ມອີກ Dispetcher.

ໃນທີ່ສຸດ Dispetcher ມີຕົວຈັດການທີ່ທ່ານສ້າງຂຶ້ນ, i.e. ວັດຖຸຂອງຫ້ອງຮຽນ Handler.

Handlers - handlers

ດ້ວຍຕົວຈັດການທີ່ທ່ານເພີ່ມໃສ່ Dispetcher ປະຕິກິລິຍາ bot ກັບເຫດການຕ່າງໆ. ໃນເວລາຂຽນບົດຄວາມນີ້ຢູ່ໃນ telegram.bot ປະເພດຕົວຈັດການຕໍ່ໄປນີ້ໄດ້ຖືກເພີ່ມ:

• MessageHandler — ຕົວຈັດການຂໍ້ຄວາມ
• CommandHandler - ຕົວຈັດການຄໍາສັ່ງ
• CallbackQueryHandler — ຕົວຈັດການຂໍ້ມູນສໍາລັບແປ້ນພິມທີ່ສົ່ງມາຈາກ Inline
• ErrorHandler — ຕົວຈັດການຄວາມຜິດພາດເມື່ອຮ້ອງຂໍການອັບເດດຈາກບັອດ

ເພີ່ມຄໍາສັ່ງທໍາອິດກັບ bot, ຕົວຈັດການຄໍາສັ່ງ

ຖ້າທ່ານບໍ່ເຄີຍໃຊ້ bots ມາກ່ອນແລະບໍ່ຮູ້ວ່າຄໍາສັ່ງແມ່ນຫຍັງ, ຫຼັງຈາກນັ້ນຄໍາສັ່ງໄປຫາ bots ຈະຕ້ອງຖືກສົ່ງໂດຍໃຊ້ slash ໄປຂ້າງຫນ້າ. / ເປັນຄໍານໍາຫນ້າ.

ພວກເຮົາຈະເລີ່ມຕົ້ນດ້ວຍຄໍາສັ່ງງ່າຍໆ, i.e. ໃຫ້ສອນ bot ຂອງພວກເຮົາໃຫ້ເວົ້າວ່າສະບາຍດີໃນຄໍາສັ່ງ /hi.

ລະຫັດ 1: ການສອນ bot ເພື່ອເວົ້າວ່າສະບາຍດີ

library(telegram.bot)

# создаём экземпляр класса Updater
updater <- Updater('ТОКЕН ВАШЕГО БОТА')

# Пишем метод для приветсвия
say_hello <- function(bot, update) {

  # Имя пользователя с которым надо поздароваться
  user_name <- update$message$from$first_name

  # Отправка приветственного сообщения
  bot$sendMessage(update$message$chat_id, 
                  text = paste0("Моё почтение, ", user_name, "!"), 
                  parse_mode = "Markdown")

}

# создаём обработчик 
hi_hendler <- CommandHandler('hi', say_hello)

# добаляем обработчик в диспетчер
updater <- updater + hi_hendler

# запускаем бота
updater$start_polling()

ດໍາເນີນການຕົວຢ່າງລະຫັດຂ້າງເທິງ, ຫຼັງຈາກທີ່ປ່ຽນແທນ 'Your BOT TOKEN' ດ້ວຍ token ທີ່ແທ້ຈິງທີ່ທ່ານໄດ້ຮັບໃນເວລາສ້າງ bot ຜ່ານ. BotFather (ຂ້າພະເຈົ້າໄດ້ເວົ້າກ່ຽວກັບການສ້າງ bot ໃນ ບົດຄວາມທໍາອິດ).

ວິທີການ start_polling() ຫ້ອງ​ຮຽນ Updater, ເຊິ່ງຖືກນໍາໃຊ້ໃນຕອນທ້າຍຂອງລະຫັດ, ເລີ່ມຕົ້ນ loop ທີ່ບໍ່ມີສິ້ນສຸດຂອງການຮ້ອງຂໍແລະການປຸງແຕ່ງການປັບປຸງຈາກ bot.

ຕອນນີ້ໃຫ້ເປີດ Telegram ແລະຂຽນຄໍາສັ່ງທໍາອິດໃຫ້ກັບ bot ຂອງພວກເຮົາ /hi.

ໃນປັດຈຸບັນ bot ຂອງພວກເຮົາເຂົ້າໃຈຄໍາສັ່ງ /hi, ແລະຮູ້ວິທີການທັກທາຍພວກເຮົາ.

Schematically, ຂະບວນການສ້າງ bot ງ່າຍດາຍດັ່ງກ່າວສາມາດໄດ້ຮັບການສະແດງດັ່ງຕໍ່ໄປນີ້.

1. ສ້າງຕົວຢ່າງຂອງຊັ້ນຮຽນ Updater;
2. ພວກເຮົາສ້າງວິທີການ, i.e. ຫນ້າທີ່ bot ຂອງພວກເຮົາຈະປະຕິບັດ. ໃນຕົວຢ່າງລະຫັດນີ້ແມ່ນຫນ້າທີ່ say_hello(). ຫນ້າທີ່ທີ່ເຈົ້າຈະໃຊ້ເປັນວິທີການ bot ຕ້ອງມີສອງການໂຕ້ຖຽງທີ່ຕ້ອງການ - bot и ການປັບປຸງ, ແລະຫນຶ່ງທາງເລືອກ - ໂຕ້ຖຽງ. ການໂຕ້ຖຽງ bot, ນີ້ແມ່ນ bot ຂອງທ່ານ, ດ້ວຍການຊ່ວຍເຫຼືອຂອງມັນທ່ານສາມາດຕອບກັບຂໍ້ຄວາມ, ສົ່ງຂໍ້ຄວາມ, ຫຼືໃຊ້ວິທີການອື່ນໆທີ່ມີໃຫ້ກັບ bot. ການໂຕ້ຖຽງ ການປັບປຸງ ນີ້ແມ່ນສິ່ງທີ່ bot ໄດ້ຮັບຈາກຜູ້ໃຊ້, ໃນຄວາມເປັນຈິງ, ສິ່ງທີ່ພວກເຮົາໄດ້ຮັບໃນບົດຄວາມທໍາອິດໂດຍໃຊ້ວິທີການ getUpdates(). ການໂຕ້ຖຽງ ໂຕ້ຖຽງ ອະນຸຍາດໃຫ້ທ່ານປຸງແຕ່ງຂໍ້ມູນເພີ່ມເຕີມທີ່ສົ່ງໂດຍຜູ້ໃຊ້ພ້ອມກັບຄໍາສັ່ງ, ພວກເຮົາຈະກັບຄືນໄປຫາຫົວຂໍ້ນີ້ເລັກນ້ອຍຕໍ່ມາ;
3. ພວກເຮົາສ້າງຕົວຈັດການ, i.e. ພວກເຮົາເຊື່ອມໂຍງບາງການກະທໍາຂອງຜູ້ໃຊ້ກັບວິທີການທີ່ສ້າງຂຶ້ນໃນຂັ້ນຕອນທີ່ຜ່ານມາ. ໂດຍພື້ນຖານແລ້ວ, ຕົວຈັດການແມ່ນຕົວກະຕຸ້ນ, ເຫດການທີ່ເອີ້ນບາງຫນ້າທີ່ bot. ໃນຕົວຢ່າງຂອງພວກເຮົາ, ຕົວກະຕຸ້ນດັ່ງກ່າວກໍາລັງສົ່ງຄໍາສັ່ງ /hi, ແລະຖືກປະຕິບັດໂດຍທີມງານ hi_hendler <- CommandHandler('hi', say_hello). ການໂຕ້ຖຽງການທໍາງານທໍາອິດ CommandHandler() ອະນຸຍາດໃຫ້ທ່ານລະບຸຄໍາສັ່ງ, ໃນກໍລະນີຂອງພວກເຮົາ hi, ທີ່ bot ຈະຕອບສະຫນອງ. ການໂຕ້ຖຽງທີສອງອະນຸຍາດໃຫ້ທ່ານລະບຸວິທີການ bot, ພວກເຮົາຈະໂທຫາວິທີການ say_hello, ເຊິ່ງຈະຖືກປະຕິບັດຖ້າຜູ້ໃຊ້ເອີ້ນວ່າຄໍາສັ່ງທີ່ລະບຸໄວ້ໃນ argument ທໍາອິດ;
4. ຕໍ່ໄປ, ພວກເຮົາເພີ່ມຕົວຈັດການທີ່ສ້າງຂຶ້ນໃສ່ຕົວສົ່ງຂອງຕົວຢ່າງຫ້ອງຮຽນຂອງພວກເຮົາ Updater. ເຈົ້າສາມາດເພີ່ມຕົວຈັດການໄດ້ຫຼາຍວິທີ; ໃນຕົວຢ່າງຂ້າງເທິງ, ຂ້ອຍໃຊ້ແບບທີ່ງ່າຍດາຍທີ່ສຸດ, ໂດຍໃຊ້ເຄື່ອງຫມາຍ +, i.e. updater <- updater + hi_hendler. ດຽວກັນສາມາດເຮັດໄດ້ໂດຍໃຊ້ວິທີການ add_handler(), ຊຶ່ງເປັນຂອງຫ້ອງຮຽນ Dispatcher, ທ່ານ​ສາ​ມາດ​ຊອກ​ຫາ​ວິ​ທີ​ການ​ດັ່ງ​ນີ້​: updater$dispatcher$add_handler();
5. ເປີດໃຊ້ bot ໂດຍໃຊ້ຄໍາສັ່ງ start_polling().

ຕົວປະມວນຜົນຂໍ້ຄວາມ ແລະຕົວກອງ

ພວກເຮົາຄິດວິທີການສົ່ງຄໍາສັ່ງໄປຫາ bot, ແຕ່ບາງຄັ້ງພວກເຮົາຕ້ອງການ bot ເພື່ອຕອບສະຫນອງບໍ່ພຽງແຕ່ຄໍາສັ່ງ, ແຕ່ຍັງກັບບາງຂໍ້ຄວາມປົກກະຕິ. ເພື່ອເຮັດສິ່ງນີ້, ທ່ານຈໍາເປັນຕ້ອງໃຊ້ຕົວຈັດການຂໍ້ຄວາມ − MessageHandler.

ທໍາມະດາ MessageHandler ຈະຕອບສະຫນອງກັບຂໍ້ຄວາມທີ່ເຂົ້າມາທັງຫມົດ. ດັ່ງນັ້ນ, ຕົວຈັດການຂໍ້ຄວາມມັກຈະຖືກນໍາໃຊ້ຮ່ວມກັນກັບຕົວກອງ. ໃຫ້ສອນ bot ໃຫ້ເວົ້າວ່າສະບາຍດີບໍ່ພຽງແຕ່ໃນຄໍາສັ່ງ /hi, ແຕ່ເມື່ອໃດກໍ່ຕາມຄໍາຕໍ່ໄປນີ້ປາກົດຢູ່ໃນຂໍ້ຄວາມທີ່ຖືກສົ່ງໄປຫາ bot: ສະບາຍດີ, ສະບາຍດີ, salute, hai, bonjour.

ໃນປັດຈຸບັນພວກເຮົາຈະບໍ່ຂຽນວິທີການໃຫມ່, ເພາະວ່າ ... ພວກເຮົາມີວິທີການທີ່ bot ທັກທາຍພວກເຮົາແລ້ວ. ສິ່ງທີ່ພວກເຮົາຕ້ອງເຮັດແມ່ນສ້າງຕົວກອງທີ່ຕ້ອງການແລະຕົວຈັດການຂໍ້ຄວາມ.

ລະຫັດ 2: ເພີ່ມຕົວຈັດການຂໍ້ຄວາມ ແລະຕົວກອງ

library(telegram.bot)

# создаём экземпляр класса Updater
updater <- Updater('ТОКЕН ВАШЕГО БОТА')

# Пишем метод для приветсвия
## команда приветвия
say_hello <- function(bot, update) {

  # Имя пользователя с которым надо поздароваться
  user_name <- update$message$from$first_name

  # Отправляем приветсвенное сообщение
  bot$sendMessage(update$message$chat_id, 
                  text = paste0("Моё почтение, ", user_name, "!"),
                  parse_mode = "Markdown",
                  reply_to_message_id = update$message$message_id)

}

# создаём фильтры
MessageFilters$hi <- BaseFilter(function(message) {

  # проверяем, встречается ли в тексте сообщения слова: привет, здравствуй, салют, хай, бонжур
  grepl(x           = message$text, 
        pattern     = 'привет|здравствуй|салют|хай|бонжур',
        ignore.case = TRUE)
  }
)

# создаём обработчик 
hi_hendler <- CommandHandler('hi', say_hello) # обработчик команды hi
hi_txt_hnd <- MessageHandler(say_hello, filters = MessageFilters$hi)

# добаляем обработчики в диспетчер
updater <- updater + 
             hi_hendler +
             hi_txt_hnd

# запускаем бота
updater$start_polling()

ດໍາເນີນການຕົວຢ່າງລະຫັດຂ້າງເທິງ, ຫຼັງຈາກທີ່ປ່ຽນແທນ 'Your BOT TOKEN' ດ້ວຍ token ທີ່ແທ້ຈິງທີ່ທ່ານໄດ້ຮັບໃນເວລາສ້າງ bot ຜ່ານ. BotFather (ຂ້າພະເຈົ້າໄດ້ເວົ້າກ່ຽວກັບການສ້າງ bot ໃນ ບົດຄວາມທໍາອິດ).

ດຽວນີ້, ໃຫ້ພະຍາຍາມສົ່ງຂໍ້ຄວາມຫຼາຍ bot ທີ່ມີ ຄຳ ທັກທາຍທີ່ລະບຸໄວ້ກ່ອນ ໜ້າ ນີ້:

ດັ່ງນັ້ນ, ກ່ອນອື່ນໝົດ, ພວກເຮົາສອນ bot ບໍ່ພຽງແຕ່ໃຫ້ເວົ້າສະບາຍດີ, ແຕ່ເພື່ອຕອບຄຳທັກທາຍ. ພວກເຮົາເຮັດສິ່ງນີ້ໂດຍໃຊ້ການໂຕ້ຖຽງ ຕອບ_to_message_id, ທີ່ມີຢູ່ໃນວິທີການ sendMessage(), ເຂົ້າໄປໃນທີ່ທ່ານຕ້ອງການໂອນ id ຂອງຂໍ້ຄວາມທີ່ທ່ານຕ້ອງການຕອບສະຫນອງ. ທ່ານສາມາດໄດ້ຮັບ id ຂໍ້ຄວາມເຊັ່ນນີ້: update$message$message_id.

ແຕ່ສິ່ງທີ່ສໍາຄັນທີ່ພວກເຮົາໄດ້ເຮັດແມ່ນການເພີ່ມຕົວກອງໃສ່ bot ໂດຍໃຊ້ຟັງຊັນ BaseFilter():

# создаём фильтры
MessageFilters$hi <- BaseFilter( 

  # анонимная фильтрующая функция
  function(message) {

    # проверяем, встречается ли в тексте сообщения слова приветствия
    grepl(x           = message$text, 
          pattern     = 'привет|здравствуй|салют|хай|бонжур',
          ignore.case = TRUE)
  }

)

ດັ່ງທີ່ທ່ານອາດຈະໄດ້ສັງເກດເຫັນ, ການກັ່ນຕອງຈໍາເປັນຕ້ອງຖືກເພີ່ມໃສ່ວັດຖຸ ການກັ່ນຕອງຂໍ້ຄວາມ, ເຊິ່ງໃນເບື້ອງຕົ້ນປະກອບດ້ວຍຊຸດຂະຫນາດນ້ອຍຂອງຕົວກອງທີ່ກຽມພ້ອມແລ້ວ. ໃນຕົວຢ່າງຂອງພວກເຮົາ, ກັບວັດຖຸ ການກັ່ນຕອງຂໍ້ຄວາມ ພວກເຮົາໄດ້ເພີ່ມອົງປະກອບ hi, ນີ້ແມ່ນຕົວກອງໃຫມ່.

ເພື່ອເຮັດວຽກ BaseFilter() ທ່ານຈໍາເປັນຕ້ອງຜ່ານຫນ້າທີ່ການກັ່ນຕອງ. ໂດຍພື້ນຖານແລ້ວ, ການກັ່ນຕອງແມ່ນພຽງແຕ່ຫນ້າທີ່ຮັບຕົວຢ່າງຂໍ້ຄວາມແລະສົ່ງຄືນ TRUE ຫຼື ຜິດ. ໃນຕົວຢ່າງຂອງພວກເຮົາ, ພວກເຮົາໄດ້ຂຽນຫນ້າທີ່ງ່າຍດາຍທີ່, ການນໍາໃຊ້ຫນ້າທີ່ພື້ນຖານ grepl() ກວດເບິ່ງຂໍ້ຄວາມຂໍ້ຄວາມ ແລະຖ້າມັນກົງກັບການສະແດງຜົນປົກກະຕິ привет|здравствуй|салют|хай|бонжур ກັບຄືນ TRUE.

ຕໍ່ໄປ, ພວກເຮົາສ້າງຕົວຈັດການຂໍ້ຄວາມ hi_txt_hnd <- MessageHandler(say_hello, filters = MessageFilters$hi). ການໂຕ້ຖຽງການທໍາງານທໍາອິດ MessageHandler() ແມ່ນວິທີການທີ່ຈະໂທຫາ handler, ແລະການໂຕ້ຖຽງທີສອງແມ່ນຕົວກອງທີ່ມັນຈະຖືກເອີ້ນວ່າ. ໃນກໍລະນີຂອງພວກເຮົາ, ນີ້ແມ່ນຕົວກອງທີ່ພວກເຮົາສ້າງ MessageFilters$hi.

ດີ, ໃນທີ່ສຸດ, ພວກເຮົາເພີ່ມການສົ່ງຕໍ່ຕົວຈັດການທີ່ສ້າງຂຶ້ນ hi_txt_hnd.

updater <- updater + 
             hi_hendler +
             hi_txt_hnd

ດັ່ງທີ່ຂ້າພະເຈົ້າຂຽນຂ້າງເທິງ, ໃນຊຸດ telegram.bot ແລະວັດຖຸ ການກັ່ນຕອງຂໍ້ຄວາມ ມີຊຸດຕົວກອງທີ່ເຈົ້າສາມາດນຳໃຊ້ໄດ້ແລ້ວ:

• ທັງ​ຫມົດ — ຂໍ້​ຄວາມ​ທັງ​ຫມົດ​
• text — ຂໍ້​ຄວາມ​
• ຄໍາສັ່ງ - ຄໍາສັ່ງ, i.e. ຂໍ້ຄວາມທີ່ເລີ່ມຕົ້ນດ້ວຍ /
• ຕອບກັບ — ຂໍ້ຄວາມທີ່ເປັນການຕອບກັບຂໍ້ຄວາມອື່ນ
• ສຽງ — ຂໍ້​ຄວາມ​ທີ່​ປະ​ກອບ​ດ້ວຍ​ໄຟລ​໌​ສຽງ​
• ເອກະສານ — ຂໍ້ຄວາມທີ່ມີເອກະສານທີ່ສົ່ງ
• ຮູບພາບ - ຂໍ້ຄວາມທີ່ມີຮູບພາບທີ່ສົ່ງ
• ສະຕິກເກີ — ຂໍ້ຄວາມທີ່ມີສະຕິກເກີທີ່ສົ່ງ
• ວິດີໂອ — ຂໍ້ຄວາມທີ່ມີວິດີໂອ
• ສຽງ - ຂໍ້ຄວາມສຽງ
• ຕິດ​ຕໍ່ - ຂໍ້​ຄວາມ​ທີ່​ມີ​ເນື້ອ​ໃນ telegram ຂອງ​ຜູ້​ໃຊ້​
• ສະຖານທີ່ — ຂໍ້ຄວາມທີ່ມີສະຖານທີ່ຕັ້ງພູມສາດ
• ສະຖານທີ່ — ຂໍ້ຄວາມສົ່ງຕໍ່
• ເກມ — ເກມ

ຖ້າທ່ານຕ້ອງການສົມທົບການກັ່ນຕອງບາງຢ່າງໃນຕົວຈັດການຫນຶ່ງພຽງແຕ່ໃຊ້ເຄື່ອງຫມາຍ | - ເປັນເຫດຜົນ OR, ແລະ​ເຊັນ​ & ຕາມເຫດຜົນ И. ຕົວຢ່າງ, ຖ້າທ່ານຕ້ອງການໃຫ້ bot ໂທຫາວິທີການດຽວກັນເມື່ອມັນໄດ້ຮັບວິດີໂອ, ຮູບພາບຫຼືເອກະສານ, ໃຊ້ຕົວຢ່າງຕໍ່ໄປນີ້ເພື່ອສ້າງຕົວຈັດການຂໍ້ຄວາມ:

handler <- MessageHandler(callback, 
  MessageFilters$video | MessageFilters$photo | MessageFilters$document
)

ເພີ່ມຄໍາສັ່ງທີ່ມີພາລາມິເຕີ

ພວກເຮົາຮູ້ແລ້ວວ່າຄໍາສັ່ງແມ່ນຫຍັງ, ວິທີການສ້າງພວກມັນ, ແລະວິທີການບັງຄັບໃຫ້ bot ປະຕິບັດຄໍາສັ່ງທີ່ຕ້ອງການ. ແຕ່ໃນບາງກໍລະນີ, ນອກເຫນືອຈາກຊື່ຄໍາສັ່ງ, ພວກເຮົາຈໍາເປັນຕ້ອງຜ່ານຂໍ້ມູນບາງຢ່າງເພື່ອປະຕິບັດມັນ.

ຂ້າງລຸ່ມນີ້ແມ່ນຕົວຢ່າງຂອງ bot ທີ່, ໃຫ້ວັນທີແລະປະເທດ, ສົ່ງຄືນປະເພດວັນໃຫ້ທ່ານຈາກປະຕິທິນການຜະລິດ.

bot ຂ້າງລຸ່ມນີ້ໃຊ້ API ປະຕິທິນການຜະລິດ isdayoff.ru.

ລະຫັດ 3: ບັອດທີ່ລາຍງານຕາມວັນທີ ແລະປະເທດ

library(telegram.bot)

# создаём экземпляр класса Updater
updater <- Updater('1165649194:AAFkDqIzQ6Wq5GV0YU7PmEZcv1gmWIFIB_8')

# Пишем метод для приветсвия
## команда приветвия
check_date <- function(bot, update, args) {

  # входящие данные
  day     <- args[1]  # дата
  country <- args[2]  # страна

  # проверка введённых параметров
  if ( !grepl('\d{4}-\d{2}-\d{2}', day) ) {

    # Send Custom Keyboard
    bot$sendMessage(update$message$chat_id, 
                    text = paste0(day, " - некорреткная дата, введите дату в формате ГГГГ-ММ-ДД"),
                    parse_mode = "Markdown")

  } else {
    day <- as.Date(day)
    # переводим в формат POSIXtl
    y <- format(day, "%Y")
    m <- format(day, "%m")
    d <- format(day, "%d")

  }

  # страна для проверки
  ## проверяем задана ли страна
  ## если не задана устанавливаем ru
  if ( ! country %in% c('ru', 'ua', 'by', 'kz', 'us') ) {

    # Send Custom Keyboard
    bot$sendMessage(update$message$chat_id, 
                    text = paste0(country, " - некорретктный код страны, возможнные значения: ru, by, kz, ua, us. Запрошены данные по России."),
                    parse_mode = "Markdown")

    country <- 'ru'

  }

  # запрос данных из API
  # компоновка HTTP запроса
  url <- paste0("https://isdayoff.ru/api/getdata?",
                "year=",  y, "&",
                "month=", m, "&",
                "day=",   d, "&",
                "cc=",    country, "&",
                "pre=1&",
                "covid=1")

  # получаем ответ
  res <- readLines(url)

  # интрепретация ответа
  out <- switch(res, 
                "0"   = "Рабочий день",
                "1"   = "Нерабочий день",
                "2"   = "Сокращённый рабочий день",
                "4"   = "covid-19",
                "100" = "Ошибка в дате",
                "101" = "Данные не найдены",
                "199" = "Ошибка сервиса")

  # отправляем сообщение
  bot$sendMessage(update$message$chat_id, 
                  text = paste0(day, " - ", out),
                  parse_mode = "Markdown")

}

# создаём обработчик 
date_hendler <- CommandHandler('check_date', check_date, pass_args = TRUE)

# добаляем обработчик в диспетчер
updater <- updater + date_hendler

# запускаем бота
updater$start_polling()

ດໍາເນີນການຕົວຢ່າງລະຫັດຂ້າງເທິງ, ຫຼັງຈາກທີ່ປ່ຽນແທນ 'Your BOT TOKEN' ດ້ວຍ token ທີ່ແທ້ຈິງທີ່ທ່ານໄດ້ຮັບໃນເວລາສ້າງ bot ຜ່ານ. BotFather (ຂ້າພະເຈົ້າໄດ້ເວົ້າກ່ຽວກັບການສ້າງ bot ໃນ ບົດຄວາມທໍາອິດ).

ພວກເຮົາສ້າງ bot ທີ່ມີວິທີດຽວໃນສານຫນູຂອງມັນ check_date, ວິທີການນີ້ແມ່ນເອີ້ນວ່າໂດຍຄໍາສັ່ງຂອງຊື່ດຽວກັນ.

ແຕ່, ນອກເຫນືອຈາກຊື່ຄໍາສັ່ງ, ວິທີການນີ້ຮຽກຮ້ອງໃຫ້ທ່ານໃສ່ສອງພາລາມິເຕີ, ລະຫັດປະເທດແລະວັນທີ. ຕໍ່ໄປ, bot ກວດເບິ່ງວ່າມື້ທີ່ກໍານົດໃນປະເທດທີ່ກໍານົດເປັນທ້າຍອາທິດ, ມື້ສັ້ນ, ຫຼືມື້ເຮັດວຽກຕາມປະຕິທິນການຜະລິດຢ່າງເປັນທາງການ.

ເພື່ອໃຫ້ວິທີການທີ່ພວກເຮົາສ້າງເພື່ອຮັບເອົາຕົວກໍານົດການເພີ່ມເຕີມພ້ອມກັບຄໍາສັ່ງ, ໃຊ້ການໂຕ້ຖຽງ pass_args = TRUE ໃນຫນ້າທີ່ CommandHandler(), ແລະໃນເວລາທີ່ສ້າງວິທີການ, ນອກເຫນືອໄປຈາກການໂຕ້ຖຽງທີ່ຕ້ອງການ bot, ການປັບປຸງ ສ້າງທາງເລືອກຫນຶ່ງ - ໂຕ້ຖຽງ. ວິທີການທີ່ສ້າງຂຶ້ນດ້ວຍວິທີນີ້ຈະຍອມຮັບພາລາມິເຕີທີ່ທ່ານສົ່ງກັບ bot ຫຼັງຈາກຊື່ຄໍາສັ່ງ. ພາລາມິເຕີຕ້ອງຖືກແຍກອອກໂດຍຊ່ອງຫວ່າງ; ພວກມັນຈະຖືກສົ່ງໄປຫາວິທີການເປັນ vector ຂໍ້ຄວາມ.

ໃຫ້ເປີດຕົວແລະທົດສອບ bot ຂອງພວກເຮົາ.

ດໍາເນີນການ bot ໃນພື້ນຫລັງ

ຂັ້ນຕອນສຸດທ້າຍທີ່ພວກເຮົາຈໍາເປັນຕ້ອງເຮັດສໍາເລັດແມ່ນເພື່ອເປີດຕົວ bot ໃນພື້ນຫລັງ.

ເພື່ອເຮັດສິ່ງນີ້, ປະຕິບັດຕາມ algorithm ທີ່ອະທິບາຍຂ້າງລຸ່ມນີ້:

1. ບັນທຶກລະຫັດ bot ກັບໄຟລ໌ທີ່ມີນາມສະກຸນ R. ເມື່ອເຮັດວຽກຢູ່ໃນ RStudio, ນີ້ແມ່ນເຮັດຜ່ານເມນູ ເອກະສານ, ທີມງານ ບັນທຶກເປັນ ....
2. ເພີ່ມເສັ້ນທາງໄປຫາໂຟເດີ bin, ເຊິ່ງຢູ່ໃນໂຟນເດີທີ່ເຈົ້າຕິດຕັ້ງພາສາ R, ໄປຫາຕົວແປ Path, ຄໍາແນະນໍາ. ທີ່ນີ້.
3. ສ້າງໄຟລ໌ຂໍ້ຄວາມປົກກະຕິທີ່ຂຽນ 1 ແຖວ: R CMD BATCH C:UsersAlseyDocumentsmy_bot.R. ແທນ​ທີ່ C:UsersAlseyDocumentsmy_bot.R ຂຽນເສັ້ນທາງໄປຫາ bot script ຂອງທ່ານ. ໃນເວລາດຽວກັນ, ມັນເປັນສິ່ງສໍາຄັນທີ່ບໍ່ມີຕົວອັກສອນ Cyrillic ຫຼືຊ່ອງຫວ່າງຕາມທາງ, ເພາະວ່າ ນີ້ອາດຈະເຮັດໃຫ້ເກີດບັນຫາໃນເວລາແລ່ນ bot. ບັນທຶກມັນ, ແລະປ່ຽນແທນສ່ວນຂະຫຍາຍຂອງມັນດ້ວຍ txt ສຸດ bat.
4. ເປີດຕົວກຳນົດເວລາໜ້າວຽກ Windows, ມີຫຼາຍວິທີໃນການເຮັດສິ່ງນີ້, ຕົວຢ່າງ, ເປີດໂຟນເດີໃດກໍໄດ້ ແລະ ໃສ່ທີ່ຢູ່ %windir%system32taskschd.msc /s. ວິທີການເປີດຕົວອື່ນໆສາມາດພົບໄດ້ ທີ່ນີ້.
5. ໃນເມນູຂວາເທິງຂອງຕາຕະລາງ, ໃຫ້ຄລິກໃສ່ "ສ້າງຫນ້າວຽກ ... ".
6. ໃນແຖບ "ທົ່ວໄປ", ໃຫ້ຫນ້າວຽກຂອງທ່ານເປັນຊື່ທີ່ກໍາຫນົດເອງ, ແລະປ່ຽນສະຫຼັບກັບສະຖານະ "ແລ່ນສໍາລັບຜູ້ໃຊ້ທັງຫມົດ".
7. ໄປທີ່ແຖບ "ປະຕິບັດ", ໃຫ້ຄລິກໃສ່ "ສ້າງ". ໃນພາກສະຫນາມ "Program ຫຼື script", ໃຫ້ຄລິກໃສ່ "Browse", ຊອກຫາທີ່ສ້າງຂຶ້ນໃນຂັ້ນຕອນທີສອງ bat ໄຟລ໌ແລະກົດ OK.
8. ກົດ OK ແລະ, ຖ້າຈໍາເປັນ, ໃສ່ລະຫັດຜ່ານສໍາລັບບັນຊີລະບົບປະຕິບັດການຂອງທ່ານ.
9. ຊອກ​ຫາ​ວຽກ​ງານ​ທີ່​ສ້າງ​ຕັ້ງ​ຂຶ້ນ​ໃນ​ກໍາ​ນົດ​ເວ​ລາ​, ເລືອກ​ມັນ​ແລະ​ຄລິກ​ໃສ່​ປຸ່ມ "Run​" ໃນ​ແຈ​ລຸ່ມ​ຂວາ​.

bot ຂອງພວກເຮົາເຮັດວຽກຢູ່ໃນພື້ນຫລັງແລະຈະເຮັດວຽກຈົນກວ່າທ່ານຈະຢຸດວຽກ, ຫຼືປິດ PC ຫຼືເຄື່ອງແມ່ຂ່າຍຂອງທ່ານທີ່ມັນຖືກເປີດຕົວ.

ສະຫລຸບ

ໃນບົດຄວາມນີ້, ພວກເຮົາໄດ້ຄິດວິທີການຂຽນ bot ເຕັມຮູບແບບທີ່ບໍ່ພຽງແຕ່ສາມາດສົ່ງຂໍ້ຄວາມ, ແຕ່ຍັງຕອບສະຫນອງກັບຂໍ້ຄວາມທີ່ເຂົ້າມາແລະຄໍາສັ່ງ. ຄວາມຮູ້ທີ່ໄດ້ຮັບແມ່ນພຽງພໍແລ້ວເພື່ອແກ້ໄຂບັນຫາສ່ວນໃຫຍ່ຂອງເຈົ້າ.

ບົດຄວາມຕໍ່ໄປຈະເວົ້າກ່ຽວກັບວິທີການເພີ່ມແປ້ນພິມໃສ່ bot ສໍາລັບການເຮັດວຽກທີ່ສະດວກກວ່າ.

ຈອງຂອງຂ້ອຍ telegram и youtube ຊ່ອງ.

ແຫຼ່ງຂໍ້ມູນ: www.habr.com