Telegram ááááááºááẠáá±á·á ááºááŸáá·áºá¡áá»áŸ ááá¯ážááœá¬ážáá¬áá±áááºá áááºážááᯠmessenger á á¡áááºááŒá±ááŸá¯á áá»ááºáááºáá»á¬ážá áá»ááºáááºáá»á¬ážááŸáá·áº bots áááºáá®ážááá¯ááºááŸá¯ááá¯á·ááŒá±á¬áá·áº áá¶á·ááá¯ážáá±ážáá«áááºá
áá±á¬á·ááºáá»á¬ážááᯠááá·áºáá±á¬ááºáááºáá»á¬ážááŸáá·áº á¡ááá¯á¡áá»á±á¬áẠáááºááœááºááŸá¯ááŸááẠááá·áºááá¯ááºááá¯ááºá¡áá¯ááºáá»á¬ážááᯠá á®áá¶ááá·áºááœá²ááŒááºážá¡áá áá¯á¶ážáááœá²ááŒá¬ážááŒá¬ážáá¬ážáá±á¬áááºááœááºáá»ááºáá»á¬ážá¡ááœáẠá¡áá¯á¶ážááŒá¯ááá¯ááºáááºá
á¡ááŒá±áá¶á¡á¬ážááŒáá·áºá áááºááẠáááºáá®ááááºááᯠá¡áá¯á¶ážááŒá¯á bot áá áºáá¯ááŸáá áºááá·áº áááºááá·áºáá¯ááºáá±á¬ááºáá»ááºáá»á¬ážááá¯áááᯠáá¯ááºáá±á¬ááºááá¯ááºáááº- áá±áá¬áá±ážááá¯á·ááŒááºáž ááá¯á·ááá¯áẠáá±á¬ááºážááá¯ááŒááºážá áá¬áá¬áá±á«áºááœáẠáá¯ááºáá±á¬ááºá áá¬áá»á¬ážááᯠáá¯ááºáá±á¬ááºááŒááºážá áá±áá¬áá±á·á áºáá áºáá¯ááá¯á· á¡áá»ááºá¡áááºáá»á¬ážá á¯áá±á¬ááºážááŒááºážá á¡á®ážáá±ážááºáá»á¬ážáá±ážááá¯á·ááŒááºáž á¡á ááŸááááºááá¯á·ááᯠáá¯ááºáá±á¬ááºááá¯ááºáááºá
áááºááá¯á¡áá¯ááºáá¯ááºáááá²ááá¯áá²á· áá±á¬ááºážáá«ážááœá± áááºááá¯ááºáá±ážááá¯á· á á®á ááºáá¬ážáá«áááºá áááºáááá¯á¡ááºáá»ááºáá»á¬ážááŸáá·áºááá¯ááºáá®á á±ááẠáá±á¬á·ááºáá»á¬ážáá±ážáá«á
á€ááááá±á¬ááºážáá«ážááœáẠáá»áœááºá¯ááºááá¯á·ááẠáááºáá®áááẠáá±á¬á·ááºáá áºáá¯ááᯠáááºáá®ážááŒá®áž áááºáá®ááááºááŒáá·áº á¡áááá±ážáá»ááºáá»á¬ážááᯠáá±ážááá¯á·ááẠáááºážááá¯á¡áá¯á¶ážááŒá¯áááºážááᯠá¡ááŒá±ááŸá¬áá«áááºá
ááááºá¡áá±ááŒáá·áºá Windows Task Scheduler ááŸá á¡áá¯ááºáá»á¬ážá¡á¬ážáá¯á¶ážá áá±á¬ááºáá¯á¶ážáá¯ááºáá±á¬ááºááŸá¯á¡ááŒá±á¡áá±ááᯠá á áºáá±ážááá·áº bot áá áºáá¯ááŸááááºááŒá áºááŒá®áž áááºážááá¯á·áá²á០áá áºá á¯á¶áá áºáᬠáá¡á±á¬ááºááŒááºáá«á ááá·áºá¡á¬áž á¡ááŒá±á¬ááºážááŒá¬ážáá»ááºáá»á¬ážááᯠáá±ážááá¯á·áááºááŒá áºáááºá
áá«áá±ááá·áº áá®áá±á¬ááºážáá«ážá
á®ážáá®ážáá²á· áááºááœááºáá»ááºá áááá»áá»ááºážááŒá±á¬ááºážáá²á· á¡áá¯ááºáá
áºáá¯á¡ááœáẠbot áá
áºáá¯ááᯠáááºááá¯áá±ážáááá²ááá¯áᬠáááºáá±ážááá¯á·ááá¯ááºáá² package áá²á· syntax ááᯠáá±áá¯áá»á¡á¬ážááŒáá·áº ááááºáááºáá±ážááá¯á·áá«á telegram.botááŸáá·áº ááá·áºááá¯ááºááá¯ááºááŒá¿áá¬áá»á¬ážááá¯ááŒá±ááŸááºážááẠbots áá»á¬ážáá±ážáá¬ážááá¯ááºááá·áº áá¯ááºááá°áá¬áá»á¬ážá
á¡ááŒá±á¬ááºážá¡áá¬
áá±áá¬ááœá²ááŒááºážá áááºááŒá¬ááŒááºážááᯠá áááºáááºá á¬ážáá«á áá»áœááºá¯ááºááᯠá áááºáááºá á¬ážáá±áááºá О áá»ááºáááºáá»á¬ážá á¡ááŒá±á¬ááºážá¡áá¬á¡áá»á¬ážá á¯ááẠR áá¬áá¬á áá¬ážá¡ááœáẠáááºááœááºáááºá
áááºáá®áááẠbot áá áºáá¯ááᯠáááºáá®ážááŒááºážá
ááááá¯á¶ážá¡áá±áá²á· bot áá
áºáá¯ááᯠáááºáá®ážááá¯á· ááá¯áá«áááºá áááºážááẠá¡áá°áž bot ááᯠá¡áá¯á¶ážááŒá¯á áá¯ááºáá±á¬ááºáááºá BotFatherááœá¬ážáá«á bot ááá¯á· á
á¬áá±ážáá«á /start.
ááá¯á·áá±á¬ááºááœáẠcommand áá»á¬ážá á¬áááºážááŸáá·áºá¡áá° áááºáá±á·áá»áºáá áºá á±á¬áẠáááºáá¶áááŸááá«áááºá
BotFather áá¶á០á á¬ááá¯
I can help you create and manage Telegram bots. If you're new to the Bot API, please see the manual (https://core.telegram.org/bots).
You can control me by sending these commands:
/newbot - create a new bot
/mybots - edit your bots [beta]
Edit Bots
/setname - change a bot's name
/setdescription - change bot description
/setabouttext - change bot about info
/setuserpic - change bot profile photo
/setcommands - change the list of commands
/deletebot - delete a bot
Bot Settings
/token - generate authorization token
/revoke - revoke bot access token
/setinline - toggle inline mode (https://core.telegram.org/bots/inline)
/setinlinegeo - toggle inline location requests (https://core.telegram.org/bots/inline#location-based-results)
/setinlinefeedback - change inline feedback (https://core.telegram.org/bots/inline#collecting-feedback) settings
/setjoingroups - can your bot be added to groups?
/setprivacy - toggle privacy mode (https://core.telegram.org/bots#privacy-mode) in groups
Games
/mygames - edit your games (https://core.telegram.org/bots/games) [beta]
/newgame - create a new game (https://core.telegram.org/bots/games)
/listgames - get a list of your games
/editgame - edit a game
/deletegame - delete an existing gamebot á¡áá
áºáá
áºáá¯áááºáá®ážáááºá á¡áááá·áºááᯠáá±ážááá¯á·áá«á /newbot.
BotFather ááẠááá·áºá¡á¬áž bot áá¡áááºááŸáá·áº á¡áá±á¬áá·áºáááºááẠáá±á¬ááºážááá¯áááá·áºáááºá
BotFather, [25.07.20 09:39]
Alright, a new bot. How are we going to call it? Please choose a name for your bot.
Alexey Seleznev, [25.07.20 09:40]
My Test Bot
BotFather, [25.07.20 09:40]
Good. Now let's choose a username for your bot. It must end in `bot`. Like this, for example: TetrisBot or tetris_bot.
Alexey Seleznev, [25.07.20 09:40]
@my_test_botáááºááẠáááºááá·áºá¡áááºááá¯áááᯠááá·áºááœááºážááá¯ááºáá±á¬áºáááºáž áá±á¬á·ááºá¡ááºááẠááŒáá·áºá¡áá¯á¶ážáááºááááºááŒá
áºáááºá bot.
á¡á¬ážáá¯á¶ážááᯠááŸááºáááºá áœá¬ áá¯ááºáá±á¬ááºáá²á·áá»áŸáẠá¡á±á¬ááºáá« áááºáá±á·áá»áºááᯠáááŸááááá·áºááẠá
Done! Congratulations on your new bot. You will find it at t.me/my_test_bot. You can now add a description, about section and profile picture for your bot, see /help for a list of commands. By the way, when you've finished creating your cool bot, ping our Bot Support if you want a better username for it. Just make sure the bot is fully operational before you do this.
Use this token to access the HTTP API:
123456789:abcdefghijklmnopqrstuvwxyz
For a description of the Bot API, see this page: https://core.telegram.org/bots/apiááá¯á·áá±á¬áẠáá»áœááºá¯ááºáá¥ááá¬ááœáẠáááºáá¶áááŸááá¬ážáá±á¬ API ááá¯áááºááᯠááá¯á¡ááºáááºááŒá
áºáááºá 123456789:abcdefghijklmnopqrstuvwxyz.
á€á¡ááá·áºááœááºá áá±á¬á·ááºáááºáá®ážááŒááºážá¡ááœáẠááŒáá¯áááºááŒááºáááºááŸá¯ ááŒá®ážááŒá±á¬ááºáááºá
R ááœáẠtelegram bot ááŸáá·áºá¡áá¯ááºáá¯ááºáááºá¡ááœááºáááºáá±á·áá»áºáá áºáá¯ááá·áºááœááºážááŒááºážá
ááá·áºááœáẠR áá¬áá¬á áá¬ážááŸáá·áº RStudio ááœá¶á·ááŒáá¯ážááá¯ážáááºááŸá¯áááºáááºážáá»ááºááᯠááá·áºááœááºážáá¬ážááŒá®ážááŒá áºáááºáᯠáá»áœááºá¯ááºáá°ááá«áááºá áá®ááá¯ááŸááá¯ááºááẠáá«ááá¯ááŒáá·áºááá¯á·ááá«áááºá áááºážááá¯á·ááᯠáááºáááºáááºážá¡áá±á«áºá
Telegram Bot API ááŸáá·áºá¡áá¯ááºáá¯ááºááẠR package ááá¯á¡áá¯á¶ážááŒá¯áá«áááºá .
R ááœáẠáááºáá±á·áá»áºáá»á¬áž ááá·áºááœááºážááŒááºážááᯠáá¯ááºáá±á¬ááºáá»ááºááᯠá¡áá¯á¶ážááŒá¯á áá¯ááºáá±á¬ááºáááºá install.packages()ááá¯á·ááŒá±á¬áá·áºáá»áœááºá¯ááºááá¯á·ááá¯á¡ááºáá±á¬ package ááá¯ááá·áºááœááºážááẠcommand ááá¯á¡áá¯á¶ážááŒá¯áá«á install.packages("telegram.bot").
á¡áá»áá¯ážáá»áá¯ážáá±á¬ packages áá»á¬ážááᯠinstall áá¯ááºááŒááºážá¡ááŒá±á¬ááºáž ááá¯ááá¯áá±á·áá¬ááá¯ááºáá«áááºá .
áááºáá±á·áá»áºááᯠááá·áºááœááºážááŒá®ážáá±á¬ááºá áááºááẠáááºážááᯠáá»áááºáááºááẠááá¯á¡ááºáááº-
library(telegram.bot)R á០Telegram ááá¯á· á á¬ááá¯áá±ážááá¯á·ááŒááºážá
áááºáá®ážáá±á
ááºá¡ááœááºáž áááºááŸááºáá¬ážáá±á¬ áá±á¬á·ááºá¡ááºááᯠá¡áá¯á¶ážááŒá¯á áááºáááºáá®ážáá¬ážáá±á¬ áá±á¬á·ááºááᯠTelegram ááœáẠááœá±á·ááá¯ááºáááºá áá»áœááºá¯ááºáááá
á¹á
ááŸá¬ áááºážááẠáááºáá®ážááŸá¯ááŒá
áºáááºá @my_test_bot.
"Hey bot" áá²á·ááá¯á·áá±á¬ áááºááá·áº bot ááá¯áááᯠáááºáá±á·áá»áºááá¯á·áá«á áá±á¬áá±á¬áááºááœááºá bot ááŸáá·áº ááá·áºáá»ááºá ID ááá¯ááááºá¡ááœáẠáááºážááᯠááá¯á¡ááºáá«áááºá
ááá¯áá»áœááºá¯ááºááá¯á·ááẠR ááœááºá¡á±á¬ááºáá«áá¯ááºááá¯áá±ážáá«á
library(telegram.bot)
# ÑПзЎаÑÐŒ ÑкзеЌплÑÑ Ð±ÐŸÑа
bot <- Bot(token = "123456789:abcdefghijklmnopqrstuvwxyz")
# ÐапÑаÑОваеЌ ОМÑПÑЌаÑÐžÑ ÐŸ бПÑе
print(bot$getMe())
# ÐПлÑÑаеЌ ÐŸÐ±ÐœÐŸÐ²Ð»ÐµÐœÐžÑ Ð±ÐŸÑа, Ñ.е. ÑпОÑПк ПÑпÑавлеММÑÑ
ÐµÐŒÑ ÑППбÑеМОй
updates <- bot$getUpdates()
# ÐапÑаÑОваеЌ ОЎеМÑОÑОкаÑÐŸÑ ÑаÑа
# ÐÑОЌеÑаМОе: пеÑеЎ запÑПÑПЌ ПбМПвлеМОй Ð²Ñ ÐŽÐŸÐ»Ð¶ÐœÑ ÐŸÑпÑавОÑÑ Ð±ÐŸÑÑ ÑППбÑеМОе
chat_id <- updates[[1L]]$from_chat_id()á¡á
ááá¯ááºážááœááºá áá»áœááºá¯ááºááá¯á·ááẠáá¯ááºáá±á¬ááºáá»ááºááŒáá·áº áá»áœááºá¯ááºááá¯á·á bot á á¥ááá¬áá
áºáá¯ááᯠáááºáá®ážáá«áááºá Bot()ááááºá áááŸááá¬ážáá±á¬ ááá¯áááºááᯠá¡ááŒááºážá¡áá¯á¶áá
áºáá¯á¡ááŒá
Ạáááºážááá¯á· áá±ážááá¯á·ááááºááŒá
áºáááºá
ááá¯áááºááᯠáá¯ááºááœáẠááááºážáááºážááẠá¡áá±á¬ááºážáá¯á¶áž á¡áá±á·á¡áá»áá·áºáᯠááá°ááá±á¬ááŒá±á¬áá·áº áááºážááᯠáááºáááºážáá»áẠááááºážááŸááºááœáẠááááºážáááºážááŒá®áž áááºážááᯠáááºááá¯ááºáááºá áááºáá±á·áá»áºááœáẠáá°áááºážá¡ááá¯ááºážááŒá
áºáááºá telegram.bot á¡á±á¬ááºáá«á¡áááºáá»á¬ážá áááºáááºážáá»ááºááŒá±á¬ááºážááœá²ááŸá¯áá»á¬ážááᯠáá¶á·ááá¯ážáá±ážááŸá¯ááᯠá¡áá±á¬ááºá¡áááºáá±á¬áºáá²á·áááº- R_TELEGRAM_BOT_ÐÐЯ_ÐÐКÐÐÐ_ÐÐТÐ... á¡á
á¬áž ÐÐЯ_ÐÐКÐÐÐ_ÐÐТРáááºáá®ážáá¬ááœáẠáááºáááºááŸááºáá¬ážáá±á¬á¡áááºááᯠá¡á
á¬ážááá¯ážáá«á áá»áœááºá¯ááºáááá
á¹á
ááœáẠáááºážááẠááááºážááŸááºáá
áºáá¯ááŒá
áºáááá·áºáááºá R_TELEGRAM_BOT_My Test Bot.
áááºáááºáž áá»áẠááŒá±á¬ááºážáá²ááá¯ááºáá±á¬ áá¯á¶á
á¶áá
áºáá¯ááᯠáááºáá®ážááẠáááºážáááºážáá»á¬ážá
áœá¬ ááŸáááŒá®ážá universal á¡ááŒá
áºáá¯á¶ážááŸáá·áº cross-platform áá
áºáá¯á¡ááŒá±á¬ááºáž ááŒá±á¬ááŒáá«áááºá áááºá home directory ááœááºáááºáá®ážáá« (ááẠcommand ááá¯á¡áá¯á¶ážááŒá¯á áááºážááá¯ááŸá¬ááœá±ááá¯ááºáááºá path.expand("~")) á¡áááºááŒáá·áº á
á¬áá¬ážááá¯áẠ.Renviron. áááºážááᯠcommand ááŒáá·áºáááºáž ááŒá¯áá¯ááºááá¯ááºáááºá file.edit(path.expand(file.path("~", ".Renviron"))).
ááŒá®ážáá»áŸáẠá¡á±á¬ááºáá«á á¬ááŒá±á¬ááºážááᯠáá±á«ááºážááá·áºáá«á
R_TELEGRAM_BOT_ÐÐЯ_ÐÐКÐÐÐ_ÐÐТÐ=123456789:abcdefghijklmnopqrstuvwxyzááá¯á·áá±á¬ááºá áááºááẠáá¯ááºáá±á¬ááºáá»ááºááᯠá¡áá¯á¶ážááŒá¯á áááºáááºážáá»ááºááŒá±á¬ááºážáá²ááŸá¯ááœáẠááááºážáááºážáá¬ážáá±á¬ ááá¯áááºááᯠá¡áá¯á¶ážááŒá¯ááá¯ááºáááºá bot_token(), i.e. áá®ááá¯áá»áá¯áž:
bot <- Bot(token = bot_token("My Test Bot"))áááºážáááºáž getUpdates()áá»áœááºá¯ááºááá¯á·á¡á¬áž bot á¡ááºááááºáá»á¬áž áááá¯ááºá
á±áááºá ááá¯ááá¯áááºááŸá¬á áá°á·áá® ááá¯á·ááá¯ááºáá²á· áááºáá±á·ááºá»á áááºážáááºáž from_chat_id()á áááºáá±á·áá»áºáá±ážááá¯á·áá²á·ááá·áº áá»ááºá ID ááᯠáááºááá°ááœáá·áºááŒá¯áááºá bot á០á
á¬ááá¯áá±ážááá¯á·ááẠဠID ááá¯á¡ááºáá«áááºá
áááºážáááºážááŒáá·áº áááŸááá±á¬ á¡áá¬ááá¹áá¯á០áá»áẠID á¡ááŒáẠgetUpdates() á¡ááŒá¬ážá¡áá¯á¶ážáááºáá±á¬ á¡áá»ááºá¡áááºá¡áá»áá¯á·ááá¯áááºáž áááºáááŸáááá¯ááºáá«áááºá á¥ááá¬á¡á¬ážááŒáá·áºá áááºáá±á·áá»áºááá¯á·áá±á¬á¡áá¯á¶ážááŒá¯áá°á¡ááŒá±á¬ááºážá¡áá»ááºá¡áááºá
updates[[1L]]$message$from$id
[1] 000000000
$is_bot
[1] FALSE
$first_name
[1] "Alexey"
$last_name
[1] "Seleznev"
$username
[1] "AlexeySeleznev"
$language_code
[1] "ru"áá«ááŒá±á¬áá·áº áá®á¡ááá·áºááŸá¬ bot ááá± Telegram áá®ááᯠáááºáá±á·áá»áºááá¯á·ááá¯á· ááá¯á¡ááºáá¬ááœá± á¡á¬ážáá¯á¶ážááŸáááŒá®ážáá¬ážáá«á áááºážáááºážááᯠáá¯á¶ážááŒáá·áºáá¡á±á¬áẠsendMessage()áá»ááºá¡áá¯ááºáá®á áááºáá±á·áá»áºá
á¬áá¬ážááŸáá·áº áááºáá±á·áá»áº á
á¬áá¬ážá¡ááŸááºá¡áá¬áž á¡áá»áá¯ážá¡á
á¬ážááᯠáááºááŒááºáááºážááẠááá¯á¡ááºáááºá Markup á¡áá»áá¯ážá¡á
á¬ážááẠMarkdown ááá¯á·ááá¯áẠHTML ááŒá
áºááá¯ááºááŒá®áž á¡ááŒá±á¬ááºážááŒáá»ááºááŒáá·áº áááºááŸááºáááºá parse_mode.
# ÐÑпÑавка ÑППбÑеМОÑ
bot$sendMessage(chat_id,
text = "ÐÑОвеÑ, *жОÑÐœÑй ÑекÑÑ* _кÑÑÑОв_",
parse_mode = "Markdown"
)Markdown áá±á¬áºáááºáá»ááŒááºáž á¡ááŒá±áá¶á¡áá»ááºáá»á¬áž
- Bold áá±á¬áá·áºááᯠ*- ááŒáá·áº á¡áá¬ážáá±ážáá¬ážáááºá
- á¥ááá¬:
*жОÑÐœÑй ÑÑОÑÑ* - ááááº: áá²ááá·áºáá±á¬áá·áº
- á¥ááá¬:
- á
á¬áá¯á¶ážá
á±á¬ááºážáá»á¬ážááᯠá¡á±á¬ááºá¡ááŸááºáá»á¬ážááŒáá·áº áá±á¬áºááŒáááº-
- á¥ááá¬:
_кÑÑÑОв_ - ááááº: á á¬áá¯á¶ážá á±á¬ááºáž
- á¥ááá¬:
- áááá¯ááááºáá¯ááºááᯠáá®ážáá±á¬ááºážááá¯ážááŒááẠá¡áá»á¬ážá¡á¬ážááŒáá·áº á¡áá¯á¶ážááŒá¯áá±á·ááŸáááá·áº monospace áá±á¬áá·áºááᯠapostrophes áá»á¬ážá¡áá¯á¶ážááŒá¯á áááºááŸááºáá±á¬áºááŒáá¬ážááẠ- `:
- á¥ááá¬- `monospace áá±á¬áá·áº`
- ááááº:
ЌПМПÑОÑОММÑй ÑÑОÑÑ
HTML markup áá±á¬áºáááºáá»ááŒááºážá á¡ááŒá±áá¶áá»á¬áž
HTML ááœááºá áááºááẠáááºáá»á¬ážááœáẠáá®ážáá±á¬ááºážááá¯ážááŒááẠááá¯á¡ááºáá±á¬ á
á¬áá¬ážá á¡á
áááºá¡ááá¯ááºážááᯠááŒá¯á¶áá¯á¶áááááºá á¥ááᬠ<Ñег>ÑекÑÑ</Ñег>.
- <tag> - á¡ááœáá·áº tag
- - á¡ááááºá¡ááŸááºá¡áá¬áž
HTML markup áááºáá»á¬áž
<b>- áá²ááá·áºáá±á¬áá±á¬áá·áº- á¥ááá¬:
<b>жОÑÐœÑй ÑÑОÑÑ</b> - áááẠáá²ááá·áºáá±á¬áá·áº
- á¥ááá¬:
<i>- á á¬áá¯á¶ážá á±á¬ááºáž- á¥ááá¬:
<i>кÑÑÑОв</i> - ááááº: á á¬áá¯á¶ážá á±á¬ááºáž
- á¥ááá¬:
- â ЌПМПÑОÑОММÑй ÑÑОÑÑ
- á¥ááá¬- ЌПМПÑОÑОММÑй ÑÑОÑÑ
- ááááº:
ЌПМПÑОÑОММÑй ÑÑОÑÑ
á á¬áá¬ážá¡ááŒááºá á¡áá°ážáááºážáááºážáá»á¬ážááᯠá¡áá¯á¶ážááŒá¯á á¡ááŒá¬ážá¡ááŒá±á¬ááºážá¡áá¬áá»á¬ážááᯠáá±ážááá¯á·ááá¯ááºáááº-
# ÐÑпÑавОÑÑ ÐžÐ·ÐŸÐ±ÑажеМОе
bot$sendPhoto(chat_id,
photo = "https://telegram.org/img/t_logo.png"
)
# ÐÑпÑавка гПлПÑПвПгП ÑППбÑеМОÑ
bot$sendAudio(chat_id,
audio = "http://www.largesound.com/ashborytour/sound/brobob.mp3"
)
# ÐÑпÑавОÑÑ ÐŽÐŸÐºÑЌеМÑ
bot$sendDocument(chat_id,
document = "https://github.com/ebeneditos/telegram.bot/raw/gh-pages/docs/telegram.bot.pdf"
)
# ÐÑпÑавОÑÑ ÑÑОкеÑ
bot$sendSticker(chat_id,
sticker = "https://www.gstatic.com/webp/gallery/1.webp"
)
# ÐÑпÑавОÑÑ Ð²ÐžÐŽÐµÐŸ
bot$sendVideo(chat_id,
video = "http://techslides.com/demos/sample-videos/small.mp4"
)
# ÐÑпÑавОÑÑ gif аМОЌаÑОÑ
bot$sendAnimation(chat_id,
animation = "https://media.giphy.com/media/sIIhZliB2McAo/giphy.gif"
)
# ÐÑпÑавОÑÑ Ð»ÐŸÐºÐ°ÑОÑ
bot$sendLocation(chat_id,
latitude = 51.521727,
longitude = -0.117255
)
# ÐЌОÑаÑÐžÑ ÐŽÐµÐ¹ÑÑÐ²ÐžÑ Ð² ÑаÑе
bot$sendChatAction(chat_id,
action = "typing"
)á¡á²áá«ááœá±á á¥ááᬠmethod ááá¯áá¯á¶ážáááºá sendPhoto() áááºáá±á·áá»áºááᯠá¡áá¯á¶ážááŒá¯á áááºáááºáá®ážáá¬ážáá±á¬ áá¯á¶á¡ááŒá
Ạááááºážáááºážáá¬ážáá±á¬ ááááºáá
áºáá¯ááᯠááẠáá±ážááá¯á·ááá¯ááºáá«áááºá ggplot2.
Windows Task Scheduler ááᯠá á áºáá±ážááŒááºážááŸáá·áº áá¯á¶ááŸááºááá¯ááºáá±á¬ áááºá á²ááœá¬ážááá·áº á¡áá¯ááºáá»á¬ážá¡ááŒá±á¬ááºáž á¡ááŒá±á¬ááºážááŒá¬ážáá»ááºáá»á¬áž áá±ážááá¯á·ááŒááºáž
Windows Task Scheduler ááŸáá·áº á¡áá¯ááºáá¯ááºááẠáááºááẠpackage ááᯠááá·áºááœááºážááẠááá¯á¡ááºáááºá taskscheduleRááŸáá·áº áá±áá¬ááŒáá·áº á¡áá¯ááºáá¯ááºáá¬ááœáẠá¡áááºááŒá±á
á±áááºá¡ááœáẠáááºáá±á·áá»áºááᯠááá·áºááœááºážáá«á dplyr.
# УÑÑаМПвка пакеÑПв
install.packages(c('taskscheduleR', 'dplyr'))
# ÐПЎклÑÑеМОе пакеÑПв
library(taskscheduleR)
library(dplyr)ááá¯á·áá±á¬áẠfunction ááá¯á¡áá¯á¶ážááŒá¯áá«á taskscheduler_ls() áá»áœááºá¯ááºááá¯á·ááẠáá»áœááºá¯ááºááá¯á·á á¡á
á®á¡á
ááºááœá²áá°áá¶á០á¡áá¯ááºáá»á¬ážá¡ááŒá±á¬ááºáž á¡áá»ááºá¡áááºááᯠáá±á¬ááºážááá¯áá«áááºá function ááá¯á¡áá¯á¶ážááŒá¯ááŒááºážá filter() á¡áá¯ááºáá²á dplyr á¡á±á¬ááºááŒááºá
áœá¬ááŒá®ážááŒá±á¬ááºááŒá®áž áá±á¬ááºáá¯á¶ážááááºá¡ááŒá±á¡áá± 0 ááŸáá·áº 267011 á¡ááŒá±á¡áá±á ááá¯ááºáá±á¬ááºááá±ážáá±á¬ áá¯ááºáá±á¬ááºá
áá¬áá»á¬ážááŸáá·áº áááºááŸááá¯ááºáá±á¬ááºáá±áá±á¬ á¡áá¯ááºáá»á¬ážá
á¬áááºážá០áá»áœááºá¯ááºááá¯á· áááºááŸá¬ážáá«áááºá
# запÑаÑОваеЌ ÑпОÑПк заЎаÑ
task <- task <- taskscheduler_ls() %>%
filter(! `Last Result` %in% c("0", "267011") &
`Scheduled Task State` == "Enabled" &
Status != "Running") %>%
select(TaskName) %>%
unique() %>%
unlist() %>%
paste0(., collapse = "n")áá±áá¬ááŸá¬ task ááᯠáá»áœááºá¯ááºááá¯á·ááœáẠáá¡á±á¬ááºááŒááºáá±á¬ á¡áá¯ááºáá»á¬ážá
á¬áááºážááŸáááŒá®ážá á€á
á¬áááºážááᯠTelegram ááá¯á· áá±ážááá¯á·áááºááá¯á¡ááºáá«áááºá
Command áá áºáá¯áá»ááºážá á®ááᯠá¡áá±ážá áááºááŒáá·áºááŸá¯áá«áá
filter()- á¡áááºáá±á¬áºááŒáá« á¡ááŒá±á¡áá±áá»á¬ážááŸáá·áºá¡áá® á¡áá¯ááºáá»á¬ážá á¬áááºážááᯠá á áºáá¯ááºáá«áselect()- á¡áá¯ááºáá»á¬ážá¡áááºááŒáá·áº ááá¬ážááœáẠá¡ááœááºáá áºáá¯áᬠáá»ááºáá¬ážáá«áunique()- ááœá¬ážáá±áá±á¬á¡áááºáá»á¬ážááá¯áááºááŸá¬ážáá«áunlist()â ááœá±ážáá»ááºáá¬ážáá±á¬ ááá¬ážáá±á¬áºáá¶ááᯠvector áá áºáá¯ááá¯á· ááŒá±á¬ááºážáá±ážáááºápaste0()â áá¯ááºáááºážáá±á¬ááºáá¬áá»á¬ážáá¡áááºáá»á¬ážááᯠá á¬ááŒá±á¬ááºážáá áºááŒá±á¬ááºážááá¯á· áá»áááºáááºááŒá®áž áá»ááºážááœá²áá áºáá¯á¡ááŒá ẠáááºááŸááºáá±ážáááºán.
áá»ááºáá¬á¡á¬ážáá¯á¶ážá áá®ááááºááᯠáááºáá®ááááºááá±áááá·áº áá±ážááá¯á·ááá¯á·áá² ááŒá áºáá«áááºá
bot$sendMessage(chat_id,
text = task,
parse_mode = "Markdown"
)ááá¯á·ááŒá±á¬áá·áºá ááá¯á¡áá»áááºááœáẠbot áá¯ááºááẠá€áá²á·ááá¯á·ááŒá áºáá±áááº-
Task review bot áá¯ááº
# ÐПЎклÑÑеМОе пакеÑа
library(telegram.bot)
library(taskscheduleR)
library(dplyr)
# ОМОÑОалОзОÑÑеЌ бПÑа
bot <- Bot(token = "123456789:abcdefghijklmnopqrstuvwxyz")
# ОЎеМÑОÑОкаÑÐŸÑ ÑаÑа
chat_id <- 123456789
# запÑаÑОваеЌ ÑпОÑПк заЎаÑ
task <- taskscheduler_ls() %>%
filter(! `Last Result` %in% c("0", "267011") &
`Scheduled Task State` == "Enabled" &
Status != "Running") %>%
select(TaskName) %>%
unique() %>%
unlist() %>%
paste0(., collapse = "n")
# еÑлО еÑÑÑ Ð¿ÑПблеЌМÑе заЎаÑО ПÑпÑавлÑеЌ ÑППбÑеМОе
if ( task != "" ) {
bot$sendMessage(chat_id,
text = task,
parse_mode = "Markdown"
)
}á¡áááºáá±á¬áºááŒáá« á¥ááá¬ááᯠá¡áá¯á¶ážááŒá¯áá±á¬á¡áá«á áááºá bot ááá¯áááºááŸáá·áº áááºá chat ID ááᯠáá¯ááºááœáẠá¡á á¬ážááá¯ážáá«á
áá¯ááºáá±á¬ááºá áá¬áá»á¬ážááᯠá á áºáá¯ááºááŒááºážá¡ááœáẠá¡ááŒá±á¡áá±áá»á¬ážááᯠáááºááá·áºááœááºážááá¯ááºáááºá á¥ááá¬á¡á¬ážááŒáá·áºá áááºáááºáá®ážáá¬ážááá·áº á¡áá¯ááºáá»á¬ážááá¯áᬠá á áºáá±ážááŒááºážá á áá áºáá¯ááºáá±á¬ááºááŒááºážáá»á¬ážááᯠááá«áááºáá«á
á¡áá»áá¯ážáá»áá¯ážáá±á¬ áááºáááºáá»á¬ážááᯠáá®ážááŒá¬áž configuration ááá¯ááºáá
áºáá¯ááœáẠááá·áºááœááºážááá¯ááºááŒá®áž áá»ááºá¡áá¯ááºáá®ááŸáá·áº ááá¯áááºááᯠáááºážááœáẠááááºážáááºážááá¯ááºáááºá á¥ááá¬á¡á¬ážááŒáá·áºá package ááá¯á¡áá¯á¶ážááŒá¯á config ááá¯áááºááá¯ááºáááºá configr.
á¥ááᬠini config
[telegram_bot]
;МаÑÑÑПйкО ÑелегÑаЌ бПÑа О ÑаÑа, в кПÑПÑÑй бÑÐŽÑÑ Ð¿ÑОÑ
ПЎОÑÑ ÑвеЎПЌлеМОÑ
chat_id=12345678
bot_token=123456789:abcdefghijklmnopqrstuvwxyz"R ááœáẠconfig áá áºáá¯á០variable áá»á¬ážááá¯áááºááŒááºážáá¥ááá¬
library(configr)
# ÑÑеМОе кПМÑОМа
config <- read.config('C:/пÑÑÑ_к_кПМÑОгÑ/config.cfg', rcmd.parse = TRUE)
bot_token <- config$telegram_bot$bot_token
chat_id <- config$telegram_bot$chat_idáá¯ááºáááºážá áááºááºáá»á¬ážááᯠáá¯ááºáá±á¬ááºáááºá¡ááœáẠá¡áá»áááºááá¬ážááᯠáááºááŸááºááŒááºážá
á¡áá»áááºááá¬ážáá áºáá¯áá±á«áºááœáẠscripts áá»á¬ážá áááºááŒááºážááá¯ááºáááºážá ááºááá¯á€ááœááºá¡áá±ážá áááºáá±á¬áºááŒáá¬ážáááºá . á€ááœáẠáá»áœááºá¯ááºááẠá€á¡ááœáẠááá¯ááºáá¬áááá·áº á¡ááá·áºáá»á¬ážááá¯áᬠáá±á¬áºááŒáá«áááºá á¡ááá·áºáá áºááá·áºáá»ááºáž áááŸááºážáááºážáá«á áá»áœááºá¯ááºáá±ážáá¬ážááá·áº ááá·áºááºááᯠáááºááŸá¯áá«á
áá»áœááºá¯ááºááá¯á·ááẠáá»áœááºá¯ááºááá¯á·á áá±á¬á·áá¯ááºááᯠááá¯ááºáá
áºáá¯ááœáẠááááºážáááºážáá²á·áááºáᯠáá°áááŒáá«á
áá¯á· check_bot.R. á€ááá¯ááºááᯠáá¯á¶ááŸááºáááºáááºááẠá¡áá»áááºááá¬ážááœá²áááºá á¡á±á¬ááºáá«á¡ááá·áºáá»á¬ážááᯠááá¯ááºáá¬áá«-
- Path system variable ááœáẠR ááá·áºááœááºážáá¬ážááá·áº folder ááá¯á· áááºážááŒá±á¬ááºážááá¯áá±ážáá«á Windows ááœáẠáááºážááŒá±á¬ááºážááẠá€áá²á·ááá¯á·ááŒá
áºáááá·áºáááº-
C:Program FilesRR-4.0.2bin. - áá
áºááŒá±á¬ááºážáááºážááŒáá·áº executable bat ááá¯ááºááá¯áááºáá®ážáá«á
R CMD BATCH C:rscriptscheck_botcheck_bot.R. á¡á á¬ážááá¯ážáá«áC:rscriptscheck_botcheck_bot.Ráááºá R ááá¯ááºáá®ááá¯á· áááºážááŒá±á¬ááºáž á¡ááŒáá·áºá¡á á¯á¶ááá¯á·á - ááá¯á·áá±á¬ááºá á¥ááá¬á áá¬áá®áááºááá¯ááºážááœáẠá áááºááá·áºá¡áá»áááºááá¬ážááᯠáááºááŸááºááẠWindows Task Scheduler ááᯠá¡áá¯á¶ážááŒá¯áá«á
áá±á¬ááºáá»ááº
á€áá±á¬ááºážáá«ážááœááºá áá»áœááºá¯ááºááá¯á·ááẠbot áá áºáá¯áááºáá®ážáááºážááᯠááŸá¬ááœá±áá²á·ááŒá®áž áááºáá®ááááºááœáẠá¡áá»áá¯ážáá»áá¯ážáá±á¬ á¡áááá±ážáá»ááºáá»á¬ážááᯠáá±ážááá¯á·ááẠáááºážááᯠá¡áá¯á¶ážááŒá¯áá²á·áááºá
Windows Task Scheduler ááᯠá á±á¬áá·áºááŒáá·áºááŒááºážá áá¬áááºááᯠáá»áœááºá¯áẠáá±á¬áºááŒáá²á·ááŒá®ážááŒá áºáá±á¬áºáááºážá áá¬áá®á¥áᯠááá·áºááŸááºážáá»ááºá០á áá±á¬á·á¡áááºáá»áááºážááŸá á áá±á¬á·á¡áááºáá»áááºážááŸá á áá±á¬á·á¡áááºáá»áááºážáá»á¬ážá¡áá á¡ááŒá±á¬ááºážááŒá¬ážáá»ááºáá»á¬ážááᯠáá±ážááá¯á·ááẠá€áá±á¬ááºážáá«ážáá« á¡ááŒá±á¬ááºážá¡áá¬ááᯠáááºá¡áá¯á¶ážááŒá¯ááá¯ááºáá±á¬ááŒá±á¬áá·áºá R ááẠááá·áºá¡á¬áž áá±áá¬á¡áááºážá¡ááŒá áºáá»á¬ážá áœá¬ááŸáá·áº áá»áááºáááºááá¯ááºá á±áá«áááºá
áá±á¬ááºáá±á¬ááºážáá«ážááœááºá áááºážááẠá¡áááá±ážáá»ááºáá»á¬ážááá¯áá±ážááá¯á·áá¯á¶áá¬áá ááá¯ááá¯ááŸá¯ááºááœá±ážáá±á¬áá¯ááºáá±á¬ááºáá»ááºáá»á¬ážááᯠáá¯ááºáá±á¬ááºááá¯ááºá á±ááẠáá±á¬á·ááºááá¯á· command áá»á¬ážááŸáá·áº áá®ážáá¯ááºááᯠáááºááá¯á·ááá·áºááááºááᯠá¡ááŒá±ááŸá¬áá«áááºá
source: www.habr.com