ะ Bot
เปเบฅเบฐเบเบธเปเบเปเบเบตเบเบเบฑเบเบงเบดเบเบตเบเบฒเบเบชเบปเปเบเบเปเปเบเบงเบฒเบกเปเบเบเปเบเปเบกเบฑเบ.
เปเบเบเบปเบเบเบงเบฒเบกเบเบตเปเบเปเบฒเบเบฐเปเบเบปเปเบฒเบชเบทเบเบเปเปเบซเบปเบงเบเปเปเบเบตเป, เบชเบฐเบเบฑเปเบเบเปเบฒเบเบฐเปเบเบปเปเบฒเปเบเบฐเบเปเบฒเปเบซเปเปเบฅเบตเปเบกเบเบปเปเบเบญเปเบฒเบเบเบปเบเบเบงเบฒเบกเบเบตเปเบเบฝเบเปเบเปเบซเบผเบฑเบเบเบฒเบเบญเปเบฒเบ
เปเบงเบฅเบฒเบเบตเปเบเบงเบเปเบฎเบปเบฒเบเบฐเบเบดเบเบงเบดเบเบตเบเบฒเบเบเบทเปเบเบเบน bot เบเบญเบเบเบงเบเปเบฎเบปเบฒเปเบฅเบฐเปเบเบตเปเบกเบเบฒเบเบชเบฐเบซเบเบฑเบเบชเบฐเบซเบเบนเบเบเปเบฒเบชเบฑเปเบเบเบฑเบเบกเบฑเบ, เปเบฅเบฐเบเบฑเบเบฎเบนเปเบเบฑเบเบเบฑเบเบซเปเบญเบเบฎเบฝเบ. Updater
.
เปเบเบฅเบฐเบซเบงเปเบฒเบเบเบปเบเบเบงเบฒเบก, เบเบงเบเปเบฎเบปเบฒเบเบฐเบเบฝเบ bots เบเปเบฒเบเบเบฒเบเบซเบผเบฒเบ, เบชเบธเบเบเปเบฒเบเบเบฐ, เบญเบตเบเบเบฒเบกเบงเบฑเบเบเบตเปเบฅเบฐเบฅเบฐเบซเบฑเบเบเบฐเปเบเบ, เบเปเบฒเบเบปเบเบงเปเบฒเบกเบทเปเปเบเบเบฐเปเบเบเปเบเบซเบเบถเปเบเปเบกเปเบเบเปเบฒเบเบญเบฒเบเบดเบเบซเบผเบทเบกเบทเปเปเบฎเบฑเบเบงเบฝเบเบเบฒเบกเบเบฐเบเบดเบเบดเบเบเบฒเบเบเบฐเบฅเบดเบ. เปเบเป, เบเบฑเปเบเบเบตเปเบเปเบฒเบเบกเบฒ, เบเบธเบเบเบฐเบชเบปเบเบเบญเบเบเบปเบเบเบงเบฒเบกเปเบกเปเบเปเบเบทเปเบญเบเบธเปเบเปเบเบตเบเบเบฑเบเบเบฒเบเปเบเปเบเบญเบเบเบญเบเบเบธเบ telegram.bot
เปเบเบทเปเบญเปเบเปเปเบเบเบฑเบเบซเบฒเบเบญเบเบเปเบฒเบเปเบญเบ.
เบเบปเบเบเบงเบฒเบกเบเบฑเบเบซเบกเบปเบเบเบฒเบเบเบธเบ "เบเบฝเบเปเบเบฅเบฐเปเบฅเบ bot เปเบ R"
เบเบงเบเปเบฎเบปเบฒเบชเปเบฒเบ bot เปเบฅเบฐเปเบเปเบกเบฑเบเปเบเบทเปเบญเบชเบปเปเบเบเปเปเบเบงเบฒเบกเปเบ telegram เปเบเบตเปเบกเบเบฒเบเบชเบฐเบซเบเบฑเบเบชเบฐเบซเบเบนเบเบเปเบฒเบชเบฑเปเบเปเบฅเบฐเบเบฒเบเบเบฑเปเบเบเบญเบเบเปเปเบเบงเบฒเบกเปเบชเป bot
เปเบเบทเปเบญเปเบ
เบเปเบฒเบเปเบฒเบเบชเบปเบเปเบเปเบเบเบฒเบเบงเบดเปเบเบฒเบฐเบเปเปเบกเบนเบ, เบเปเบฒเบเบญเบฒเบเบเบฐเบชเบปเบเปเบเบเบญเบเบเปเบญเบ
เบซเปเบญเบเบฎเบฝเบเบญเบฑเบเปเบเบ Handlers - handlers เปเบเบตเปเบกเบเปเบฒเบชเบฑเปเบเบเปเบฒเบญเบดเบเบเบฑเบ bot, เบเบปเบงเบเบฑเบเบเบฒเบเบเปเบฒเบชเบฑเปเบ เบเบปเบงเบเบฐเบกเบงเบเบเบปเบเบเปเปเบเบงเบฒเบก เปเบฅเบฐเบเบปเบงเบเบญเบ เปเบเบตเปเบกเบเปเบฒเบชเบฑเปเบเบเบตเปเบกเบตเบเบฒเบฅเบฒเบกเบดเปเบเบต เบเปเบฒเปเบเบตเบเบเบฒเบ bot เปเบเบเบทเปเบเบซเบฅเบฑเบ เบชเบฐเบซเบฅเบธเบ
เบซเปเบญเบเบฎเบฝเบเบญเบฑเบเปเบเบ
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 เบเปเบฒเบเบเบฒเบเบเบฑเปเบเบเปเบฒเบงเบชเบฒเบกเบฒเบเปเบเปเบฎเบฑเบเบเบฒเบเบชเบฐเปเบเบเบเบฑเปเบเบเปเปเปเบเบเบตเป.
- เบชเปเบฒเบเบเบปเบงเบขเปเบฒเบเบเบญเบเบเบฑเปเบเบฎเบฝเบ
Updater
; - เบเบงเบเปเบฎเบปเบฒเบชเปเบฒเบเบงเบดเบเบตเบเบฒเบ, i.e. เบซเบเปเบฒเบเบตเป bot เบเบญเบเบเบงเบเปเบฎเบปเบฒเบเบฐเบเบฐเบเบดเบเบฑเบ. เปเบเบเบปเบงเบขเปเบฒเบเบฅเบฐเบซเบฑเบเบเบตเปเปเบกเปเบเบซเบเปเบฒเบเบตเป
say_hello()
. เบซเบเปเบฒเบเบตเปเบเบตเปเปเบเบปเปเบฒเบเบฐเปเบเปเปเบเบฑเบเบงเบดเบเบตเบเบฒเบ bot เบเปเบญเบเบกเบตเบชเบญเบเบเบฒเบเปเบเปเบเบฝเบเบเบตเปเบเปเบญเบเบเบฒเบ - bot ะธ เบเบฒเบเบเบฑเบเบเบธเบ, เปเบฅเบฐเบซเบเบถเปเบเบเบฒเบเปเบฅเบทเบญเบ - เปเบเปเบเบฝเบ. เบเบฒเบเปเบเปเบเบฝเบ bot, เบเบตเปเปเบกเปเบ bot เบเบญเบเบเปเบฒเบ, เบเปเบงเบเบเบฒเบเบเปเบงเบเปเบซเบผเบทเบญเบเบญเบเบกเบฑเบเบเปเบฒเบเบชเบฒเบกเบฒเบเบเบญเบเบเบฑเบเบเปเปเบเบงเบฒเบก, เบชเบปเปเบเบเปเปเบเบงเบฒเบก, เบซเบผเบทเปเบเปเบงเบดเบเบตเบเบฒเบเบญเบทเปเบเปเบเบตเปเบกเบตเปเบซเปเบเบฑเบ bot. เบเบฒเบเปเบเปเบเบฝเบ เบเบฒเบเบเบฑเบเบเบธเบ เบเบตเปเปเบกเปเบเบชเบดเปเบเบเบตเป bot เปเบเปเบฎเบฑเบเบเบฒเบเบเบนเปเปเบเป, เปเบเบเบงเบฒเบกเปเบเบฑเบเบเบดเบ, เบชเบดเปเบเบเบตเปเบเบงเบเปเบฎเบปเบฒเปเบเปเบฎเบฑเบเปเบเบเบปเบเบเบงเบฒเบกเบเปเบฒเบญเบดเบเปเบเบเปเบเปเบงเบดเบเบตเบเบฒเบgetUpdates()
. เบเบฒเบเปเบเปเบเบฝเบ เปเบเปเบเบฝเบ เบญเบฐเบเบธเบเบฒเบเปเบซเปเบเปเบฒเบเบเบธเบเปเบเปเบเบเปเปเบกเบนเบเปเบเบตเปเบกเปเบเบตเบกเบเบตเปเบชเบปเปเบเปเบเบเบเบนเปเปเบเปเบเปเบญเบกเบเบฑเบเบเปเบฒเบชเบฑเปเบ, เบเบงเบเปเบฎเบปเบฒเบเบฐเบเบฑเบเบเบทเบเปเบเบซเบฒเบซเบปเบงเบเปเปเบเบตเปเปเบฅเบฑเบเบเปเบญเบเบเปเปเบกเบฒ; - เบเบงเบเปเบฎเบปเบฒเบชเปเบฒเบเบเบปเบงเบเบฑเบเบเบฒเบ, i.e. เบเบงเบเปเบฎเบปเบฒเปเบเบทเปเบญเบกเปเบเบเบเบฒเบเบเบฒเบเบเบฐเบเปเบฒเบเบญเบเบเบนเปเปเบเปเบเบฑเบเบงเบดเบเบตเบเบฒเบเบเบตเปเบชเปเบฒเบเบเบถเปเบเปเบเบเบฑเปเบเบเบญเบเบเบตเปเบเปเบฒเบเบกเบฒ. เปเบเบเบเบทเปเบเบเบฒเบเปเบฅเปเบง, เบเบปเบงเบเบฑเบเบเบฒเบเปเบกเปเบเบเบปเบงเบเบฐเบเบธเปเบ, เปเบซเบเบเบฒเบเบเบตเปเปเบญเบตเปเบเบเบฒเบเบซเบเปเบฒเบเบตเป bot. เปเบเบเบปเบงเบขเปเบฒเบเบเบญเบเบเบงเบเปเบฎเบปเบฒ, เบเบปเบงเบเบฐเบเบธเปเบเบเบฑเปเบเบเปเบฒเบงเบเปเบฒเบฅเบฑเบเบชเบปเปเบเบเปเบฒเบชเบฑเปเบ
/hi
, เปเบฅเบฐเบเบทเบเบเบฐเบเบดเบเบฑเบเปเบเบเบเบตเบกเบเบฒเบhi_hendler <- CommandHandler('hi', say_hello)
. เบเบฒเบเปเบเปเบเบฝเบเบเบฒเบเบเปเบฒเบเบฒเบเบเปเบฒเบญเบดเบCommandHandler()
เบญเบฐเบเบธเบเบฒเบเปเบซเปเบเปเบฒเบเบฅเบฐเบเบธเบเปเบฒเบชเบฑเปเบ, เปเบเบเปเบฅเบฐเบเบตเบเบญเบเบเบงเบเปเบฎเบปเบฒhi
, เบเบตเป bot เบเบฐเบเบญเบเบชเบฐเบซเบเบญเบ. เบเบฒเบเปเบเปเบเบฝเบเบเบตเบชเบญเบเบญเบฐเบเบธเบเบฒเบเปเบซเปเบเปเบฒเบเบฅเบฐเบเบธเบงเบดเบเบตเบเบฒเบ bot, เบเบงเบเปเบฎเบปเบฒเบเบฐเปเบเบซเบฒเบงเบดเบเบตเบเบฒเบsay_hello
, เปเบเบดเปเบเบเบฐเบเบทเบเบเบฐเบเบดเบเบฑเบเบเปเบฒเบเบนเปเปเบเปเปเบญเบตเปเบเบงเปเบฒเบเปเบฒเบชเบฑเปเบเบเบตเปเบฅเบฐเบเบธเปเบงเปเปเบ argument เบเปเบฒเบญเบดเบ; - เบเปเปเปเบ, เบเบงเบเปเบฎเบปเบฒเปเบเบตเปเบกเบเบปเบงเบเบฑเบเบเบฒเบเบเบตเปเบชเปเบฒเบเบเบถเปเบเปเบชเปเบเบปเบงเบชเบปเปเบเบเบญเบเบเบปเบงเบขเปเบฒเบเบซเปเบญเบเบฎเบฝเบเบเบญเบเบเบงเบเปเบฎเบปเบฒ
Updater
. เปเบเบปเปเบฒเบชเบฒเบกเบฒเบเปเบเบตเปเบกเบเบปเบงเบเบฑเบเบเบฒเบเปเบเปเบซเบผเบฒเบเบงเบดเบเบต; เปเบเบเบปเบงเบขเปเบฒเบเบเปเบฒเบเปเบเบดเบ, เบเปเบญเบเปเบเปเปเบเบเบเบตเปเบเปเบฒเบเบเบฒเบเบเบตเปเบชเบธเบ, เปเบเบเปเบเปเปเบเบทเปเบญเบเบซเบกเบฒเบ+
, i.e.updater <- updater + hi_hendler
. เบเบฝเบงเบเบฑเบเบชเบฒเบกเบฒเบเปเบฎเบฑเบเปเบเปเปเบเบเปเบเปเบงเบดเบเบตเบเบฒเบadd_handler()
, เบเบถเปเบเปเบเบฑเบเบเบญเบเบซเปเบญเบเบฎเบฝเบDispatcher
, เบเปเบฒเบโเบชเบฒโเบกเบฒเบโเบเบญเบโเบซเบฒโเบงเบดโเบเบตโเบเบฒเบโเบเบฑเปเบโเบเบตเปโ:updater$dispatcher$add_handler()
; - เปเบเบตเบเปเบเป 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 เบเบฐเบเบดเบเบดเบเบเบฒเบเบเบฐเบฅเบดเบ
เบฅเบฐเบซเบฑเบ 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 เบเบตเปเบญเบฐเบเบดเบเบฒเบเบเปเบฒเบเบฅเบธเปเบกเบเบตเป:
- เบเบฑเบเบเบถเบเบฅเบฐเบซเบฑเบ bot เบเบฑเบเปเบเบฅเปเบเบตเปเบกเบตเบเบฒเบกเบชเบฐเบเบธเบ R. เปเบกเบทเปเบญเปเบฎเบฑเบเบงเบฝเบเบขเบนเปเปเบ RStudio, เบเบตเปเปเบกเปเบเปเบฎเบฑเบเบเปเบฒเบเปเบกเบเบน เปเบญเบเบฐเบชเบฒเบ, เบเบตเบกเบเบฒเบ เบเบฑเบเบเบถเบเปเบเบฑเบ ....
- เปเบเบตเปเบกเปเบชเบฑเปเบเบเบฒเบเปเบเบซเบฒเปเบเปเบเบต bin, เปเบเบดเปเบเบขเบนเปเปเบเปเบเบเปเบเบตเบเบตเปเปเบเบปเปเบฒเบเบดเบเบเบฑเปเบเบเบฒเบชเบฒ R, เปเบเบซเบฒเบเบปเบงเปเบ Path, เบเปเบฒเปเบเบฐเบเปเบฒ.
เบเบตเปเบเบตเป . - เบชเปเบฒเบเปเบเบฅเปเบเปเปเบเบงเบฒเบกเบเบปเบเบเบฐเบเบดเบเบตเปเบเบฝเบ 1 เปเบเบง:
R CMD BATCH C:UsersAlseyDocumentsmy_bot.R
. เปเบเบโเบเบตเป C:UsersAlseyDocumentsmy_bot.R เบเบฝเบเปเบชเบฑเปเบเบเบฒเบเปเบเบซเบฒ bot script เบเบญเบเบเปเบฒเบ. เปเบเปเบงเบฅเบฒเบเบฝเบงเบเบฑเบ, เบกเบฑเบเปเบเบฑเบเบชเบดเปเบเบชเปเบฒเบเบฑเบเบเบตเปเบเปเปเบกเบตเบเบปเบงเบญเบฑเบเบชเบญเบ Cyrillic เบซเบผเบทเบเปเบญเบเบซเบงเปเบฒเบเบเบฒเบกเบเบฒเบ, เปเบเบฒเบฐเบงเปเบฒ เบเบตเปเบญเบฒเบเบเบฐเปเบฎเบฑเบเปเบซเปเปเบเบตเบเบเบฑเบเบซเบฒเปเบเปเบงเบฅเบฒเปเบฅเปเบ bot. เบเบฑเบเบเบถเบเบกเบฑเบ, เปเบฅเบฐเบเปเบฝเบเปเบเบเบชเปเบงเบเบเบฐเบซเบเบฒเบเบเบญเบเบกเบฑเบเบเปเบงเบ txt เบชเบธเบ bat. - เปเบเบตเบ Windows Task Scheduler, เบกเบตเบซเบผเบฒเบเบงเบดเบเบตเบเบตเปเบเบฐเปเบฎเบฑเบเปเบเบฑเปเบเบเบตเป, เปเบเบตเบเปเบเบเปเบเบตเปเบเบเบถเปเบเปเบฅเบฐเปเบชเปเบเบตเปเบขเบนเป.
%windir%system32taskschd.msc /s
. เบงเบดเบเบตเบเบฒเบเปเบเบตเบเบเบปเบงเบญเบทเปเบเปเบชเบฒเบกเบฒเบเบเบปเบเปเบเปเบเบตเปเบเบตเป . - เปเบเปเบกเบเบนเบเบงเบฒเปเบเบดเบเบเบญเบเบเบฒเบเบฐเบฅเบฒเบ, เปเบซเปเบเบฅเบดเบเปเบชเป "เบชเปเบฒเบเบซเบเปเบฒเบงเบฝเบ ... ".
- เปเบเปเบเบ "เบเบปเปเบงเปเบ", เปเบซเปเบซเบเปเบฒเบงเบฝเบเบเบญเบเบเปเบฒเบเปเบเบฑเบเบเบทเปเบเบตเปเบเปเบฒเบซเบเบปเบเปเบญเบ, เปเบฅเบฐเบเปเบฝเบเบชเบฐเบซเบผเบฑเบเบเบฑเบเบชเบฐเบเบฒเบเบฐ "เปเบฅเปเบเบชเปเบฒเบฅเบฑเบเบเบนเปเปเบเปเบเบฑเบเบซเบกเบปเบ".
- เปเบเบเบตเปเปเบเบ "เบเบฐเบเบดเบเบฑเบ", เปเบซเปเบเบฅเบดเบเปเบชเป "เบชเปเบฒเบ". เปเบเบเบฒเบเบชเบฐเบซเบเบฒเบก "Program เบซเบผเบท script", เปเบซเปเบเบฅเบดเบเปเบชเป "Browse", เบเบญเบเบซเบฒเบเบตเปเบชเปเบฒเบเบเบถเปเบเปเบเบเบฑเปเบเบเบญเบเบเบตเบชเบญเบ bat เปเบเบฅเปเปเบฅเบฐเบเบปเบ OK.
- เบเบปเบ OK เปเบฅเบฐ, เบเปเบฒเบเปเบฒเปเบเบฑเบ, เปเบชเปเบฅเบฐเบซเบฑเบเบเปเบฒเบเบชเปเบฒเบฅเบฑเบเบเบฑเบเบเบตเบฅเบฐเบเบปเบเบเบฐเบเบดเบเบฑเบเบเบฒเบเบเบญเบเบเปเบฒเบ.
- เบเบญเบโเบซเบฒโเบงเบฝเบโเบเบฒเบโเบเบตเปโเบชเปเบฒเบโเบเบฑเปเบโเบเบถเปเบโเปเบโเบเปเบฒโเบเบปเบโเปเบงโเบฅเบฒโ, เปเบฅเบทเบญเบโเบกเบฑเบโเปเบฅเบฐโเบเบฅเบดเบโเปเบชเปโเบเบธเปเบก "Runโ" เปเบโเปเบโเบฅเบธเปเบกโเบเบงเบฒโ.
bot เบเบญเบเบเบงเบเปเบฎเบปเบฒเปเบฎเบฑเบเบงเบฝเบเบขเบนเปเปเบเบเบทเปเบเบซเบฅเบฑเบเปเบฅเบฐเบเบฐเปเบฎเบฑเบเบงเบฝเบเบเบปเบเบเบงเปเบฒเบเปเบฒเบเบเบฐเบขเบธเบเบงเบฝเบ, เบซเบผเบทเบเบดเบ PC เบซเบผเบทเปเบเบทเปเบญเบเปเบกเปเบเปเบฒเบเบเบญเบเบเปเบฒเบเบเบตเปเบกเบฑเบเบเบทเบเปเบเบตเบเบเบปเบง.
เบชเบฐเบซเบฅเบธเบ
เปเบเบเบปเบเบเบงเบฒเบกเบเบตเป, เบเบงเบเปเบฎเบปเบฒเปเบเปเบเบดเบเบงเบดเบเบตเบเบฒเบเบเบฝเบ bot เปเบเบฑเบกเบฎเบนเบเปเบเบเบเบตเปเบเปเปเบเบฝเบเปเบเปเบชเบฒเบกเบฒเบเบชเบปเปเบเบเปเปเบเบงเบฒเบก, เปเบเปเบเบฑเบเบเบญเบเบชเบฐเบซเบเบญเบเบเบฑเบเบเปเปเบเบงเบฒเบกเบเบตเปเปเบเบปเปเบฒเบกเบฒเปเบฅเบฐเบเปเบฒเบชเบฑเปเบ. เบเบงเบฒเบกเบฎเบนเปเบเบตเปเปเบเปเบฎเบฑเบเปเบกเปเบเบเบฝเบเบเปเปเบฅเปเบงเปเบเบทเปเบญเปเบเปเปเบเบเบฑเบเบซเบฒเบชเปเบงเบเปเบซเบเปเบเบญเบเปเบเบปเปเบฒ.
เบเบปเบเบเบงเบฒเบกเบเปเปเปเบเบเบฐเปเบงเบปเปเบฒเบเปเบฝเบงเบเบฑเบเบงเบดเบเบตเบเบฒเบเปเบเบตเปเบกเปเบเปเบเบเบดเบกเปเบชเป bot เบชเปเบฒเบฅเบฑเบเบเบฒเบเปเบฎเบฑเบเบงเบฝเบเบเบตเปเบชเบฐเบเบงเบเบเบงเปเบฒ.
เบเบญเบเบเบญเบเบเปเบญเบ
เปเบซเบผเปเบเบเปเปเบกเบนเบ: www.habr.com