Ð áŠáµ á¥ááŽáµ ááá á á¥áá°áááœá á ááááᣠášáááá áá³á á áµááášááᢠBot á¥á á¥á±á á áá áá ááááá¶áœá ášááá ááŽááœá á áá
á á«áá
áá áá¢
á áá áœáá ááµá¥ áá á áááµ á¥áá¥ááá, áµááá áá á áœáá ááá ᥠá¥áá²ááá© á¥ááá«áá á«áá á¡ á áá á¥á» .
á áá
áá áŠá³áœáá á¥ááŽáµ áá°áµ á¥áá°áááœá á¥á á á¥á± áá ášáµááá áµáá á¥áá°ááášáá á¥á á¥áá²áá ášááá áá áá°ááá
á¥ááœáááᢠUpdater.
á á ááá¹ áá°áµ ááµá¥ á¥á ááá áŠá¶áœá á¥ááœááá ᣠášáááá á°áá á á°á°á á áá á¥á ášá áá á®áµ áá ášáµ ᣠá á ááµ ááá ááµá¥ á ááµ áá á
á³áá á¥ááµ ááá á á áá«áœ ášáá ááá áªá« áá ášáµ ášáµá« áá áááá áááµáá ᢠáá ᣠáá á¥áá°á áᱠᣠášáœáá ááá ášá¥á
á á áááᜠáá á¥ááµáá ááá
ááᢠtelegram.bot ášá«áµáá áœáá®áœ áááá³áµ.
ášá°ášá³á³á© ááá áá£á¥áᜠ"ášáŽááá«á áŠáµ á R ááµá¥ áá»á"
ááá¶áœ
ášááᥠáµáá°á áá ááááµ á«ááµ ášá¥áá áááá ááœáá О á»áááœ. á á¥ááá ááá± á R ááá ášá°áá°á ááá¢
áááá ááá
Updater ášáŽááá«á áŠáµá áááµá«áµ ááá ášáá«á°áááá ááá áá á¥á áááá ášá®áµ á á³áœ áá ááá Dispetcher. ááá áá°á£ Updater áš bot áááááœá ááá á áá (á áá°áá áœáá ááµá¥ ááá
ááá ááŽáá á°á á
ááá á³á getUpdates()), á¥á áá° á°ášá᪠á«áµá°ááááážá Dispetcher.
á á°á«á Dispetcher á¥ááµá ášáá á©áµá á°áá£á£áªáᜠáááᣠáááµá. ášáá°á¥ á¥ááᜠHandler.
á°áá£á£áªáᜠ- á°áá£á£áªááœ
ášáášáá©áµ á°áá£á£áªáᜠáá Dispetcher áá°áá«á© ááµá°á¶áœ bot áááŸáœá¢ áá
áá áœáá á ááœáá áµ áá á¥.á€.á telegram.bot ášáášá°ááµ á áááµ á°áá£á£áªáᜠá°ášáášááá¡
- MessageHandler - ááá¥ááµ á°áá£á£áª
- CommandHandler - ášáµá¥áá á°áá£á£áª
- CallbackQueryHandler - ášááµá¥ ááµáá ášá°áá© ášááá á°áá³áᜠááᥠá°áá£á£áª
- ErrorHandler - ášáŠáµ áááááœá á²á áá ášáµá á°áµ á°áá£á£áª
ášááááªá«áá áµá¥áá áá° áŠáµ ᣠášáµá¥áá á°áá£á£áª á«áá
ášáá
á ááµ áŠá¶áœá á°á á
áá
ášáá³áá
ášáá á¥á áµááá áá á¥áá°áá ášáá³áá
ášááᣠáá° áŠáµ áµá¥ááᜠáá°ááµ slash á áá áá ááá á áá£ážáᢠ/ á¥áá° á
áµá á
á¥á«.
á ááá áµáááᜠá¥áááá«áá, áááµá. á áµá¥áá áá á°áá ááááµ ášáá áŠáµ á¥ááµá°áá /hi.
á®áµ 1á¡ áŠá±á á°áá ááááµ ááµá°áá
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 TOKEN' á áá°á«áµ áŠáµá á£áµ (áŠáµ ááµá¥ áµáááá á á°áááá©á¢ ).
áᎠstart_polling() á°ášá Updaterá á®á± áášášá» áá á¥á
á áá ášáááá ášáŠáµ áá»á»á«ááœá ášáá ášá
á¥á ášááµá¬áµ áááá« ášááá áá°áµ áááá«áá¢
á áá áŽááá«áá á¥áášááµ á¥á ášááááªá«áá áµááá áá° áŠá³áœá á¥ááá /hi.
á áá ášá¥á áŠáµ áµáááá á°ášáµá·á /hiá¥á á°ááá³ á¥ááŽáµ á¥áá°áá°á á á«áááá¢
á áµááá°-áá³ á¥áá²á áááá±á ááá áŠáµ ášáááá£áµ áá°áµ á¥áá°áášá°áá áááá ááœáá.
- ášáááá áá³á ááá á©
Updater; - ááŽááœá á¥ááá¥á«áá, áááµá. ášá¥á áŠáµ ášáá«ášáááážá á°áá£á«áµá¢ á á®á± áá³á áá
á°áá£á ááá¢
say_hello(). á¥áá° áŠáµ ááŽáᜠášáá ááá£ážá á°áá£á«áµ áááµ á áµááá áááá®áœ ááá«ážá ááá£á - Bot О áááá¥á á ááµ á áá«á - ááµá¶áœ. áááá Bot, áá ášá¥ááµá áŠáµ áá, á á¥á± á¥áá³á³ áááá¥áá¶áœ ááᜠááµá áµ, ááááá¶áœá ááá ááá ááŠá± ášááá ááᜠááŽááœá áá áá ááœáá. áááá ááá áá áŠáµ ášá°á ááá ášá°áá áá áá, á á¥ááá±, ááŽáá á áá áá á ááááªá«á áœáá ááµá¥ ášá°áá ááágetUpdates(). áááá ááµá¶áœ á á°á ááá ášá°áášáá á°ášá᪠áášá ášáµá¥áá áá á¥áá²á«á«áá± ááá áµááá³á ᣠáµáᜠááá°á áá°áá áááµ á¥áááá³áá ᢠ- á°áá£á£áªááœá á¥ááá¥á«áá, áááµá. á áá³ááµ ášá°á áá á¥áááááœá á£ááá á°ášá ášá°áá á©áµ ááŽáᜠáá á¥áá«ááážáááᢠá áá°ášá±á£ á°áá£á£áª ááµá
Ꭰááᣠá áá³ááµ ášáŠáµ á°áá£áá ášáá á« ááµá°áµ ááᢠá á¥á áá³á, á¥áá²á
áááá± ááµá
Ꭰáµááá ááá áá
/hi, á¥á á á¡áµá ášá°á°áá áš ááhi_hendler <- CommandHandler('hi', say_hello). ášááááªá« á°áá£á ááááCommandHandler()á á¥á ááá³, áµááá á¥áá²ááá¹ á«áµáœááá³áhi, ášáµáá áŠáµ ááᜠáá°á£á. ááá°áá áááá ášáŠáµ ááŽá á¥áá²ááá¹ á«áµáœááá³á, ááŽáá á¥áá á«ááásay_hello, á°á ááá á ááááªá«á áá᪠á¥áŽáµ ááµá¥ ášá°ááážáá áµááá ášá á« ášááááá; - á ááá á, ášá°áá ášáá á°áá£á£áª áá° ááááœá áá³á á᪠á¥áášáá«áá
Updater. á°áá£á£áªááœá á á áá«á³ áááá¶áœ áášá ááœáá ᣠášáá á£áá áá³á ᣠáááá±á á áá áá áááá á°á ááá©+áááµá,updater <- updater + hi_hendler. ááŽáá á áá áá á°áá³á³á ááá ááµášá áá»ááadd_handler(), áá á ášááá ááDispatcher, áá á áᎠá¥áá°áá ááááµ ááœáá:updater$dispatcher$add_handler(); - áµáááá á áá áá áŠá±á á«áµááá©
start_polling().
ášáœáá ááá¥ááµ áá®á°á°á á¥á áá£áªá«ááœ
áµááááœá áá° áŠáµ á¥ááŽáµ á¥áá°ááá á áááá, ááá áá á áá³ááµ áá ááµá¥ááᜠá¥á» á³ááá áá áá³ááµ áá°á á ášáœáá ááá¥áá¶áœ ááᜠáááµá áµ áŠáµ á¥áááááá. áá áá áááµášá ášááá¥ááµ ááá£á áªá«ááœá áá áá á«áµááááá³á - ááá¥ááµ ááá°ááá.
ášá°ááá° ááá¥ááµ ááá°ááá áááá áᢠááá¥áá¶áœ áá¹á ááᜠáá°á£áᢠáµááá
ášááá¥ááµ á°áá£á£áªáᜠá¥ááá áá ášáá£áªá«áᜠáá á á¥ášá á¥á
á áá ááááᢠáŠáµ á áµááá áá á¥á» á³ááá á°áá á¥áá²á á¥ááµá°áášá /hi, áá á°áá ášáášá°ááµ áááµ ááµá¥ á áá± ááŠá± á á°áášá ááá¥ááµ ááµá¥ á áá³áá áµ áá áá: á°áá, á áá, á°ááá³, áá, áŠááá.
áá áá ááá á á²áµ ááŽááœá á ááœáá, áááá«á±á ... áŠáµ á°ááá³ ášáá°á áá áµ áᎠááµááá á ááᢠá¥á ááµášá á«áá¥á á áµááááá áá£áªá« á¥á ášááá¥ááµ á°áá£á£áª ááá á á¥á» ááá¢
á®áµ 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 TOKEN' á áá°á«áµ áŠáµá á£áµ (áŠáµ ááµá¥ áµáááá á á°áááá©á¢ ).
á áá ášáá
áá°á ášá°áášáá©áµá ášá°ááá³ áááµ ášá«á á¥á ááááá¶áœá áááá á¥ááááá¡-
áµááá
á ááááªá« á°ášá áŠáµ á áµá°áášá á°áá ááááµ á¥á» á³ááá áá°ááá³ ááᜠá¥áá²á°á¥ ááᢠáá
áá á«á°ášááá áááá©á á áá áá ááᢠáááá¥ááµ_áá³ááá«_áááµ, á áᎠááµá¥ ášááá sendMessage()ááᜠááµá áµ ášáááááµ ášááá¥áá±á áá³ááá« áá°áá« ááµá°ááá á«áµááááá³áᢠášááá¥ááµ áá³ááá«áá á¥áá°áá
ááááµ ááœááá¡- update$message$message_id.
ááá áá á¥á á«á°ášááá ááá ááá á°áá£á©á á áá áá áá° áŠáµ áá£áªá« áášá áá BaseFilter():
# ÑПзЎаÑÐŒ ÑОлÑÑÑÑ
MessageFilters$hi <- BaseFilter(
# Ð°ÐœÐŸÐœÐžÐŒÐœÐ°Ñ ÑОлÑÑÑÑÑÑÐ°Ñ ÑÑМкÑОÑ
function(message) {
# пÑПвеÑÑеЌ, вÑÑÑеÑаеÑÑÑ Ð»Ðž в ÑекÑÑе ÑППбÑÐµÐœÐžÑ ÑлПва пÑОвеÑÑÑвОÑ
grepl(x = message$text,
pattern = 'пÑОвеÑ|зЎÑавÑÑвÑй|ÑалÑÑ|Ñ
ай|бПМжÑÑ',
ignore.case = TRUE)
}
)á¥ááµá á¥áá³áµá°áááµá£ á á¥áá áá áá£áªá«áᜠáášáá á áá£ážá ášááá¥ááµ áá£áªá«ááœááááªá« áá áµáᜠááá ášáá áá£áªá«ááœá ášá«áᢠá á¥á áá³á, áá° ááá ášááá¥ááµ áá£áªá«áᜠá ááµ á á«á ášáášááᢠhiáá á á²áµ áá£áªá« ááá¢
áááµá«áµ BaseFilter() ášáá£áªá«áá á°áá£á ááá á«áµááááá³á. á áá ášá±á£ áá£áªá« ášááá¥ááµ áá³á á°áá¥á ášááááµ á°áá£á ááᢠá¥áááµ ááá FALSE. á áá³áá áœá, áá°ášá³á á°áá£á©á á áá áá ááá á°áá£áá áœááá grepl() ášááá¥ááµ á
ááá áááµá»á á¥á ášáá°á áá á áááᜠáá ášááááµ ášáá пÑОвеÑ|зЎÑавÑÑвÑй|ÑалÑÑ|Ñ
ай|бПМжÑÑ áááá³á á¥áááµ.
á ááá á ášááá¥ááµ ááá£á áªá« á¥ááá¥á«áá hi_txt_hnd <- MessageHandler(say_hello, filters = MessageFilters$hi). ášááááªá« á°áá£á áááá MessageHandler() á°áá£á£áªáá ášáá á«á áᎠá²áá ááá°áá áááá ášáá á«á áµ áá£áªá« áá. á á¥á ááá³, áá
á¥á ášáá ááá áá£áªá« áá MessageFilters$hi.
á°á á, á áášášá», ášá°áá ášáá á°áá£á£áª áá° ááªá á¥áášáá«áá á°áá_txt_hnd.
updater <- updater +
hi_hendler +
hi_txt_hndášáá á¥áá°á»áá©áµ á á¥á
á ááµá¥ telegram.bot á¥á á¥á ášááá¥ááµ áá£áªá«áᜠáá ááá£ážá ášááœááµ á á¥á®ááᥠáá£áªá«áᜠá áµááµá á áá¢
- ááá - ááá ááááá¶áœ
- áœáá - ášáœáá ááááá¶áœ
- áµááá - áµááááœ, áááµá. ášáááá© ááááá¶áœ
/ - áááµ - ááá ááá¥ááµ ááᜠášáá ááá¥áá¶áœ
- áŠá²á® - ášáµáᜠááá ášá«á ááá¥áá¶áœ
- á°ááµ - ášá°ááš á°ááµ á«áážá ááááá¶áœ
- áᶠ- ášá°áá© ááµáᜠá«áážá ááááá¶áœ
- á°áá£á - ášá°ááš á°áá£á á«áážá ááááá¶áœ
- áªá²á® - ášáªá²á® áá ááááá¶áœ
- áµáᜠ- ášáµáᜠááááá¶áœ
- á¥ááá« - ášá°á áááá ášáŽááá«á áááµ ášá«á ááááá¶áœ
- á á«á£á¢ - ášááŠáá«áá«á á á«á£á¢ áá ááááá¶áœ
- áŠá³ - ášá°ááá ááááá¶áœ
- ášáá³ - ášáá³ááœ
á á ááµ á°áá£á£áª ááµá¥ á áá³ááµ áá£áªá«ááœá ááááµ ášááá áááá±á á¥á» áá áá | - á¥áá° á áááá®á á ááá, á¥á áááá & á¥áá° á áááá®á á Ð. ááá³áᣠáŠáµ áªá²á®á£ ááµá ááá á°ááµ á²á°áá°á á°áá³á³á áᎠá¥áá²á á«á ášáááᣠášáááááµ á°áá£á£áª áááá á ášáášá°ááá áá³á áá ááá¢
handler <- MessageHandler(callback,
MessageFilters$video | MessageFilters$photo | MessageFilters$document
)ášáá«ááµá®áœ áá áµááááœá áášá
áµá¥ááᜠáá á¥áá°áá, á¥ááŽáµ á¥áá°ááá á© á¥á áŠáµ ášáááááá áµááá á¥áá²ááœá á¥ááŽáµ ááµáá°áµ á¥áá³áá¥á á áµááµáá á áááá. áá á á áá³ááµ ááá³ááœ, ášáµááá áµá á á°ášááª, á¥á±á áááµáážá á áá³ááµ áášáááœá ááá á áá¥á.
ášáá á á³áœ ášá°áá°á áá á¥á ááá ášá°á°á á ášáá á áááµ ášáááµ á«ááá°á ášááááµ ášáŠáµ áá³á ááá¢
ášá³áœ á«áá áŠáµ ášáááµ áá ááá áªá« á€áá á áá ááá .
á®áµ 3: áá á¥á á áá ášáááá á Bot
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 TOKEN' á áá°á«áµ áŠáµá á£áµ (áŠáµ ááµá¥ áµáááá á á°áááá©á¢ ).
á áŠá áá£áªá«á ááµá¥ á ááµ áᎠá¥á» á«áá áŠáµ áá ááᢠcheck_date, áá
áᎠá á°áá³á³á© áµá áµááá áá£áá.
ááá áá, ášáµááá áµá á á°ášááª, áá áᎠáááµ áá€á¶áœá, ášá áá á®áµ á¥á ááá á¥áá²á«áµáá¡ áá ááá. á ááá á áŠáµ á á°á áá°á ááá ááµá¥ ášá°á°á á áá á á³áá á¥ááµá£ á áá áá ááá ášáµá« áá áááá á áááá ášáááµ á«ááá°á á«ášááá£áá¢
ášáááá¥ášá áᎠášáµá¥áá áá á°ášá᪠áááªá«ááœá áááá á, áááá©á áá áá pass_args = TRUE á°áá£á ááµá¥ CommandHandler(), á¥á ááŽá á ááá¥á©á áµ áá, ášáá«áµááááµ áááá®áœ á á°ášá᪠Bot, ááá á áá«á ááá á© - ááµá¶áœ. á áá
ááááµ ášá°áá ášá áᎠášáµááá áµá á áá áá° áŠáµ ášáá«áµá°ááááµá áááªá«áᜠááá áá. áááªá«áá¹ á áŠá³ ááá«ášáµ á áá£ážáဠáá° ááŽá á¥áá° áœáá á¬áá°á ááá«áá¢
áŠáµáœáá á¥áááá á¥á á¥ááááá¢
áŠáµ ášá áµá°ááᣠá«áá±
áá ááá á«áá¥á ášáášášá»á á°ášá áŠáµ ášá áµá°ááᣠááµááá ááá¢
áá áá áááµášá ášáá á á³áœ ášá°ááážáá áµáá° ááá áášá°áá¢
- ášáŠáµ á®á±á ášá á¥á«á áá áá° ááá á«áµááá¡ R. á RStudio ááµá¥ á²á°á©, áá á áááá á á©á áášáááá. ááá, á¡áµá á áµááᥠá¥áá°âŠ.
- áááá±á áá° á¢á ááá°á á ááᣠá¥á±á á á°á«á á°áá R áááá á á«ááá áµ á áá ááµá¥á£ áá° ášáááá± á°ááááᣠáááªá«áᜠ.
- 1 ááµáá ášááœáá áµ áá°á á ášáœáá ááá ááá á©á¡-
R CMD BATCH C:UsersAlseyDocumentsmy_bot.R... áááááµ áá¡á°á ááááœAlseyDocumentsmy_bot.R áá° áŠáµ áµááªááµá ášáááµá°áá ááááµ áááᢠá á°áá³á³á áá, á ááááµ áá ááá ášá²áªáá ááááᜠááá ááá°á¶áœ ááá«ážá á áµááá áá, áááá«á±á áá áŠáµ á áá á«á áµ áá áœáá áá«áµášáµá ááœáá. á«áµááá¡áµ á¥á á á¥á«áá á txt áá ášáááµ áá. - ášááá¶ááµ á°áá£á ááááá¥áá áááá±, áá
áá áááµášá á¥á áááá¶áœ á á, ááá³á, áááááá á áá áááá± á¥á á áµá«á»áá á«áµáá¡
%windir%system32taskschd.msc /s. ááᜠášááµáá» ááŽáᜠááá ááœáá . - á ááááá¥á á ááªá ášáááá áá ááá ááµá¥ "á°áá£á áá á ..." ášáááá á á á«áµáá.
- á "á á ááá" áµá áá áá°áá£áá á¥á áµá ááµá¡ á¥á áá¥áªá«á áá° "ááá á°á áááᜠá ááµ" ááá³ áááá©áµá¢
- áá° "á¥áááááœ" áµá ááá±, "áá á" á á á á«áµáá. á "áá®áá«á ááá áµááªááµ" ááµá ááµá¥ "á áµáµ" ášáááá áá«á, á ááá°áá á°ášá ášá°áá ášáá á«áá ášáááµ áá ááá á«áµáá á¥á á¥áºá á á á«áµááá¢
- á¥áºá á á á«áµáá á¥á á áµááá ášáá ááµááá° ááá ááá«á ášááá áá á«áµáá¡á¢
- ášá°áá ášáá á°áá£á á áá á°áá³á ááµá¥ áááá, ááášá¡áµ á¥á ášá³áœ á áá á¥á áá á«ááá "á ááµ" áááá á á á«áµáá.
ášá¥á áŠáµ ášá áµá°ááᣠáá°á«á á¥á áµá«áá á¥áµáªá«áá áµášáµ áá°á«á ááá ášá°ášáá°á áµá áá²áá ááá á áááááá á«á¥áá¢
áá°áá°áá«
á áá áœáá ááµá¥ ááááá¶áœá ááá á¥á» á³ááá ááᢠááá¥áá¶áœ á¥á áµáááᜠááᜠááµá áµ ášááœá áá áŠáµ á¥ááŽáµ á¥áá°ááá á áááá. á«áááµ á¥áááµ á á¥áááá¹á áœáá®áœáá áááá³áµ á á ááá¢
ášááá¥áá áááµ áá áá áá¹ áµá« ášááá á°áá³á áá° áŠáµ á¥ááŽáµ á¥áá°áášáá á¥ááááá«áá.
ášá¥áá ááááᡠО á»áááœ.
ááá: hab.com