Im vorherigen Beitrag haben wir herausgefunden, wie ein Bot erstellt wird, eine Instanz der Klasse initialisiert und uns Botmit den Methoden zum Senden von Nachrichten vertraut gemacht.

In diesem Artikel setze ich dieses Thema fort. Ich empfehle daher, diesen Artikel erst nach dem Lesen des ersten Teils zu lesen .

Dieses Mal werden wir herausfinden, wie wir unseren Bot wiederbeleben und Befehlsunterstützung hinzufügen sowie die Klasse kennenlernen können Updater.

Im Verlauf des Artikels werden wir mehrere einfache Bots schreiben, wobei letztere gemäß einem bestimmten Datum und Ländercode bestimmen, ob ein Tag in einem bestimmten Land ein Wochenende oder ein Arbeitstag gemäß dem Produktionskalender ist. Der Zweck dieses Artikels besteht jedoch nach wie vor darin, Sie mit der Paketschnittstelle telegram.botzur Lösung Ihrer eigenen Probleme vertraut zu machen .

Alle Artikel aus der Reihe "Schreiben eines Telegrammbot in der Sprache R"

1. Wir erstellen einen Bot und senden damit Nachrichten an das Telegramm
2. Fügen Sie dem Bot Befehlsunterstützung und Nachrichtenfilter hinzu
3. So fügen Sie Ihrem Bot Tastaturunterstützung hinzu
4. Aufbau eines konsistenten, logischen Dialogs mit dem Bot
5. Verwaltung der Bot-Benutzerrechte

Inhalt

telegram youtube . R.

1. Updater
2. Handlers —
3. ,

Updater

Updater — , , Dispetcher. Updater , ( getUpdates()), Dispetcher.

Dispetcher , .. Handler.

Handlers —

Dispetcher . telegram.bot :

• MessageHandler —
• CommandHandler —
• CallbackQueryHandler — Inline
• ErrorHandler —

,

, , , / .

, .. /hi.

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()

, ' ' , BotFather ( ).

start_polling() Updater, , .

, /hi.

/hi, .

.

1. Updater;
2. , .. . say_hello(). , — bot update, — args. bot, , , , . update , , , getUpdates(). args , ;
3. , .. - . , - . /hi, hi_hendler <- CommandHandler('hi', say_hello). CommandHandler() , hi, . , say_hello, ;
4. Updater. , , +, .. updater <- updater + hi_hendler. add_handler(), Dispatcher, : updater$dispatcher$add_handler();
5. start_polling().

, , , - , . — MessageHandler.

MessageHandler . . /hi, , : , , , , .

- , .. . .

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()

, ' ' , BotFather ( ).

, :

, , . reply_to_message_id, sendMessage(), id . id : update$message$message_id.

, — BaseFilter():

#  
MessageFilters$hi <- BaseFilter( 

  #   
  function(message) {

    # ,       
    grepl(x           = message$text, 
          pattern     = '||||',
          ignore.case = TRUE)
  }

)

, MessageFilters, . MessageFilters hi, .

BaseFilter() . , — , TRUE FALSE. , , grepl() , |||| TRUE.

hi_txt_hnd <- MessageHandler(say_hello, filters = MessageFilters$hi). MessageHandler() — , , — . MessageFilters$hi.

, , hi_txt_hnd.

updater <- updater + 
             hi_hendler +
             hi_txt_hnd

, telegram.bot MessageFilters , :

• all —
• text —
• command — , .. /
• reply — ,
• audio —
• document —
• photo —
• sticker —
• video —
• voice —
• contact —
• location —
• venue —
• game —

| — , & . , , :

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

, , . , .

, .

API isdayoff.ru.

library(telegram.bot)

#    Updater
updater <- Updater('  ')

#    
##  
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()

, ' ' , BotFather ( ).

, check_date, .

, , , . , , .

, pass_args = TRUE CommandHandler(), , bot, update — args. , . , .

, .

— .

:

1. R. RStudio File, Save As....
2. bin, R Path, .
3. , 1 : R CMD BATCH C:\Users\Alsey\Documents\my_bot.R. C:\Users\Alsey\Documents\my_bot.R . , , .. . , txt bat.
4. Windows, , %windir%\system32\taskschd.msc /s. .
5. " ...".
6. "" , " ".
7. "", "". " " "", bat , .
8. , .
9. , "".

, , , .

, , . .

, , .

telegram youtube .