เดเตเดฒเดฟเดเตเดฐเดพเด เดชเตเดฐเตเดเตเดทเดเตผ เด เดจเตเดฆเดฟเดจเด เดเตเดฐเดฎเดพเดคเตเดคเดฎเดพเดฏเดฟ เดตเดณเดฐเตเดเดฏเดพเดฃเต, เดฎเตเดธเดเตเดเดฑเดฟเดจเตเดฑเต เดธเตเดเดฐเตเดฏเด, เดเดพเดจเดฒเตเดเดณเตเดเต เดธเดพเดจเตเดจเดฟเดงเตเดฏเด, เดเดพเดฑเตเดฑเตเดเตพ, เดคเตเตผเดเตเดเดฏเดพเดฏเตเด เดฌเตเดเตเดเตเดเตพ เดธเตเดทเตเดเดฟเดเตเดเดพเดจเตเดณเตเดณ เดเดดเดฟเดตเต เดเดจเตเดจเดฟเดตเดฏเดพเตฝ เดเดคเต เดธเตเดเดฎเดฎเดพเดเตเดเตเดจเตเดจเต.
เดจเดฟเดเตเดเดณเตเดเต เดเดชเดญเตเดเตเดคเดพเดเตเดเดณเตเดฎเดพเดฏเตเดณเตเดณ เดเดถเดฏเดตเดฟเดจเดฟเดฎเดฏเด เดเดเตเดเตเดฎเตเดฑเตเดฑเต เดเตเดฏเตเดฏเตเดจเตเดจเดคเต เดฎเตเดคเตฝ เดจเดฟเดเตเดเดณเตเดเต เดธเตเดตเดจเตเดคเด เดเตเดฒเดฟเดเตพ เดเตเดเดพเดฐเตเดฏเด เดเตเดฏเตเดฏเตเดจเตเดจเดคเต เดตเดฐเต เดคเดฟเดเดเตเดเตเด เดตเตเดฏเดคเตเดฏเดธเตเดคเดฎเดพเดฏ เดเดตเดถเตเดฏเดเตเดเตพเดเตเดเดพเดฏเดฟ เดฌเตเดเตเดเตเดเตพ เดเดชเดฏเตเดเดฟเดเตเดเดพเดจเดพเดเตเด.
เด เดเดฟเดธเตเดฅเดพเดจเดชเดฐเดฎเดพเดฏเดฟ, เดเดฐเต เดฌเตเดเตเดเดฟเดฒเตเดเต เดเดคเต เดชเตเดฐเดตเตผเดคเตเดคเดจเดเตเดเดณเตเด เดจเดเดคเตเดคเดพเตป เดจเดฟเดเตเดเตพเดเตเดเต เดเตเดฒเดฟเดเตเดฐเดพเด เดเดชเดฏเตเดเดฟเดเตเดเดพเด: เดกเดพเดฑเตเดฑ เด เดฏเดฏเตเดเตเดเตเด เด เดฒเตเดฒเตเดเตเดเดฟเตฝ เด เดญเตเดฏเตผเดคเตเดฅเดฟเดเตเดเตเด, เดธเตเตผเดตเดฑเดฟเตฝ เดเดพเดธเตโเดเตเดเตเดเตพ เดชเตเดฐเดตเตผเดคเตเดคเดฟเดชเตเดชเดฟเดเตเดเตเด, เดเดฐเต เดกเดพเดฑเตเดฑเดพเดฌเตเดธเดฟเดฒเตเดเตเดเต เดตเดฟเดตเดฐเดเตเดเตพ เดถเตเดเดฐเดฟเดเตเดเตเด, เดเดฎเตเดฏเดฟเดฒเตเดเตพ เด เดฏเดฏเตโเดเตเดเตเด เดคเตเดเดเตเดเดฟเดฏเดต.
เดเดเตเดเดจเต เดชเตเดฐเดตเตผเดคเตเดคเดฟเดเตเดเดฃเด เดเดจเตเดจเดคเดฟเดจเตเดเตเดเตเดฑเดฟเดเตเดเตเดณเตเดณ เดฒเตเดเดจเดเตเดเดณเตเดเต เดเดฐเต เดชเดฐเดฎเตเดชเดฐ เดเดดเตเดคเดพเตป เดเดพเตป เดเดเตเดฐเดนเดฟเดเตเดเตเดจเตเดจเต
เด เดเดฆเตเดฏ เดฒเตเดเดจเดคเตเดคเดฟเตฝ เดเดฐเต เดเตเดฒเดฟเดเตเดฐเดพเด เดฌเตเดเตเดเต เดเดเตเดเดจเต เดธเตเดทเตเดเดฟเดเตเดเดพเดฎเตเดจเตเดจเตเด เดเตเดฒเดฟเดเตเดฐเดพเดฎเดฟเตฝ เด เดฑเดฟเดฏเดฟเดชเตเดชเตเดเตพ เด เดฏเดฏเตเดเตเดเดพเตป เด เดคเต เดเดเตเดเดจเต เดเดชเดฏเตเดเดฟเดเตเดเดพเดฎเตเดจเตเดจเตเด เดเดเตเดเตพ เดเดฃเตเดเตเดคเตเดคเตเด.
เดคเตฝเดซเดฒเดฎเดพเดฏเดฟ, เดตเดฟเตปเดกเตเดธเต เดเดพเดธเตโเดเต เดทเตเดกเตเดฏเตเดณเดฑเดฟเดฒเต เดเดฒเตเดฒเดพ เดเดพเดธเตโเดเตเดเตเดเดณเตเดเตเดฏเตเด เด เดตเดธเดพเดจ เดจเดฟเตผเดตเตเดตเดนเดฃเดคเตเดคเดฟเดจเตเดฑเต เดจเดฟเดฒ เดชเดฐเดฟเดถเตเดงเดฟเดเตเดเตเดจเตเดจ เดเดฐเต เดฌเตเดเตเดเต เดเดเตเดเตพเดเตเดเตเดฃเตเดเดพเดเตเด, เด เดตเดฏเดฟเดฒเตเดคเตเดเตเดเดฟเดฒเตเด เดชเดฐเดพเดเดฏเดชเตเดชเตเดเตเดเดพเตฝ เดจเดฟเดเตเดเตพเดเตเดเต เด เดฑเดฟเดฏเดฟเดชเตเดชเตเดเตพ เด เดฏเดฏเตเดเตเดเตเด.
เดเดจเตเดจเดพเตฝ เด เดฒเตเดเดจ เดชเดฐเดฎเตเดชเดฐเดฏเตเดเต เดเดฆเตเดฆเตเดถเตเดฏเด เดเดฐเต เดจเดฟเตผเดฆเตเดฆเดฟเดทเตเด, เดเดเตเดเตเดเดฟเดฏ เดเดพเดธเตโเดเตเดเดฟเดจเดพเดฏเดฟ เดเดฐเต เดฌเตเดเตเดเต เดเดเตเดเดจเต เดเดดเตเดคเดพเดฎเตเดจเตเดจเต เดจเดฟเดเตเดเดณเต เดชเด เดฟเดชเตเดชเดฟเดเตเดเตเดเดฏเดฒเตเดฒ, เดฎเดฑเดฟเดเตเดเต เดชเดพเดเตเดเตเดเดฟเดจเตเดฑเต เดตเดพเดเตเดฏเดเดเดจเดฏเดฟเดฒเตเดเตเดเต เดจเดฟเดเตเดเดณเต เดชเตเดคเตเดตเต เดชเดฐเดฟเดเดฏเดชเตเดชเตเดเตเดคเตเดคเตเด เดเดจเตเดจเดคเดพเดฃเต. telegram.bot
, เดเตเดเดพเดคเต เดจเดฟเดเตเดเดณเตเดเต เดธเตเดตเดจเตเดคเด เดชเตเดฐเดถเตเดจเดเตเดเตพ เดชเดฐเดฟเดนเดฐเดฟเดเตเดเดพเตป เดฌเตเดเตเดเตเดเตพ เดเดดเตเดคเดพเตป เดเดดเดฟเดฏเตเดจเตเดจ เดเตเดกเต เดเดฆเดพเดนเดฐเดฃเดเตเดเตพ.
เดเดณเตเดณเดเดเตเดเด
เดจเดฟเดเตเดเตพเดเตเดเต เดกเดพเดฑเตเดฑ เดตเดฟเดถเดเดฒเดจเดคเตเดคเดฟเตฝ เดคเดพเตฝเดชเตเดชเดฐเตเดฏเดฎเตเดฃเตเดเตเดเตเดเดฟเตฝ, เดจเดฟเดเตเดเตพเดเตเดเต เดเดจเตเดฑเต เดคเดพเตฝเดชเตเดชเดฐเตเดฏเดฎเตเดฃเตเดเดพเดเดพเด
เดเดฐเต เดเตเดฒเดฟเดเตเดฐเดพเด เดฌเตเดเตเดเต เดธเตเดทเตเดเดฟเดเตเดเตเดจเตเดจเต R-เตฝ เดเดฐเต เดเตเดฒเดฟเดเตเดฐเดพเด เดฌเตเดเตเดเดฟเตฝ เดชเตเดฐเดตเตผเดคเตเดคเดฟเดเตเดเดพเตป เดเดฐเต เดชเดพเดเตเดเตเดเต เดเตปเดธเตเดฑเตเดฑเดพเตพ เดเตเดฏเตเดฏเตเดจเตเดจเต R-เตฝ เดจเดฟเดจเตเดจเต เดเตเดฒเดฟเดเตเดฐเดพเดฎเดฟเดฒเตเดเตเดเต เดธเดจเตเดฆเตเดถเดเตเดเตพ เด เดฏเดฏเตเดเตเดเตเดจเตเดจเต เดเดพเดธเตโเดเต เดธเตเดเดพเดจเตเดเตพ เดชเตเดฐเดตเตผเดคเตเดคเดฟเดชเตเดชเดฟเดเตเดเตเดจเตเดจเดคเดฟเดจเต เดเดฐเต เดทเตเดกเตเดฏเตเตพ เดธเดเตเดเตเดเดฐเดฟเดเตเดเตเดจเตเดจเต เดคเตเดฐเตเดฎเดพเดจเด
เดเดฐเต เดเตเดฒเดฟเดเตเดฐเดพเด เดฌเตเดเตเดเต เดธเตเดทเตเดเดฟเดเตเดเตเดจเตเดจเต
เดเดฆเตเดฏเด เดจเดฎเตเดฎเตพ เดเดฐเต เดฌเตเดเตเดเต เดเดฃเตเดเดพเดเตเดเดฃเด. เดเดฐเต เดชเตเดฐเดคเตเดฏเตเด เดฌเตเดเตเดเต เดเดชเดฏเตเดเดฟเดเตเดเดพเดฃเต เดเดคเต เดเตเดฏเตเดฏเตเดจเตเดจเดคเต เดฌเตเดเตเดเตเดซเดพเดฆเตผ, เดชเตเดเตเด /start
.
เด เดคเดฟเดจเตเดถเตเดทเด เดจเดฟเดเตเดเตพเดเตเดเต เดเดฎเดพเตปเดกเตเดเดณเตเดเต เดเดฐเต เดฒเดฟเดธเตเดฑเตเดฑเต เดเดณเตเดณ เดเดฐเต เดธเดจเตเดฆเตเดถเด เดฒเดญเดฟเดเตเดเตเด:
เดฌเตเดเตเดเตเดซเดพเดฆเดฑเดฟเตฝ เดจเดฟเดจเตเดจเตเดณเตเดณ เดธเดจเตเดฆเตเดถเด
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 game
เดเดฐเต เดชเตเดคเดฟเดฏ เดฌเตเดเตเดเต เดธเตเดทเตเดเดฟเดเตเดเดพเตป, เดเดฎเดพเตปเดกเต เด
เดฏเดฏเตเดเตเดเตเด /newbot
.
เดฌเตเดเตเดเดฟเดจเตเดฑเต เดชเตเดฐเต เดจเตฝเดเดฟ เดฒเตเดเดฟเตป เดเตเดฏเตเดฏเดพเตป เดฌเตเดเตเดเตเดซเดพเดฆเตผ เดจเดฟเดเตเดเดณเตเดเต เดเดตเดถเตเดฏเดชเตเดชเตเดเตเด.
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-เตฝ เดเดฐเต เดเตเดฒเดฟเดเตเดฐเดพเด เดฌเตเดเตเดเดฟเตฝ เดชเตเดฐเดตเตผเดคเตเดคเดฟเดเตเดเดพเตป เดเดฐเต เดชเดพเดเตเดเตเดเต เดเตปเดธเตเดฑเตเดฑเดพเตพ เดเตเดฏเตเดฏเตเดจเตเดจเต
เดจเดฟเดเตเดเตพ เดเดคเดฟเดจเดเด R เดญเดพเดทเดฏเตเด RStudio เดตเดฟเดเดธเดจ เดชเดฐเดฟเดคเดธเตเดฅเดฟเดคเดฟเดฏเตเด เดเตปเดธเตเดฑเตเดฑเดพเตพ เดเตเดฏเตเดคเดฟเดเตเดเตเดฃเตเดเตเดจเตเดจเต เดเดพเตป เด
เดจเตเดฎเดพเดจเดฟเดเตเดเตเดจเตเดจเต. เดเดคเต เด
เดเตเดเดจเตเดฏเดฒเตเดฒเตเดเตเดเดฟเตฝ, เดจเดฟเดเตเดเตพเดเตเดเต เดเดคเต เดจเตเดเตเดเดพเด
เดเตเดฒเดฟเดเตเดฐเดพเด เดฌเตเดเตเดเต API-เดฏเดฟเตฝ เดชเตเดฐเดตเตผเดคเตเดคเดฟเดเตเดเดพเตป เดเดเตเดเตพ R เดชเดพเดเตเดเตเดเต เดเดชเดฏเตเดเดฟเดเตเดเตเด
เดซเดเดเตเดทเตป เดเดชเดฏเตเดเดฟเดเตเดเดพเดฃเต R-เตฝ เดชเดพเดเตเดเตเดเตเดเตพ เดเตปเดธเตเดฑเตเดฑเดพเตพ เดเตเดฏเตเดฏเตเดจเตเดจเดคเต install.packages()
, เด
เดคเดฟเดจเดพเตฝ เดจเดฎเตเดเตเดเต เดเดตเดถเตเดฏเดฎเตเดณเตเดณ เดชเดพเดเตเดเตเดเต เดเตปเดธเตเดฑเตเดฑเดพเตพ เดเตเดฏเตเดฏเดพเตป, เดเดฎเดพเตปเดกเต เดเดชเดฏเตเดเดฟเดเตเดเตเด install.packages("telegram.bot")
.
เดตเดฟเดตเดฟเดง เดชเดพเดเตเดเตเดเตเดเตพ เดเตปเดธเตเดฑเตเดฑเดพเตพ เดเตเดฏเตเดฏเตเดจเตเดจเดคเดฟเดจเตเดเตเดเตเดฑเดฟเดเตเดเต เดจเดฟเดเตเดเตพเดเตเดเต เดเตเดเตเดคเดฒเดฑเดฟเดฏเดพเตป เดเดดเดฟเดฏเตเด
เดชเดพเดเตเดเตเดเต เดเตปเดธเตเดฑเตเดฑเดพเตพ เดเตเดฏเตเดค เดถเตเดทเด, เดจเดฟเดเตเดเตพ เดเดคเต เดฌเดจเตเดงเดฟเดชเตเดชเดฟเดเตเดเตเดฃเตเดเดคเตเดฃเตเดเต:
library(telegram.bot)
R-เตฝ เดจเดฟเดจเตเดจเต เดเตเดฒเดฟเดเตเดฐเดพเดฎเดฟเดฒเตเดเตเดเต เดธเดจเตเดฆเตเดถเดเตเดเตพ เด เดฏเดฏเตเดเตเดเตเดจเตเดจเต
เดธเตเดทเตโเดเดฟเดเตเดเตเดฎเตเดชเตเตพ เดตเตเดฏเดเตเดคเดฎเดพเดเตเดเดฟเดฏ เดฒเตเดเดฟเตป เดเดชเดฏเตเดเดฟเดเตเดเต เดจเดฟเดเตเดเตพ เดธเตเดทเตเดเดฟเดเตเด เดฌเตเดเตเดเต เดเตเดฒเดฟเดเตเดฐเดพเดฎเดฟเตฝ เดเดฃเตเดเตเดคเตเดคเดพเตป เดเดดเดฟเดฏเตเด, เดเดจเตเดฑเต เดเดพเดฐเตเดฏเดคเตเดคเดฟเตฝ เดเดคเต @my_test_bot
.
เดฌเตเดเตเดเดฟเดจเต "เดนเต เดฌเตเดเตเดเต" เดชเตเดฒเตเดณเตเดณ เดเดจเตเดคเตเดเตเดเดฟเดฒเตเด เดธเดจเตเดฆเตเดถเด เด เดฏเดฏเตโเดเตเดเตเด. เดเดชเตเดชเตเตพ, เดฌเตเดเตเดเตเดฎเดพเดฏเตเดณเตเดณ เดจเดฟเดเตเดเดณเตเดเต เดเดพเดฑเตเดฑเดฟเดจเตเดฑเต เดเดกเดฟ เดฒเดญเดฟเดเตเดเตเดจเตเดจเดคเดฟเดจเต เดเดเตเดเตพเดเตเดเต เดเดคเต เดเดตเดถเตเดฏเดฎเดพเดฃเต.
เดเดจเดฟ เดจเดฎเตเดฎเตพ R-เตฝ เดคเดพเดดเต เดชเดฑเดฏเตเดจเตเดจ เดเตเดกเต เดเดดเตเดคเตเดจเตเดจเต.
library(telegram.bot)
# ัะพะทะดะฐัะผ ัะบะทะตะผะฟะปัั ะฑะพัะฐ
bot <- Bot(token = "123456789:abcdefghijklmnopqrstuvwxyz")
# ะะฐะฟัะฐัะธะฒะฐะตะผ ะธะฝัะพัะผะฐัะธั ะพ ะฑะพัะต
print(bot$getMe())
# ะะพะปััะฐะตะผ ะพะฑะฝะพะฒะปะตะฝะธั ะฑะพัะฐ, ั.ะต. ัะฟะธัะพะบ ะพัะฟัะฐะฒะปะตะฝะฝัั
ะตะผั ัะพะพะฑัะตะฝะธะน
updates <- bot$getUpdates()
# ะะฐะฟัะฐัะธะฒะฐะตะผ ะธะดะตะฝัะธัะธะบะฐัะพั ัะฐัะฐ
# ะัะธะผะตัะฐะฝะธะต: ะฟะตัะตะด ะทะฐะฟัะพัะพะผ ะพะฑะฝะพะฒะปะตะฝะธะน ะฒั ะดะพะปะถะฝั ะพัะฟัะฐะฒะธัั ะฑะพัั ัะพะพะฑัะตะฝะธะต
chat_id <- updates[[1L]]$from_chat_id()
เดคเตเดเดเตเดเดคเตเดคเดฟเตฝ, เดซเดเดเตเดทเตป เดเดชเดฏเตเดเดฟเดเตเดเต เดเดเตเดเดณเตเดเต เดฌเตเดเตเดเดฟเดจเตเดฑเต เดเดฐเต เดเดฆเดพเดนเดฐเดฃเด เดเดเตเดเตพ เดธเตเดทเตเดเดฟเดเตเดเตเดจเตเดจเต Bot()
, เดฎเตเดฎเตเดชเต เดฒเดญเดฟเดเตเด เดเตเดเตเดเตบ เด
เดคเดฟเดฒเตเดเตเดเต เดเดฐเต เดเตผเดเตเดฏเตเดฎเตเดจเตเดฑเดพเดฏเดฟ เดจเตฝเดเดฃเด.
เดเตเดกเดฟเตฝ เดเตเดเตเดเตบ เดธเดเดญเดฐเดฟเดเตเดเตเดจเตเดจเดคเต เดฎเดฟเดเดเตเด เดฐเตเดคเดฟเดฏเดพเดฏเดฟ เดเดฃเดเตเดเดพเดเตเดเดฟเดฒเตเดฒ, เด
เดคเดฟเดจเดพเตฝ เดจเดฟเดเตเดเตพเดเตเดเดคเต เดเดฐเต เดเตปเดตเดฏเตเตบเดฎเตเดจเตเดฑเต เดตเตเดฐเดฟเดฏเดฌเดฟเดณเดฟเตฝ เดธเดเดญเดฐเดฟเดเตเดเดพเดจเตเด เด
เดคเดฟเตฝ เดจเดฟเดจเตเดจเต เดตเดพเดฏเดฟเดเตเดเดพเดจเตเด เดเดดเดฟเดฏเตเด. เดชเดพเดเตเดเตเดเดฟเตฝ เดธเตเดฅเดฟเดฐเดธเตเดฅเดฟเดคเดฟเดฏเดพเดฏเดฟ telegram.bot
เดเดจเดฟเดชเตเดชเดฑเดฏเตเดจเตเดจ เดชเตเดฐเตเดเดณเตเดเต เดชเดฐเดฟเดธเตเดฅเดฟเดคเดฟ เดตเตเดฐเดฟเดฏเดฌเดฟเดณเตเดเตพเดเตเดเตเดณเตเดณ เดชเดฟเดจเตเดคเตเดฃ เดจเดเดชเตเดชเดฟเดฒเดพเดเตเดเดฟ: R_TELEGRAM_BOT_ะะะฏ_ะะะจะะะ_ะะะขะ
. เดเดคเดฟเดจเตเดชเดเดฐเดฎเดพเดฏเดฟ ะะะฏ_ะะะจะะะ_ะะะขะ
เดธเตเดทเตเดเดฟเดเตเดเตเดฎเตเดชเตเตพ เดจเดฟเดเตเดเตพ เดตเตเดฏเดเตเดคเดฎเดพเดเตเดเดฟเดฏ เดชเตเดฐเต เดชเดเดฐเด เดตเดฏเตเดเตเดเตเด, เดเดจเตเดฑเต เดเดพเดฐเตเดฏเดคเตเดคเดฟเตฝ เดเดคเต เดเดฐเต เดตเตเดฐเดฟเดฏเดฌเดฟเดณเดพเดฏเดฟเดฐเดฟเดเตเดเตเด R_TELEGRAM_BOT_My Test Bot
.
เดเดฐเต เดชเดฐเดฟเดธเตเดฅเดฟเดคเดฟ เดตเตเดฐเดฟเดฏเดฌเดฟเตพ เดธเตเดทเตเดเดฟเดเตเดเดพเตป เดจเดฟเดฐเดตเดงเดฟ เดฎเดพเตผเดเดเตเดเดณเตเดฃเตเดเต; เดเดฑเตเดฑเดตเตเด เดธเดพเตผเดตเดคเตเดฐเดฟเดเดตเตเด เดเตเดฐเตเดธเต-เดชเตเดฒเดพเดฑเตเดฑเตเดซเตเดฎเตเด เดเดพเตป เดจเดฟเดเตเดเดณเตเดเต เดชเดฑเดฏเตเด. เดจเดฟเดเตเดเดณเตเดเต เดนเตเด เดกเดฏเดฑเดเตเดเดฑเดฟเดฏเดฟเตฝ เดธเตเดทเตเดเดฟเดเตเดเตเด (เดเดฎเดพเตปเดกเต เดเดชเดฏเตเดเดฟเดเตเดเต เดจเดฟเดเตเดเตพเดเตเดเดคเต เดเดฃเตเดเตเดคเตเดคเดพเดจเดพเดเตเด path.expand("~")
) เดชเตเดฐเตเดณเตเดณ เดเตเดเตเดธเตเดฑเตเดฑเต เดซเดฏเตฝ .เดฑเตเตปเดตเดฟเดฑเตเตบ. เดเดฎเดพเตปเดกเต เดเดชเดฏเตเดเดฟเดเตเดเตเด เดจเดฟเดเตเดเตพเดเตเดเต เดเดคเต เดเตเดฏเตเดฏเดพเตป เดเดดเดฟเดฏเตเด file.edit(path.expand(file.path("~", ".Renviron")))
.
เด เดคเดฟเดฒเตเดเตเดเต เดเดจเดฟเดชเตเดชเดฑเดฏเตเดจเตเดจ เดตเดฐเดฟ เดเตเตผเดเตเดเตเด.
R_TELEGRAM_BOT_ะะะฏ_ะะะจะะะ_ะะะขะ=123456789:abcdefghijklmnopqrstuvwxyz
เด
เดเตเดคเตเดคเดคเดพเดฏเดฟ, เดซเดเดเตเดทเตป เดเดชเดฏเตเดเดฟเดเตเดเต เดชเดฐเดฟเดธเตเดฅเดฟเดคเดฟ เดตเตเดฐเดฟเดฏเดฌเดฟเดณเดฟเตฝ เดธเดเดฐเดเตเดทเดฟเดเตเดเดฟเดฐเดฟเดเตเดเตเดจเตเดจ เดเตเดเตเดเตบ เดจเดฟเดเตเดเตพเดเตเดเต เดเดชเดฏเตเดเดฟเดเตเดเดพเด bot_token()
, เด
เดคเดพเดฏเดคเต. เดเดคเตเดชเตเดพเดฒเต:
bot <- Bot(token = bot_token("My Test Bot"))
เดฐเตเดคเดฟ getUpdates()
เดฌเตเดเตเดเต เด
เดชเตโเดกเตเดฑเตเดฑเตเดเตพ เดฒเดญเดฟเดเตเดเดพเตป เดเดเตเดเดณเต เด
เดจเตเดตเดฆเดฟเดเตเดเตเดจเตเดจเต, เด
เดคเดพเดฏเดคเต. เด
เดฏเดพเตพเดเตเดเต เด
เดฏเดเตเด เดธเดจเตเดฆเตเดถเดเตเดเตพ. เดฐเตเดคเดฟ from_chat_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"
เด
เดคเดฟเดจเดพเตฝ, เด เดเดเตเดเดคเตเดคเดฟเตฝ เดเดฐเต เดฌเตเดเตเดเดฟเตฝ เดจเดฟเดจเตเดจเต เดเตเดฒเดฟเดเตเดฐเดพเดฎเดฟเดฒเตเดเตเดเต เดเดฐเต เดธเดจเตเดฆเตเดถเด เด
เดฏเดฏเตโเดเตเดเดพเตป เดเดตเดถเตเดฏเดฎเดพเดฏเดคเตเดฒเตเดฒเดพเด เดเดคเดฟเดจเดเด เดคเดจเตเดจเต เดเดเตเดเดณเตเดเต เดชเดเตเดเดฒเตเดฃเตเดเต. เดจเดฎเตเดเตเดเต เดฐเตเดคเดฟ เดเดชเดฏเตเดเดฟเดเตเดเดพเด sendMessage()
, เด
เดคเดฟเดฒเตเดเตเดเต เดจเดฟเดเตเดเตพ เดเดพเดฑเตเดฑเต เดเดกเดฟ, เดธเดจเตเดฆเตเดถ เดตเดพเดเดเด, เดธเดจเตเดฆเตเดถ เดเตเดเตเดธเตเดฑเตเดฑเต เดฎเดพเตผเดเตเดเตเด
เดชเตเดชเต เดคเดฐเด เดเดจเตเดจเดฟเดต เดเตเดฎเดพเดฑเตเดฃเตเดเดคเตเดฃเตเดเต. เดฎเดพเตผเดเตเดเตเด
เดชเตเดชเต เดคเดฐเด เดฎเดพเตผเดเตเดเตเดกเตเตบ เด
เดฒเตเดฒเตเดเตเดเดฟเตฝ HTML เดเดเดพเด, เด
เดคเต เดเตผเดเตเดฏเตเดฎเตเดจเตเดฑเต เดชเตเดฐเดเดพเดฐเด เดธเดเตเดเตเดเดฐเดฟเดเตเดเดฟเดฐเดฟเดเตเดเตเดจเตเดจเต parse_mode
.
# ะัะฟัะฐะฒะบะฐ ัะพะพะฑัะตะฝะธั
bot$sendMessage(chat_id,
text = "ะัะธะฒะตั, *ะถะธัะฝัะน ัะตะบัั* _ะบัััะธะฒ_",
parse_mode = "Markdown"
)
เดฎเดพเตผเดเตเดเตเดกเตเตบ เดซเตเตผเดฎเดพเดฑเตเดฑเดฟเดเดเต เด เดเดฟเดธเตเดฅเดพเดจเดเตเดเตพ:
- เดฌเตเตพเดกเต เดซเตเดฃเตเดเต *:
- เดเดฆเดพเดนเดฐเดฃเด:
*ะถะธัะฝัะน ััะธัั*
- เดซเดฒเดฎเดพเดฏเดฟ: เดฌเตเตพเดกเต เดซเตเดฃเตเดเต
- เดเดฆเดพเดนเดฐเดฃเด:
- เดเดฑเตเดฑเดพเดฒเดฟเดเตเดธเต เด
เดเดฟเดตเดฐเดฏเดฟเดเตเดเต เดธเตเดเดฟเดชเตเดชเดฟเดเตเดเดฟเดฐเดฟเดเตเดเตเดจเตเดจเต:
- เดเดฆเดพเดนเดฐเดฃเด:
_ะบัััะธะฒ_
- เดซเดฒเดฎเดพเดฏเดฟ: เดเดฑเตเดฑเดพเดฒเดฟเดเตเดธเต
- เดเดฆเดพเดนเดฐเดฃเด:
- เดธเดพเดงเดพเดฐเดฃเดฏเดพเดฏเดฟ เดชเตเดฐเตเดเตเดฐเดพเด เดเตเดกเต เดนเตเดฒเตเดฑเตเดฑเต เดเตเดฏเตเดฏเดพเตป เดเดชเดฏเตเดเดฟเดเตเดเตเดจเตเดจ เดฎเตเดฃเตเดธเตเดชเตเดธเต เดซเตเดฃเตเดเต, เด
เดชเตเดชเตเดธเตเดเตเดฐเตเดซเดฟเดธเต เดเดชเดฏเตเดเดฟเดเตเดเดพเดฃเต เดตเตเดฏเดเตเดคเดฎเดพเดเตเดเดฟเดฏเดฟเดฐเดฟเดเตเดเตเดจเตเดจเดคเต - `:
- เดเดฆเดพเดนเดฐเดฃเด: `เดฎเตเดฃเตเดธเตเดชเตเดธเต เดซเตเดฃเตเดเต`
- เดซเดฒเดฎเดพเดฏเดฟ:
ะผะพะฝะพัะธัะธะฝะฝัะน ััะธัั
HTML เดฎเดพเตผเดเตเดเตเด
เดชเตเดชเต เดซเตเตผเดฎเดพเดฑเตเดฑเต เดเตเดฏเตเดฏเตเดจเตเดจเดคเดฟเดจเตเดณเตเดณ เด
เดเดฟเดธเตเดฅเดพเดจเดเตเดเตพ:
HTML-เตฝ, เดเดพเดเตเดเดณเดฟเตฝ เดนเตเดฒเตเดฑเตเดฑเต เดเตเดฏเตเดฏเตเดฃเตเด เดเตเดเตเดธเตเดฑเตเดฑเดฟเดจเตเดฑเต เดญเดพเดเด เดจเดฟเดเตเดเตพ เดชเตเดคเดฟเดฏเตเดจเตเดจเต, เดเดฆเดพเดนเดฐเดฃเดคเตเดคเดฟเดจเต <ัะตะณ>ัะตะบัั</ัะตะณ>
.
- <tag> - เดคเตเดฑเดเตเดเตเดจเตเดจ เดเดพเดเต
- - เดเตเดฒเตเดธเดฟเดเดเต เดเดพเดเต
HTML เดฎเดพเตผเดเตเดเตเด เดชเตเดชเต เดเดพเดเตเดเตพ
<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"
)
เด. เดเดฆเดพเดนเดฐเดฃเดคเตเดคเดฟเดจเต เดฐเตเดคเดฟ เดเดชเดฏเตเดเดฟเดเตเดเต sendPhoto()
เดชเดพเดเตเดเตเดเต เดเดชเดฏเตเดเดฟเดเตเดเต เดจเดฟเดเตเดเตพ เดธเตเดทเตเดเดฟเดเตเด เดเดฐเต เดเดฎเตเดเดพเดฏเดฟ เดธเดเดฐเดเตเดทเดฟเดเตเดเดฟเดฐเดฟเดเตเดเตเดจเตเดจ เดเดฐเต เดเตเดฐเดพเดซเต เดจเดฟเดเตเดเตพเดเตเดเต เด
เดฏเดฏเตเดเตเดเดพเตป เดเดดเดฟเดฏเตเด ggplot2
.
เดตเดฟเตปเดกเตเดธเต เดเดพเดธเตเดเต เดทเตเดกเตเดฏเตเดณเตผ เดชเดฐเดฟเดถเตเดงเดฟเดเตเดเต เด เดธเดพเดงเดพเดฐเดฃเดฎเดพเดฏเดฟ เด เดตเดธเดพเดจเดฟเดชเตเดชเดฟเดเตเด เดเดพเดธเตเดเตเดเตเดเดณเตเดเตเดเตเดฑเดฟเดเตเดเตเดณเตเดณ เด เดฑเดฟเดฏเดฟเดชเตเดชเตเดเตพ เด เดฏเดฏเตเดเตเดเตเดจเตเดจเต
เดตเดฟเตปเดกเตเดธเต เดเดพเดธเตเดเต เดทเตเดกเตเดฏเตเดณเดฑเตเดฎเดพเดฏเดฟ เดชเตเดฐเดตเตผเดคเตเดคเดฟเดเตเดเดพเตป เดจเดฟเดเตเดเตพ เดชเดพเดเตเดเตเดเต เดเตปเดธเตเดฑเตเดฑเดพเตพ เดเตเดฏเตเดฏเตเดฃเตเดเดคเตเดฃเตเดเต taskscheduleR
, เดเตเดเดพเดคเต เดกเดพเดฑเตเดฑเดฏเตเดฎเดพเดฏเดฟ เดชเตเดฐเดตเตผเดคเตเดคเดฟเดเตเดเดพเดจเตเดณเตเดณ เดธเตเดเดฐเตเดฏเดคเตเดคเดฟเดจเดพเดฏเดฟ, เดชเดพเดเตเดเตเดเต เดเตปเดธเตเดฑเตเดฑเดพเตพ เดเตเดฏเตเดฏเตเด dplyr
.
# ะฃััะฐะฝะพะฒะบะฐ ะฟะฐะบะตัะพะฒ
install.packages(c('taskscheduleR', 'dplyr'))
# ะะพะดะบะปััะตะฝะธะต ะฟะฐะบะตัะพะฒ
library(taskscheduleR)
library(dplyr)
เด
เดเตเดคเตเดคเดคเดพเดฏเดฟ, เดซเดเดเตเดทเตป เดเดชเดฏเตเดเดฟเดเตเดเตเดจเตเดจเต taskscheduler_ls()
เดเดเตเดเดณเตเดเต เดทเตเดกเตเดฏเตเดณเดฑเดฟเตฝ เดจเดฟเดจเตเดจเต เดเดพเดธเตโเดเตเดเตเดเดณเตเดเตเดเตเดฑเดฟเดเตเดเตเดณเตเดณ เดตเดฟเดตเดฐเดเตเดเตพ เดเดเตเดเตพ เด
เดญเตเดฏเตผเดคเตเดฅเดฟเดเตเดเตเดจเตเดจเต. เดซเดเดเตเดทเตป เดเดชเดฏเตเดเดฟเดเตเดเตเดจเตเดจเต 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
เดชเดฐเดพเดเดฏเดชเตเดชเตเดเตเด เดเดพเดธเตเดเตเดเตเดเดณเตเดเต เดเดฐเต เดฒเดฟเดธเตเดฑเตเดฑเต เดเดเตเดเดณเตเดเต เดชเดเตเดเดฒเตเดฃเตเดเต, เด เดฒเดฟเดธเตเดฑเตเดฑเต เดเตเดฒเดฟเดเตเดฐเดพเดฎเดฟเดฒเตเดเตเดเต เด
เดฏเดฏเตโเดเตเดเตเดฃเตเดเดคเตเดฃเตเดเต.
เดจเดฎเตเดฎเตพ เดเดฐเต เดเดฎเดพเตปเดกเตเด เดเตเดเตเดคเตฝ เดตเดฟเดถเดฆเดฎเดพเดฏเดฟ เดจเตเดเตเดเตเดเดฏเดพเดฃเตเดเตเดเดฟเตฝ:
filter()
- เดฎเตเดเดณเดฟเตฝ เดตเดฟเดตเดฐเดฟเดเตเด เดตเตเดฏเดตเดธเตเดฅเดเตพเดเตเดเดจเตเดธเตเดคเดฎเดพเดฏเดฟ เดเดพเดธเตเดเตเดเตเดเดณเตเดเต เดฒเดฟเดธเตเดฑเตเดฑเต เดซเดฟเตฝเดเตเดเตผ เดเตเดฏเตเดฏเตเดจเตเดจเตselect()
- เดเดพเดธเตเดเตเดเตเดเดณเตเดเต เดชเตเดฐเดฟเดจเตเดชเตเดชเด เดชเดเตเดเดฟเดเดฏเดฟเตฝ เดเดฐเต เดซเตเตฝเดกเต เดฎเดพเดคเตเดฐเด เด เดตเดถเตเดทเดฟเดเตเดเตเดจเตเดจเตunique()
- เดคเดจเดฟเดชเตเดชเดเตผเดชเตเดชเต เดชเตเดฐเตเดเตพ เดจเตเดเตเดเดเดเตเดฏเตเดฏเตเดจเตเดจเตunlist()
- เดคเดฟเดฐเดเตเดเตเดเตเดคเตเดค เดชเดเตเดเดฟเด เดจเดฟเดฐเดฏเต เดตเตเดเตโเดเดฑเดพเดเตเดเดฟ เดฎเดพเดฑเตเดฑเตเดจเตเดจเตpaste0()
- เดเดพเดธเตเดเตเดเตเดเดณเตเดเต เดชเตเดฐเตเดเตพ เดเดฐเต เดตเดฐเดฟเดฏเดฟเดฒเตเดเตเดเต เดฌเดจเตเดงเดฟเดชเตเดชเดฟเดเตเดเตเดจเตเดจเต, เดเตเดเดพเดคเต เดเดฐเต เดฒเตเตป เดซเตเดกเต เดเดฐเต เดธเตเดชเตเดชเดฑเตเดฑเตเดฑเดฑเดพเดฏเดฟ เดเดเตเดจเตเดจเต, เด เดคเดพเดฏเดคเต.n
.
เด เดซเดฒเด เดเตเดฒเดฟเดเตเดฐเดพเด เดตเดดเดฟ เด เดฏเดฏเตเดเตเดเตเด เดฎเดพเดคเตเดฐเดฎเดพเดฃเต เดเดเตเดเตพเดเตเดเต เด เดตเดถเตเดทเดฟเดเตเดเตเดจเตเดจเดคเต.
bot$sendMessage(chat_id,
text = task,
parse_mode = "Markdown"
)
เด เดคเดฟเดจเดพเตฝ, เดเดชเตเดชเตเตพ เดฌเตเดเตเดเต เดเตเดกเต เดเดคเตเดชเตเดฒเต เดเดพเดฃเดชเตเดชเตเดเตเดจเตเดจเต:
เดเดพเดธเตโเดเต เดฑเดฟเดตเตเดฏเต เดฌเตเดเตเดเต เดเตเดกเต
# ะะพะดะบะปััะตะฝะธะต ะฟะฐะบะตัะฐ
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"
)
}
เดฎเตเดเดณเดฟเดฒเตเดณเตเดณ เดเดฆเดพเดนเดฐเดฃเด เดเดชเดฏเตเดเดฟเดเตเดเตเดฎเตเดชเตเตพ, เดจเดฟเดเตเดเดณเตเดเต เดฌเตเดเตเดเต เดเตเดเตเดเดฃเตเด เดจเดฟเดเตเดเดณเตเดเต เดเดพเดฑเตเดฑเต เดเดกเดฟเดฏเตเด เดเตเดกเดฟเดฒเตเดเตเดเต เดฎเดพเดฑเตเดฑเดฟเดธเตเดฅเดพเดชเดฟเดเตเดเตเด.
เดเดพเดธเตโเดเตเดเตเดเตพ เดซเดฟเตฝเดเตเดเตผ เดเตเดฏเตเดฏเตเดจเตเดจเดคเดฟเดจเดพเดฏเดฟ เดจเดฟเดเตเดเตพเดเตเดเต เดตเตเดฏเดตเดธเตเดฅเดเตพ เดเตเตผเดเตเดเดพเตป เดเดดเดฟเดฏเตเด, เดเดฆเดพเดนเดฐเดฃเดคเตเดคเดฟเดจเต, เดจเดฟเดเตเดเตพ เดธเตเดทเตโเดเดฟเดเตเด เดเดพเดธเตโเดเตเดเตเดเตพ เดฎเดพเดคเตเดฐเด เดชเดฐเดฟเดถเตเดงเดฟเดเตเดเตเด, เดธเดฟเดธเตเดฑเตเดฑเดคเตเดคเดฟเดฒเตเดณเตเดณเดต เดเดดเดฟเดเต.
เดจเดฟเดเตเดเตพเดเตเดเต เดเดฐเต เดชเตเดฐเดคเตเดฏเตเด เดเตเตบเดซเดฟเดเดฑเตเดทเตป เดซเดฏเดฒเดฟเดฒเตเดเตเดเต เดตเดฟเดตเดฟเดง เดเตเดฐเดฎเตเดเดฐเดฃเดเตเดเตพ เดเดเดพเดจเตเด เด
เดคเดฟเตฝ เดเดพเดฑเตเดฑเต เดเดกเดฟเดฏเตเด เดเตเดเตเดเดฃเตเด เดธเดเดญเดฐเดฟเดเตเดเดพเดจเตเด เดเดดเดฟเดฏเตเด. เดจเดฟเดเตเดเตพเดเตเดเต เดเตเตบเดซเดฟเดเดฑเตเดทเตป เดตเดพเดฏเดฟเดเตเดเดพเด, เดเดฆเดพเดนเดฐเดฃเดคเตเดคเดฟเดจเต, เดชเดพเดเตเดเตเดเต เดเดชเดฏเตเดเดฟเดเตเดเต configr
.
เดเดฆเดพเดนเดฐเดฃเด ini เดเตเตบเดซเดฟเดเดฑเตเดทเตป
[telegram_bot]
;ะฝะฐัััะพะนะบะธ ัะตะปะตะณัะฐะผ ะฑะพัะฐ ะธ ัะฐัะฐ, ะฒ ะบะพัะพััะน ะฑัะดัั ะฟัะธั
ะพะดะธัั ัะฒะตะดะพะผะปะตะฝะธั
chat_id=12345678
bot_token=123456789:abcdefghijklmnopqrstuvwxyz"
R เดฒเต เดเตเตบเดซเดฟเดเดฑเดฟเตฝ เดจเดฟเดจเตเดจเตเดณเตเดณ เดตเตเดฐเดฟเดฏเดฌเดฟเดณเตเดเตพ เดตเดพเดฏเดฟเดเตเดเตเดจเตเดจเดคเดฟเดจเตเดณเตเดณ เดเดฐเต เดเดฆเดพเดนเดฐเดฃเด
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
เดเดพเดธเตโเดเต เดธเตเดเดพเดจเตเดเตพ เดชเตเดฐเดตเตผเดคเตเดคเดฟเดชเตเดชเดฟเดเตเดเตเดจเตเดจเดคเดฟเดจเต เดเดฐเต เดทเตเดกเตเดฏเตเตพ เดธเดเตเดเตเดเดฐเดฟเดเตเดเตเดจเตเดจเต
เดเดฐเต เดทเตเดกเตเดฏเตเดณเดฟเตฝ เดธเตเดเตเดฐเดฟเดชเตเดฑเตเดฑเตเดเดณเตเดเต เดฒเตเดเตเดเต เดธเดเตเดเตเดเดฐเดฟเดเตเดเตเดจเตเดจ เดชเตเดฐเดเตเดฐเดฟเดฏ เดเดคเดฟเตฝ เดเตเดเตเดคเตฝ เดตเดฟเดถเดฆเดฎเดพเดฏเดฟ เดตเดฟเดตเดฐเดฟเดเตเดเดฟเดฐเดฟเดเตเดเตเดจเตเดจเต
เดจเดฎเตเดฎเตพ เดจเดฎเตเดฎเตเดเต เดฌเตเดเตเดเต เดเตเดกเต เดเดฐเต เดซเดฏเดฒเดฟเตฝ เดธเตเดตเต เดเตเดฏเตเดคเต เดเดจเตเดจเต เดเดฐเตเดคเตเด check_bot.R
. เด เดซเดฏเตฝ เดชเดคเดฟเดตเดพเดฏเดฟ เดฑเตบ เดเตเดฏเตเดฏเดพเตป เดทเตเดกเตเดฏเตเตพ เดเตเดฏเตเดฏเดพเตป, เด เดเดเตเดเดเตเดเตพ เดชเดพเดฒเดฟเดเตเดเตเด:
- เดชเดพเดคเตเดคเต เดธเดฟเดธเตเดฑเตเดฑเด เดตเตเดฐเดฟเดฏเดฌเดฟเดณเดฟเตฝ R เดเตปเดธเตเดฑเตเดฑเดพเตพ เดเตเดฏเตเดคเดฟเดฐเดฟเดเตเดเตเดจเตเดจ เดซเตเตพเดกเดฑเดฟเดฒเตเดเตเดเตเดณเตเดณ เดชเดพเดคเตเดคเต เดเดดเตเดคเตเด; เดตเดฟเตปเดกเตเดธเดฟเตฝ, เดชเดพเดคเตเดคเต เดเดคเตเดชเตเดฒเตเดฏเดพเดฏเดฟเดฐเดฟเดเตเดเตเด:
C:Program FilesRR-4.0.2bin
. - เดเดฐเต เดฒเตเตป เดเดชเดฏเตเดเดฟเดเตเดเต เดเดเตเดธเดฟเดเตเดฏเตเดเตเดเดฌเดฟเตพ เดฌเดพเดฑเตเดฑเต เดซเดฏเตฝ เดธเตเดทเตเดเดฟเดเตเดเตเด
R CMD BATCH C:rscriptscheck_botcheck_bot.R
. เดฎเดพเดฑเตเดฑเดฟเดธเตเดฅเดพเดชเดฟเดเตเดเตเดC:rscriptscheck_botcheck_bot.R
เดจเดฟเดเตเดเดณเตเดเต R เดซเดฏเดฒเดฟเดฒเตเดเตเดเตเดณเตเดณ เดชเตเตผเดฃเตเดฃ เดชเดพเดคเดฏเดฟเดฒเตเดเตเดเต. - เด เดเตเดคเตเดคเดคเดพเดฏเดฟ, เดเดฐเต เดฒเตเดเตเดเต เดทเตเดกเตเดฏเตเตพ เดธเดเตเดเตเดเดฐเดฟเดเตเดเดพเตป เดตเดฟเตปเดกเตเดธเต เดเดพเดธเตเดเต เดทเตเดกเตเดฏเตเดณเตผ เดเดชเดฏเตเดเดฟเดเตเดเตเด, เดเดฆเดพเดนเดฐเดฃเดคเตเดคเดฟเดจเต, เดเดฐเต เด เดฐ เดฎเดฃเดฟเดเตเดเตเดฑเดฟเดฒเตเด.
เดคเตเดฐเตเดฎเดพเดจเด
เด เดฒเตเดเดจเดคเตเดคเดฟเตฝ, เดเดฐเต เดฌเตเดเตเดเต เดเดเตเดเดจเต เดธเตเดทเตเดเดฟเดเตเดเดพเดฎเตเดจเตเดจเตเด เดเตเดฒเดฟเดเตเดฐเดพเดฎเดฟเตฝ เดตเดฟเดตเดฟเดง เด เดฑเดฟเดฏเดฟเดชเตเดชเตเดเตพ เด เดฏเดฏเตเดเตเดเดพเตป เด เดคเต เดเดเตเดเดจเต เดเดชเดฏเตเดเดฟเดเตเดเดพเดฎเตเดจเตเดจเตเด เดเดเตเดเตพ เดเดฃเตเดเตเดคเตเดคเดฟ.
เดตเดฟเตปเดกเตเดธเต เดเดพเดธเตเดเต เดทเตเดกเตเดฏเตเดณเตผ เดจเดฟเดฐเตเดเตเดทเดฟเดเตเดเตเดจเตเดจเดคเดฟเดจเตเดณเตเดณ เดเตเดฎเดคเดฒ เดเดพเตป เดตเดฟเดตเดฐเดฟเดเตเดเต, เดเดจเตเดจเดพเตฝ เดเดพเดฒเดพเดตเดธเตเดฅเดพ เดชเตเดฐเดตเดเดจเด เดฎเตเดคเตฝ เดธเตเดฑเตเดฑเตเดเตเดเต เดเดเตเดธเตเดเตเดเตเดเดฟเดฒเต เดธเตเดฑเตเดฑเตเดเตเดเต เดเดฆเตเดงเดฐเดฃเดฟเดเตพ เดตเดฐเต เดเดคเตเดเตเดเดฟเดฒเตเด เด เดฑเดฟเดฏเดฟเดชเตเดชเตเดเตพ เด เดฏเดฏเตเดเตเดเดพเตป เดจเดฟเดเตเดเตพเดเตเดเต เด เดฒเตเดเดจเดคเตเดคเดฟเดฒเต เดฎเตเดฑเตเดฑเตเดฐเดฟเดฏเตฝ เดเดชเดฏเตเดเดฟเดเตเดเดพเด. เดงเดพเดฐเดพเดณเด เดกเดพเดฑเตเดฑ เดเดฑเดตเดฟเดเดเตเดเดณเดฟเดฒเตเดเตเดเต เดเดฃเดเตเดฑเตเดฑเตเดเตเดฏเตเดฏเดพเตป R เดจเดฟเดเตเดเดณเต เด เดจเตเดตเดฆเดฟเดเตเดเตเดจเตเดจเต.
เด เดเตเดคเตเดค เดฒเตเดเดจเดคเตเดคเดฟเตฝ, เดฌเตเดเตเดเดฟเดฒเตเดเตเดเต เดเดฎเดพเตปเดกเตเดเดณเตเด เดเดฐเต เดเตเดฌเตเตผเดกเตเด เดเดเตเดเดจเต เดเตเตผเดเตเดเดพเดฎเตเดจเตเดจเต เดเดเตเดเตพ เดเดฃเตเดเตเดคเตเดคเตเด, เด เดคเตเดตเดดเดฟ เด เดฑเดฟเดฏเดฟเดชเตเดชเตเดเตพ เด เดฏเดฏเตเดเตเดเดพเตป เดฎเดพเดคเตเดฐเดฎเดฒเตเดฒ, เดเตเดเตเดคเตฝ เดธเดเตเดเตเตผเดฃเตเดฃเดฎเดพเดฏ เดชเตเดฐเดตเตผเดคเตเดคเดจเดเตเดเตพ เดจเดเดคเตเดคเดพเดจเตเด เดเดดเดฟเดฏเตเด.
เด เดตเดฒเดเดฌเด: www.habr.com