ะ Bot
เช
เชจเซ เชคเซเชจเซ เชเชชเชฏเซเช เชเชฐเซเชจเซ เชธเชเชฆเซเชถเชพ เชฎเซเชเชฒเชตเชพเชจเซ เชชเชฆเซเชงเชคเชฟเชเชฅเซ เชชเชฐเชฟเชเชฟเชค เชฅเชฏเชพ.
เช เชฒเซเชเชฎเชพเช เชนเซเช เช เชตเชฟเชทเชฏ เชเชพเชฒเซ เชฐเชพเชเซเช เชเซเช, เชคเซเชฅเซ เชนเซเช เช เชฒเซเช เชตเชพเชเชเซเชฏเชพ เชชเชเซ เช เชตเชพเชเชเชตเชพเชจเซเช เชถเชฐเซ เชเชฐเชตเชพเชจเซ เชญเชฒเชพเชฎเชฃ เชเชฐเซเช เชเซเช
เช เชตเชเชคเซ เชเชชเชฃเซ เชเชชเชฃเชพ เชฌเซเชเชจเซ เชเซเชตเซ เชฐเซเชคเซ เชชเซเชจเชฐเซเชเซเชตเชฟเชค เชเชฐเชตเซเช เช
เชจเซ เชคเซเชฎเชพเช เชเชฎเชพเชจเซเชก เชธเชชเซเชฐเซเช เชเซเชตเซ เชฐเซเชคเซ เชเชฎเซเชฐเชตเซ เชคเซ เชถเซเชงเซเชถเซเช เช
เชจเซ เชตเชฐเซเช เชธเชพเชฅเซ เชชเชฐเชฟเชเชฟเชค เชชเชฃ เชฅเชเชถเซเช. Updater
.
เชฒเซเช เชฆเชฐเชฎเชฟเชฏเชพเชจ, เช
เชฎเซ เชเชฃเชพ เชธเชฐเชณ เชฌเซเชเซ เชฒเชเซเชถเซเช, เชฌเชพเชฆเชฎเชพเช เชเชชเซเชฒ เชคเชพเชฐเซเช เช
เชจเซ เชฆเซเชถเชจเชพ เชเซเชกเชจเชพ เชเชงเชพเชฐเซ, เชจเชฟเชฐเซเชงเชพเชฐเชฟเชค เชเชฐเชถเซ เชเซ เชเชชเซเชฒ เชฆเซเชถเชฎเชพเช เชเซเช เชฆเชฟเชตเชธ เชตเซเชเชเชจเซเชก เชเซ เชเซ เชชเซเชฐเซเชกเชเซเชถเชจ เชเซเชฒเซเชจเซเชกเชฐ เช
เชจเซเชธเชพเชฐ เชเชพเชฐเซเชฏเชเชพเชฐเซ เชฆเชฟเชตเชธ. เชชเชฐเชเชคเซ, เชชเชนเซเชฒเชพเชจเซ เชเซเชฎ, เชฒเซเชเชจเซ เชนเซเชคเซ เชคเชฎเชจเซ เชชเซเชเซเช เชเชจเซเชเชฐเชซเซเชธเชฅเซ เชชเชฐเชฟเชเชฟเชค เชเชฐเชตเชพเชจเซ เชเซ telegram.bot
เชคเชฎเชพเชฐเซ เชชเซเชคเชพเชจเซ เชธเชฎเชธเซเชฏเชพเช เชนเชฒ เชเชฐเชตเชพ เชฎเชพเชเซ.
"R เชฎเชพเช เชเซเชฒเชฟเชเซเชฐเชพเชฎ เชฌเซเช เชฒเชเชตเซเช" เชถเซเชฐเซเชฃเซเชจเชพ เชคเชฎเชพเชฎ เชฒเซเชเซ
เช เชฎเซ เชเช เชฌเซเช เชฌเชจเชพเชตเซเช เชเซเช เช เชจเซ เชคเซเชจเซ เชเชชเชฏเซเช เชเซเชฒเชฟเชเซเชฐเชพเชฎเชฎเชพเช เชธเชเชฆเซเชถเชพ เชฎเซเชเชฒเชตเชพ เชฎเชพเชเซ เชเชฐเซเช เชเซเช เชฌเซเชเชฎเชพเช เชเชฎเชพเชจเซเชก เชธเชชเซเชฐเซเช เช เชจเซ เชฎเซเชธเซเช เชซเชฟเชฒเซเชเชฐเซเชธ เชเชฎเซเชฐเซ
เช เชจเซเชเซเชฐเชฎเชฃเชฟเชเชพ
เชเซ เชคเชฎเชจเซ เชกเซเชเชพ เชตเชฟเชถเซเชฒเซเชทเชฃเชฎเชพเช เชฐเชธ เชนเซเชฏ, เชคเซ เชคเชฎเชจเซ เชฎเชพเชฐเชพเชฎเชพเช เชฐเชธ เชนเซเช เชถเชเซ เชเซ
เช เชชเชกเซเชเชฐ เชตเชฐเซเช เชนเซเชจเซเชกเชฒเชฐเซเชธ - เชนเซเชจเซเชกเชฒเชฐเซเชธ เชฌเซเช, เชเชฎเชพเชจเซเชก เชนเซเชจเซเชกเชฒเชฐเชฎเชพเช เชชเซเชฐเชฅเชฎ เชเชฆเซเชถ เชเชฎเซเชฐเซ เชเซเชเซเชธเซเช เชฎเซเชธเซเช เชชเซเชฐเซเชธเซเชธเชฐ เช เชจเซ เชซเชฟเชฒเซเชเชฐเซเชธ เชชเชฐเชฟเชฎเชพเชฃเซ เชธเชพเชฅเซ เชเชฆเซเชถเซ เชเชฎเซเชฐเซ เชฐเชนเซเชฏเชพ เชเซ เชชเซเชทเซเช เชญเซเชฎเชฟเชฎเชพเช เชฌเซเช เชเชฒเชพเชตเซ เชจเชฟเชทเซเชเชฐเซเชท
เช เชชเชกเซเชเชฐ เชตเชฐเซเช
Updater
เชเช เชเชตเซ เชตเชฐเซเช เชเซ เชเซ เชคเชฎเชพเชฐเชพ เชฎเชพเชเซ เชเซเชฒเชฟเชเซเชฐเชพเชฎ เชฌเซเช เชตเชฟเชเชธเชพเชตเชตเชพเชจเซเช เชธเชฐเชณ เชฌเชจเชพเชตเซ เชเซ เช
เชจเซ เชนเซเชก เชนเซเช เชณเชจเชพ เชตเชฐเซเชเชจเซ เชเชชเชฏเซเช เชเชฐเซ เชเซ Dispetcher
. เชตเชฐเซเช เชธเซเชเชชเชฃเซ Updater
เชฌเซเช เชคเชฐเชซเชฅเซ เช
เชชเชกเซเชเซเชธ เชชเซเชฐเชพเชชเซเชค เชเชฐเชตเชพ เชฎเชพเชเซ เชเซ (เช
เชเชพเชเชจเชพ เชฒเซเชเชฎเชพเช เช
เชฎเซ เช เชนเซเชคเซ เชฎเชพเชเซ เชชเชฆเซเชงเชคเชฟเชจเซ เชเชชเชฏเซเช เชเชฐเซเชฏเซ เชนเชคเซ getUpdates()
), เช
เชจเซ เชคเซเชฎเชจเซ เชเชเชณ เชธเซเชฅเชพเชจเชพเชเชคเชฐเชฟเชค เชเชฐเซ Dispetcher
.
เชคเซเชจเชพ เชตเชณเชพเชเชเชฎเชพเช Dispetcher
เชคเชฎเซ เชฌเชจเชพเชตเซเชฒ เชนเซเชจเซเชกเชฒเชฐเซเชธ เชธเชฎเชพเชตเซ เชเซ, เชเชเชฒเซ เชเซ. เชตเชฐเซเช เชตเชธเซเชคเซเช Handler
.
เชนเซเชจเซเชกเชฒเชฐเซเชธ - เชนเซเชจเซเชกเชฒเชฐเซเชธ
เชนเซเชจเซเชกเชฒเชฐเซเชธ เชธเชพเชฅเซ เชคเชฎเซ เชเชฎเซเชฐเซ เชเซ Dispetcher
เชตเชฟเชตเชฟเชง เชเชเชจเชพเช เชฎเชพเชเซ เชฌเซเช เชชเซเชฐเชคเชฟเชเซเชฐเชฟเชฏเชพเช. เชฎเชพเช เช เชฒเซเช เชฒเชเชคเซ เชตเชเชคเซ telegram.bot
เชจเซเชเซเชจเชพ เชชเซเชฐเชเชพเชฐเชจเชพ เชนเซเชจเซเชกเชฒเชฐเซเชธ เชเชฎเซเชฐเชตเชพเชฎเชพเช เชเชตเซเชฏเชพ เชเซ:
- MessageHandler โ เชฎเซเชธเซเช เชนเซเชจเซเชกเชฒเชฐ
- เชเชฎเชพเชจเซเชก เชนเซเชจเซเชกเชฒเชฐ - เชเชฎเชพเชจเซเชก เชนเซเชจเซเชกเชฒเชฐ
- CallbackQueryHandler โ เชเชจเชฒเชพเชเชจเชฅเซ เชฎเซเชเชฒเซเชฒเชพ เชเซเชฌเซเชฐเซเชก เชฎเชพเชเซ เชกเซเชเชพ เชนเซเชจเซเชกเชฒเชฐ
- เชเชฐเชฐเชนเซเชจเซเชกเชฒเชฐ โ เชฌเซเชเชฎเชพเชเชฅเซ เช เชชเชกเซเชเชจเซ เชตเชฟเชจเชเชคเซ เชเชฐเชคเซ เชตเชเชคเซ เชเชฐเชฐ เชนเซเชจเซเชกเชฒเชฐ
เชฌเซเช, เชเชฎเชพเชจเซเชก เชนเซเชจเซเชกเชฒเชฐเชฎเชพเช เชชเซเชฐเชฅเชฎ เชเชฆเซเชถ เชเชฎเซเชฐเซ
เชเซ เชคเชฎเซ เชชเชนเซเชฒเชพเช เชเซเชฏเชพเชฐเซเชฏ เชฌเซเชเซเชจเซ เชเชชเชฏเซเช เชเชฐเซเชฏเซ เชจ เชนเซเชฏ เช
เชจเซ เชคเชฎเชจเซ เชเชฌเชฐ เชจ เชนเซเชฏ เชเซ เชเชฆเซเชถ เชถเซเช เชเซ, เชคเซ เชฌเซเชเชจเซ เชเชฆเซเชถเซ เชซเซเชฐเชตเชฐเซเชก เชธเซเชฒเซเชถเชจเซ เชเชชเชฏเซเช เชเชฐเซเชจเซ เชฎเซเชเชฒเชตเชพ เชเซเชเช. /
เชเชชเชธเชฐเซเช เชคเชฐเซเชเซ.
เช
เชฎเซ เชธเชฐเชณ เชเชฆเซเชถเซเชฅเซ เชถเชฐเซเชเชค เชเชฐเซเชถเซเช, เชเชเชฒเซ เชเซ. เชเชพเชฒเซ เชเชชเชฃเชพ เชฌเซเชเชจเซ เชเชฆเซเชถ เชชเชฐ เชนเซเชฒเซ เชเชนเซเชคเชพ เชถเซเชเชตเซเช /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()
เชเชชเชฐเซเชเซเชค เชเซเชก เชเชฆเชพเชนเชฐเชฃ เชเชฒเชพเชตเซ, 'เชฏเซเชฐ เชฌเซเช เชเซเชเชจ' เชจเซ เชฌเชฆเชฒเซเชฏเชพ เชชเชเซ, เชคเชฎเชจเซ เชฌเซเช เชฌเชจเชพเชตเชคเซ เชตเชเชคเซ เชชเซเชฐเชพเชชเซเชค เชฅเชฏเซเชฒ เชตเชพเชธเซเชคเชตเชฟเช เชเซเชเชจ เชธเชพเชฅเซ เชฌเซเชเชซเซเชงเชฐ (เชฎเซเช เชฎเชพเช เชฌเซเช เชฌเชจเชพเชตเชตเชพ เชตเชฟเชถเซ เชตเชพเชค เชเชฐเซ
เชชเซเชฐเชฅเชฎ เชฒเซเช ).
เชชเชฆเซเชงเชคเชฟ start_polling()
เชตเชฐเซเช Updater
, เชเซเชจเซ เชเชชเชฏเซเช เชเซเชกเชจเชพ เช
เชเชคเซ เชฅเชพเชฏ เชเซ, เชคเซ เชฌเซเชเชฎเชพเชเชฅเซ เช
เชชเชกเซเชเซเชธเชจเซ เชตเชฟเชจเชเชคเซ เช
เชจเซ เชชเซเชฐเชเซเชฐเชฟเชฏเชพ เชเชฐเชตเชพเชจเซ เช
เชจเชเชค เชฒเซเชช เชถเชฐเซ เชเชฐเซ เชเซ.
เชนเชตเซ เชเซเชฒเชฟเชเซเชฐเชพเชฎ เชเซเชฒเซเช เช
เชจเซ เชเชชเชฃเชพ เชฌเซเชเชจเซ เชชเชนเซเชฒเซ เชเชฆเซเชถ เชฒเชเซเช /hi
.
เชนเชตเซ เชเชชเชฃเซ เชฌเซเช เชเชฆเซเชถ เชธเชฎเชเซ เชเซ /hi
, เช
เชจเซ เช
เชฎเชจเซ เชเซเชตเซ เชฐเซเชคเซ เช
เชญเชฟเชตเชพเชฆเชจ เชเชฐเชตเซเช เชคเซ เชเชพเชฃเซ เชเซ.
เชฏเซเชเชจเชพเชเซเชฏ เชฐเซเชคเซ, เชเชตเชพ เชธเชฐเชณ เชฌเซเช เชฌเชจเชพเชตเชตเชพเชจเซ เชชเซเชฐเชเซเชฐเชฟเชฏเชพเชจเซ เชจเซเชเซ เชชเซเชฐเชฎเชพเชฃเซ เชฆเชฐเซเชถเชพเชตเซ เชถเชเชพเชฏ เชเซ.
- เชตเชฐเซเชเชจเซ เชฆเชพเชเชฒเซ เชฌเชจเชพเชตเซ
Updater
; - เช
เชฎเซ เชชเชฆเซเชงเชคเชฟเช เชฌเชจเชพเชตเซเช เชเซเช, เชเชเชฒเซ เชเซ. เชเชพเชฐเซเชฏเซ เชเซ เชเซ เช
เชฎเชพเชฐเซ เชฌเซเช เชเชฐเชถเซ. เชเซเชก เชเชฆเชพเชนเชฐเชฃเชฎเชพเช เช เชเช เชเชพเชฐเซเชฏ เชเซ
say_hello()
. เชซเชเชเซเชถเชจ เชเซ เชเซเชจเซ เชคเชฎเซ เชฌเซเช เชชเชฆเซเชงเชคเชฟ เชคเชฐเซเชเซ เชเชชเชฏเซเช เชเชฐเชถเซ เชคเซเชฎเชพเช เชฌเซ เชเชฐเซเชฐเซ เชฆเชฒเซเชฒเซ เชนเซเชตเซ เชเชตเชถเซเชฏเช เชเซ - เชฌเซเช ะธ เชธเซเชงเชพเชฐเซ, เช เชจเซ เชเช เชตเซเชเชฒเซเชชเชฟเช - เชฆเชฒเซเชฒเซ. เชฆเชฒเซเชฒ เชฌเซเช, เช เชคเชฎเชพเชฐเซ เชฌเซเช เชเซ, เชคเซเชจเซ เชฎเชฆเชฆเชฅเซ เชคเชฎเซ เชธเชเชฆเซเชถเชพเชเชจเซ เชเชตเชพเชฌ เชเชชเซ เชถเชเซ เชเซ, เชธเชเชฆเซเชถเชพ เชฎเซเชเชฒเซ เชถเชเซ เชเซ เช เชฅเชตเชพ เชฌเซเช เชฎเชพเชเซ เชเชชเชฒเชฌเซเชง เช เชจเซเชฏ เชเซเชเชชเชฃ เชชเชฆเซเชงเชคเชฟเชเชจเซ เชเชชเชฏเซเช เชเชฐเซ เชถเชเซ เชเซ. เชฆเชฒเซเชฒ เชธเซเชงเชพเชฐเซ เช เชคเซ เชเซ เชเซ เชตเชชเชฐเชพเชถเชเชฐเซเชคเชพ เชชเชพเชธเซเชฅเซ เชฌเซเชเชจเซ เชชเซเชฐเชพเชชเซเชค เชฅเชฏเซเช เชเซ, เชนเชเซเชเชคเชฎเชพเช, เชชเชฆเซเชงเชคเชฟเชจเซ เชเชชเชฏเซเช เชเชฐเซเชจเซ เชเชชเชฃเซ เชชเซเชฐเชฅเชฎ เชฒเซเชเชฎเชพเช เชเซ เชชเซเชฐเชพเชชเซเชค เชเชฐเซเชฏเซเช เชเซ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()
เชเชชเชฐเซเชเซเชค เชเซเชก เชเชฆเชพเชนเชฐเชฃ เชเชฒเชพเชตเซ, 'เชฏเซเชฐ เชฌเซเช เชเซเชเชจ' เชจเซ เชฌเชฆเชฒเซเชฏเชพ เชชเชเซ, เชคเชฎเชจเซ เชฌเซเช เชฌเชจเชพเชตเชคเซ เชตเชเชคเซ เชชเซเชฐเชพเชชเซเชค เชฅเชฏเซเชฒ เชตเชพเชธเซเชคเชตเชฟเช เชเซเชเชจ เชธเชพเชฅเซ เชฌเซเชเชซเซเชงเชฐ (เชฎเซเช เชฎเชพเช เชฌเซเช เชฌเชจเชพเชตเชตเชพ เชตเชฟเชถเซ เชตเชพเชค เชเชฐเซ
เชชเซเชฐเชฅเชฎ เชฒเซเช ).
เชนเชตเซ เชเชพเชฒเซ เชชเชนเซเชฒเชพ เชธเซเชเชฟเชฌเชฆเซเชง เชถเซเชญเซเชเซเชเชพ เชถเชฌเซเชฆเซ เชงเชฐเชพเชตเชคเชพ เชฌเซเชเชจเซ เชเซเชเชฒเชพเช เชธเชเชฆเซเชถเชพ เชฎเซเชเชฒเชตเชพเชจเซ เชชเซเชฐเชฏเชพเชธ เชเชฐเซเช:
เชคเซเชฅเซ, เชธเซ เชชเซเชฐเชฅเชฎ, เช
เชฎเซ เชฌเซเชเชจเซ เชซเชเซเชค เชนเซเชฒเซเชฒเซ เชเชนเซเชตเชพเชจเซเช เช เชจเชนเซเช, เชชเชฃ เชถเซเชญเซเชเซเชเชพเชจเซ เชเชตเชพเชฌ เชเชชเชตเชพเชจเซเช เชถเซเชเชตเซเชฏเซเช. เช
เชฎเซ เชฆเชฒเซเชฒเชจเซ เชเชชเชฏเซเช เชเชฐเซเชจเซ เช เชเชฐเซเชฏเซเช เชเชตเชพเชฌ_เชจเซ_เชธเชเชฆเซเชถ_เชเชเชกเซ, เชเซ เชชเชฆเซเชงเชคเชฟเชฎเชพเช เชเชชเชฒเชฌเซเชง เชเซ sendMessage()
, เชเซเชจเชพ เชชเชฐ เชคเชฎเชพเชฐเซ เชเซ เชฎเซเชธเซเชเชจเซ เชเชตเชพเชฌ เชเชชเชตเชพ เชฎเชพเชเชเซ เชเซ เชคเซเชจเซ เชเชเชกเซ เชเซเชฐเชพเชจเซเชธเชซเชฐ เชเชฐเชตเชพเชจเซ เชเชฐเซเชฐ เชเซ. เชคเชฎเซ เช เชฐเซเชคเซ เชฎเซเชธเซเช เชเชเชกเซ เชฎเซเชณเชตเซ เชถเชเซ เชเซ: update$message$message_id
.
เชชเชฐเชเชคเซ เชฎเซเชเซเชฏ เชตเชธเซเชคเซ เชเซ เช
เชฎเซ เชเชฐเซเชฏเซเช เชคเซ เชซเชเชเซเชถเชจเชจเซ เชเชชเชฏเซเช เชเชฐเซเชจเซ เชฌเซเชเชฎเชพเช เชซเชฟเชฒเซเชเชฐ เชเชฎเซเชฐเชตเชพเชจเซเช เชนเชคเซเช BaseFilter()
:
# ัะพะทะดะฐัะผ ัะธะปัััั
MessageFilters$hi <- BaseFilter(
# ะฐะฝะพะฝะธะผะฝะฐั ัะธะปััััััะฐั ััะฝะบัะธั
function(message) {
# ะฟัะพะฒะตััะตะผ, ะฒัััะตัะฐะตััั ะปะธ ะฒ ัะตะบััะต ัะพะพะฑัะตะฝะธั ัะปะพะฒะฐ ะฟัะธะฒะตัััะฒะธั
grepl(x = message$text,
pattern = 'ะฟัะธะฒะตั|ะทะดัะฐะฒััะฒัะน|ัะฐะปัั|ั
ะฐะน|ะฑะพะฝะถัั',
ignore.case = TRUE)
}
)
เชเซเชฎ เชคเชฎเซ เชจเซเชเชงเซเชฏเซเช เชนเชถเซ, เชซเชฟเชฒเซเชเชฐเซเชธเชจเซ เชเชฌเซเชเซเชเซเชเชฎเชพเช เชเชฎเซเชฐเชตเชพเชจเซ เชเชฐเซเชฐ เชเซ เชฎเซเชธเซเชเชซเชฟเชฒเซเชเชฐเซเชธ, เชเซ เชถเชฐเซเชเชคเชฎเชพเช เชชเชนเซเชฒเซเชฅเซ เช เชคเซเชฏเชพเชฐ เชซเชฟเชฒเซเชเชฐเซเชธเชจเซ เชเช เชจเชพเชจเซ เชธเชฎเซเชน เชงเชฐเชพเชตเซ เชเซ. เช เชฎเชพเชฐเชพ เชเชฆเชพเชนเชฐเชฃเชฎเชพเช, เชเชฌเซเชเซเชเซเช เชฎเชพเชเซ เชฎเซเชธเซเชเชซเชฟเชฒเซเชเชฐเซเชธ เช เชฎเซ เชเช เชคเชคเซเชต เชเชฎเซเชฐเซเชฏเซเช hi, เช เชเช เชจเชตเซเช เชซเชฟเชฒเซเชเชฐ เชเซ.
เชเชพเชฐเซเชฏ เชเชฐเชตเชพ เชฎเชพเชเซ BaseFilter()
เชคเชฎเชพเชฐเซ เชซเชฟเชฒเซเชเชฐ เชซเชเชเซเชถเชจ เชชเชพเชธ เชเชฐเชตเชพเชจเซ เชเชฐเซเชฐ เชเซ. เช
เชจเชฟเชตเชพเชฐเซเชฏเชชเชฃเซ, เชซเชฟเชฒเซเชเชฐ เช เชฎเชพเชคเซเชฐ เชเช เชเชพเชฐเซเชฏ เชเซ เชเซ เชธเชเชฆเซเชถเชจเซ เชฆเชพเชเชฒเซ เชฎเซเชณเชตเซ เชเซ เช
เชจเซ เชชเชฐเชค เชเชฐเซ เชเซ เชธเชพเชเซเช เช
เชฅเชตเชพ เชเซเชเซเช. เช
เชฎเชพเชฐเชพ เชเชฆเชพเชนเชฐเชฃเชฎเชพเช, เช
เชฎเซ เชฎเซเชณเชญเซเชค เชซเชเชเซเชถเชจเชจเซ เชเชชเชฏเซเช เชเชฐเซเชจเซ เชเช เชธเชฐเชณ เชซเชเชเซเชถเชจ เชฒเชเซเชฏเซเช เชเซ grepl()
เชธเชเชฆเซเชถ เชเซเชเซเชธเซเช เชคเชชเชพเชธเซ เชเซ เช
เชจเซ เชเซ เชคเซ เชจเชฟเชฏเชฎเชฟเชค เช
เชญเชฟเชตเซเชฏเชเซเชคเชฟ เชธเชพเชฅเซ เชฎเซเชณ เชเชพเชฏ เชเซ ะฟัะธะฒะตั|ะทะดัะฐะฒััะฒัะน|ัะฐะปัั|ั
ะฐะน|ะฑะพะฝะถัั
เชชเชฐเชค เชเชฐเซ เชเซ เชธเชพเชเซเช.
เชเชเชณ เชเชชเชฃเซ เชฎเซเชธเซเช เชนเซเชจเซเชกเชฒเชฐ เชฌเชจเชพเชตเซเช เชเซเช hi_txt_hnd <- MessageHandler(say_hello, filters = MessageFilters$hi)
. เชชเซเชฐเชฅเชฎ เชเชพเชฐเซเชฏ เชฆเชฒเซเชฒ MessageHandler()
เชคเซ เชชเชฆเซเชงเชคเชฟ เชเซ เชเซ เชนเซเชจเซเชกเชฒเชฐเชจเซ เชเซเชฒ เชเชฐเชถเซ, เช
เชจเซ เชฌเซเชเซ เชฆเชฒเซเชฒ เชซเชฟเชฒเซเชเชฐ เชเซ เชเซเชจเชพ เชฆเซเชตเชพเชฐเชพ เชคเซเชจเซ เชเซเชฒ เชเชฐเชตเชพเชฎเชพเช เชเชตเชถเซ. เช
เชฎเชพเชฐเชพ เชเชฟเชธเซเชธเชพเชฎเชพเช, เช เช
เชฎเซ เชฌเชจเชพเชตเซเชฒ เชซเชฟเชฒเซเชเชฐ เชเซ MessageFilters$hi
.
เช เซเช เชเซ, เช เชเชคเซ, เช เชฎเซ เชกเชฟเชธเซเชชเซเชเชฐเชฎเชพเช เชฌเชจเชพเชตเซเชฒ เชนเซเชจเซเชกเชฒเชฐ เชเชฎเซเชฐเซเช เชเซเช hi_txt_hnd.
updater <- updater +
hi_hendler +
hi_txt_hnd
เชเซเชฎ เชฎเซเช เชเชชเชฐ เชฒเชเซเชฏเซเช เชเซ, เชชเซเชเซเชเชฎเชพเช telegram.bot
เช
เชจเซ เชชเชฆเชพเชฐเซเชฅ เชฎเซเชธเซเชเชซเชฟเชฒเซเชเชฐเซเชธ เชฌเชฟเชฒเซเช-เชเชจ เชซเชฟเชฒเซเชเชฐเซเชธเชจเซ เชธเชฎเซเชน เชชเชนเซเชฒเซเชฅเซ เช เชเซ เชเซเชจเซ เชคเชฎเซ เชเชชเชฏเซเช เชเชฐเซ เชถเชเซ เชเซ:
- เชฌเชงเชพ โ เชฌเชงเชพ เชธเชเชฆเซเชถเชพ
- เชเซเชเซเชธเซเช - เชเซเชเซเชธเซเช เชธเชเชฆเซเชถเชพเช
- เชเชฆเซเชถ - เชเชฆเซเชถเซ, เชเชเชฒเซ เชเซ เชธเชพเชฅเซ เชถเชฐเซ เชฅเชคเชพ เชธเชเชฆเซเชถเชพเช
/
- เชเชตเชพเชฌ - เชธเชเชฆเซเชถเชพเช เชเซ เชเซ เชฌเซเชเชพ เชธเชเชฆเซเชถเชจเซ เชเชตเชพเชฌ เชเซ
- เชเชกเชฟเชฏเซ โ เชเชกเชฟเชฏเซ เชซเชพเชเชฒ เชงเชฐเชพเชตเชคเชพ เชธเชเชฆเซเชถเชพเช
- เชฆเชธเซเชคเชพเชตเซเช โ เชฎเซเชเชฒเซเชฒเชพ เชฆเชธเซเชคเชพเชตเซเช เชธเชพเชฅเซเชจเชพ เชธเชเชฆเซเชถเชพเช
- เชซเซเชเซ - เชฎเซเชเชฒเซเชฒ เชเชฌเซเช เชธเชพเชฅเซเชจเชพ เชธเชเชฆเซเชถเชพเช
- เชธเซเชเซเชเชฐ - เชฎเซเชเชฒเซเชฒ เชธเซเชเซเชเชฐ เชธเชพเชฅเซเชจเชพ เชธเชเชฆเซเชถเชพ
- เชตเชฟเชกเชฟเช โ เชตเชฟเชกเชฟเช เชธเชพเชฅเซเชจเชพ เชธเชเชฆเซเชถเชพ
- เชตเซเชเชธ - เชตเซเชเชธ เชธเชเชฆเซเชถเชพเช
- เชธเชเชชเชฐเซเช โ เชตเชชเชฐเชพเชถเชเชฐเซเชคเชพเชจเซ เชเซเชฒเชฟเชเซเชฐเชพเชฎ เชธเชพเชฎเชเซเชฐเซ เชงเชฐเชพเชตเชคเชพ เชธเชเชฆเซเชถเชพเช
- เชธเซเชฅเชพเชจ โ เชญเซเชเซเชฒเชฟเช เชธเซเชฅเชพเชจ เชธเชพเชฅเซเชจเชพ เชธเชเชฆเซเชถเชพเช
- เชธเซเชฅเชณ - เชซเซเชฐเชตเชฐเซเชก เชเชฐเซเชฒเชพ เชธเชเชฆเซเชถเชพเช
- เชฐเชฎเชค โ เชฐเชฎเชคเซ
เชเซ เชคเชฎเซ เชเช เชนเซเชจเซเชกเชฒเชฐเชฎเชพเช เชเซเชเชฒเชพเช เชซเชฟเชฒเซเชเชฐเซเชธเชจเซ เชเซเชกเชตเชพ เชฎเชพเชเชเชคเชพ เชนเซเชต เชคเซ เชซเชเซเชค เชธเชพเชเชจเชจเซ เชเชชเชฏเซเช เชเชฐเซ |
- เชฒเซเชเชฟเชเชฒ เชคเชฐเซเชเซ เช
เชฅเชตเชพ, เช
เชจเซ เชธเชนเซ เชเชฐเซ &
เชฒเซเชเชฟเชเชฒ เชคเชฐเซเชเซ ะ. เชเชฆเชพเชนเชฐเชฃ เชคเชฐเซเชเซ, เชเซ เชคเชฎเซ เชเชเซเชเซ เชเซ เชเซ เชฌเซเช เชเซเชฏเชพเชฐเซ เชตเชฟเชกเชฟเชฏเซ, เชเชฌเซ เช
เชฅเชตเชพ เชฆเชธเซเชคเชพเชตเซเช เชฎเซเชณเชตเซ เชคเซเชฏเชพเชฐเซ เชคเซ เช เชชเชฆเซเชงเชคเชฟเชจเซ เชเซเชฒ เชเชฐเซ, เชคเซ เชธเชเชฆเซเชถ เชนเซเชจเซเชกเชฒเชฐ เชฌเชจเชพเชตเชตเชพ เชฎเชพเชเซ เชจเซเชเซเชจเชพ เชเชฆเชพเชนเชฐเชฃเชจเซ เชเชชเชฏเซเช เชเชฐเซ:
handler <- MessageHandler(callback,
MessageFilters$video | MessageFilters$photo | MessageFilters$document
)
เชชเชฐเชฟเชฎเชพเชฃเซ เชธเชพเชฅเซ เชเชฆเซเชถเซ เชเชฎเซเชฐเซ เชฐเชนเซเชฏเชพ เชเซ
เช เชฎเซ เชชเชนเซเชฒเชพเชฅเซ เช เชเชพเชฃเซเช เชเซเช เชเซ เชเชฎเชพเชจเซเชก เชถเซเช เชเซ, เชคเซเชจเซ เชเซเชตเซ เชฐเซเชคเซ เชฌเชจเชพเชตเชตเซ เช เชจเซ เชเชเซเชเชฟเชค เชเชฆเซเชถเชจเซ เชเชเซเชเชฟเชเซเชฏเซเช เชเชฐเชตเชพ เชฎเชพเชเซ เชฌเซเชเชจเซ เชเซเชตเซ เชฐเซเชคเซ เชฆเชฌเชพเชฃ เชเชฐเชตเซเช. เชชเชฐเชเชคเซ เชเซเชเชฒเชพเช เชเชฟเชธเซเชธเชพเชเชฎเชพเช, เชเชฆเซเชถเชจเชพ เชจเชพเชฎ เชเชชเชฐเชพเชเชค, เชเชชเชฃเซ เชคเซเชจเซ เชเชฒเชพเชตเชตเชพ เชฎเชพเชเซ เชเซเชเชฒเชพเช เชกเซเชเชพ เชชเชพเชธ เชเชฐเชตเชพเชจเซ เชเชฐเซเชฐ เชเซ.
เชจเซเชเซ เชเช เชฌเซเชเชจเซเช เชเชฆเชพเชนเชฐเชฃ เชเซ เชเซ เชเชชเซเชฒ เชคเชพเชฐเซเช เช เชจเซ เชฆเซเชถเชจเซ เชเซเชคเชพเช, เชเชคเซเชชเชพเชฆเชจ เชเซเชฒเซเชจเซเชกเชฐเชฎเชพเชเชฅเซ เชคเชฎเชจเซ เชฆเชฟเชตเชธเชจเซ เชชเซเชฐเชเชพเชฐ เชชเชฐเชค เชเชฐเซ เชเซ.
เชจเซเชเซเชจเซ เชฌเซเช เชเชคเซเชชเชพเชฆเชจ เชเซเชฒเซเชจเซเชกเชฐ 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()
เชเชชเชฐเซเชเซเชค เชเซเชก เชเชฆเชพเชนเชฐเชฃ เชเชฒเชพเชตเซ, 'เชฏเซเชฐ เชฌเซเช เชเซเชเชจ' เชจเซ เชฌเชฆเชฒเซเชฏเชพ เชชเชเซ, เชคเชฎเชจเซ เชฌเซเช เชฌเชจเชพเชตเชคเซ เชตเชเชคเซ เชชเซเชฐเชพเชชเซเชค เชฅเชฏเซเชฒ เชตเชพเชธเซเชคเชตเชฟเช เชเซเชเชจ เชธเชพเชฅเซ เชฌเซเชเชซเซเชงเชฐ (เชฎเซเช เชฎเชพเช เชฌเซเช เชฌเชจเชพเชตเชตเชพ เชตเชฟเชถเซ เชตเชพเชค เชเชฐเซ
เชชเซเชฐเชฅเชฎ เชฒเซเช ).
เช
เชฎเซ เชเช เชฌเซเช เชฌเชจเชพเชตเซเชฏเซ เชเซ เชเซ เชคเซเชจเชพ เชถเชธเซเชคเซเชฐเชพเชเชพเชฐเชฎเชพเช เชฎเชพเชคเซเชฐ เชเช เช เชชเชฆเซเชงเชคเชฟ เชงเชฐเชพเชตเซ เชเซ check_date
, เช เชชเชฆเซเชงเชคเชฟเชจเซ เชธเชฎเชพเชจ เชจเชพเชฎเชจเชพ เชเชฆเซเชถ เชฆเซเชตเชพเชฐเชพ เชเชนเซเชตเชพเชฎเชพเช เชเชตเซ เชเซ.
เชชเชฐเชเชคเซ, เชเชฆเซเชถเชจเชพ เชจเชพเชฎ เชเชชเชฐเชพเชเชค, เช เชชเชฆเซเชงเชคเชฟ เชฎเชพเชเซ เชคเชฎเชพเชฐเซ เชฌเซ เชชเชฐเชฟเชฎเชพเชฃเซ, เชฆเซเชถ เชเซเชก เช เชจเซ เชคเชพเชฐเซเช เชฆเชพเชเชฒ เชเชฐเชตเชพเชจเซ เชเชฐเซเชฐ เชเซ. เชเชเชณ, เชฌเซเช เชเชเชพเชธเซ เชเซ เชเซ เชเชฒเซเชฒเซเชเชฟเชค เชฆเซเชถเชฎเชพเช เชเชชเซเชฒ เชฆเชฟเชตเชธ เชธเชชเซเชคเชพเชนเชพเชเชค, เชเซเชเชเซ เชฆเชฟเชตเชธ เช เชฅเชตเชพ เช เชงเชฟเชเซเชค เชเชคเซเชชเชพเชฆเชจ เชเซเชฒเซเชจเซเชกเชฐ เช เชจเซเชธเชพเชฐ เชเชพเชฐเซเชฏเชเชพเชฐเซ เชฆเชฟเชตเชธ เชเซ เชเซ เชเซเชฎ.
เชเชฆเซเชถ เชธเชพเชฅเซ เชตเชงเชพเชฐเชพเชจเชพ เชชเชฐเชฟเชฎเชพเชฃเซ เชธเซเชตเซเชเชพเชฐเชตเชพ เชฎเชพเชเซ เช
เชฎเซ เชเซ เชชเชฆเซเชงเชคเชฟ เชฌเชจเชพเชตเซเช เชเซเช เชคเซเชจเชพ เชฎเชพเชเซ, เชฆเชฒเซเชฒเชจเซ เชเชชเชฏเซเช เชเชฐเซ pass_args = TRUE
เชเชพเชฐเซเชฏเชฎเชพเช CommandHandler()
, เช
เชจเซ เชชเชฆเซเชงเชคเชฟ เชฌเชจเชพเชตเชคเซ เชตเชเชคเซ, เชเชฐเซเชฐเซ เชฆเชฒเซเชฒเซ เชเชชเชฐเชพเชเชค เชฌเซเช, เชธเซเชงเชพเชฐเซ เชตเซเชเชฒเซเชชเชฟเช เชฌเชจเชพเชตเซ - เชฆเชฒเซเชฒเซ. เช เชฐเซเชคเซ เชฌเชจเชพเชตเซเชฒ เชชเชฆเซเชงเชคเชฟ เช เชชเชฐเชฟเชฎเชพเชฃเซเชจเซ เชธเซเชตเซเชเชพเชฐเชถเซ เชเซ เชเซ เชคเชฎเซ เชเชฆเซเชถเชจเชพ เชจเชพเชฎ เชชเชเซ เชฌเซเชเชจเซ เชชเชธเชพเชฐ เชเชฐเชถเซ. เชชเชฐเชฟเชฎเชพเชฃเซเชจเซ เชธเซเชชเซเชธ เชฆเซเชตเชพเชฐเชพ เช
เชฒเช เชเชฐเชตเซเช เชเชตเชถเซเชฏเช เชเซ; เชคเซเช เชเซเชเซเชธเซเช เชตเซเชเซเชเชฐ เชคเชฐเซเชเซ เชชเชฆเซเชงเชคเชฟ เชชเชฐ เชฎเซเชเชฒเชตเชพเชฎเชพเช เชเชตเชถเซ.
เชเชพเชฒเซ เชเชชเชฃเชพ เชฌเซเชเชจเซ เชฒเซเชจเซเช เชเชฐเซเช เช เชจเซ เชคเซเชจเซเช เชชเชฐเซเชเซเชทเชฃ เชเชฐเซเช.
เชชเซเชทเซเช เชญเซเชฎเชฟเชฎเชพเช เชฌเซเช เชเชฒเชพเชตเซ
เชเชชเชฃเซ เชเซ เชเซเชฒเซเชฒเซเช เชชเชเชฒเซเช เชชเซเชฐเซเชฃ เชเชฐเชตเชพเชจเซ เชเชฐเซเชฐ เชเซ เชคเซ เชชเซเชทเซเช เชญเซเชฎเชฟเชฎเชพเช เชฌเซเชเชจเซ เชฒเซเชจเซเช เชเชฐเชตเชพเชจเซเช เชเซ.
เช เชเชฐเชตเชพ เชฎเชพเชเซ, เชจเซเชเซ เชตเชฐเซเชฃเชตเซเชฒ เช เชฒเซเชเซเชฐเชฟเชงเชฎเชจเซ เช เชจเซเชธเชฐเซ:
- เชเชเซเชธเซเชเซเชเชถเชจ R เชธเชพเชฅเซเชจเซ เชซเชพเชเชฒเชฎเชพเช เชฌเซเช เชเซเชก เชธเชพเชเชตเซ. RStudio เชฎเชพเช เชเชพเชฎ เชเชฐเชคเซ เชตเชเชคเซ, เช เชฎเซเชจเซ เชฆเซเชตเชพเชฐเชพ เชฅเชพเชฏ เชเซ. เชซเชพเชเชฒ, เชเซเชฎ เชคเชฐเซเชเซ เชเชฎเชพ เชเชฐเชตเซ ....
- เชฌเชฟเชจ เชซเซเชฒเซเชกเชฐเชฎเชพเช เชชเชพเชฅ เชเชฎเซเชฐเซ, เชเซ เชฌเชฆเชฒเชพเชฎเชพเช เชคเซ เชซเซเชฒเซเชกเชฐเชฎเชพเช เชธเซเชฅเชฟเชค เชเซ เชเซเชฎเชพเช เชคเชฎเซ R เชญเชพเชทเชพ เชเชจเซเชธเซเชเซเชฒ เชเชฐเซ เชเซ, เชชเชพเชฅ เชตเซเชฐเซเชเชฌเชฒเชฎเชพเช, เชธเซเชเชจเชพเช
เช เชนเซเช . - เชจเชฟเชฏเชฎเชฟเชค เชเซเชเซเชธเซเช เชซเชพเชเชฒ เชฌเชจเชพเชตเซ เชเซเชฎเชพเช 1 เชฒเซเชเซ เชฒเชเซ:
R CMD BATCH C:UsersAlseyDocumentsmy_bot.R
. เชคเซเชจเชพ เชฌเชฆเชฒเซ C:UsersAlseyDocumentsmy_bot.R เชคเชฎเชพเชฐเซ เชฌเซเช เชธเซเชเซเชฐเชฟเชชเซเชเชจเซ เชฎเชพเชฐเซเช เชฒเชเซ. เชคเซ เช เชธเชฎเชฏเซ, เชคเซ เชฎเชนเชคเซเชตเชจเซเช เชเซ เชเซ เชฐเชธเซเชคเชพเชฎเชพเช เชเซเช เชธเชฟเชฐเชฟเชฒเชฟเช เช เชเซเชทเชฐเซ เช เชฅเชตเชพ เชเชเซเชฏเชพเช เชจเชฅเซ, เชเชพเชฐเชฃ เชเซ เช เชฌเซเช เชเชฒเชพเชตเชคเซ เชตเชเชคเซ เชธเชฎเชธเซเชฏเชพ เชเชญเซ เชเชฐเซ เชถเชเซ เชเซ. เชคเซเชจเซ เชธเชพเชเชตเซ เช เชจเซ เชคเซเชจเชพ เชเชเซเชธเซเชเซเชเชถเชจเชจเซ เชฌเชฆเชฒเซ TXT เชชเชฐ เชฌเซเช. - เชตเชฟเชจเซเชกเซเช เชเชพเชธเซเช เชถเซเชกเซเชฏเซเชฒเชฐ เชเซเชฒเซ, เช เชเชฐเชตเชพ เชฎเชพเชเซ เชเชฃเซ เชฐเซเชคเซ เชเซ, เชเชฆเชพเชนเชฐเชฃ เชคเชฐเซเชเซ, เชเซเชเชชเชฃ เชซเซเชฒเซเชกเชฐ เชเซเชฒเซ เช
เชจเซ เชธเชฐเชจเชพเชฎเซเช เชฆเชพเชเชฒ เชเชฐเซ
%windir%system32taskschd.msc /s
. เช เชจเซเชฏ เชฒเซเชจเซเช เชชเชฆเซเชงเชคเชฟเช เชถเซเชงเซ เชถเชเชพเชฏ เชเซเช เชนเซเช . - เชถเซเชกเซเชฏเซเชฒเชฐเชจเชพ เชเชชเชฐเชจเชพ เชเชฎเชฃเชพ เชฎเซเชจเซเชฎเชพเช, "เชเชพเชฐเซเชฏ เชฌเชจเชพเชตเซ..." เชชเชฐ เชเซเชฒเชฟเช เชเชฐเซ.
- "เชธเชพเชฎเชพเชจเซเชฏ" เชเซ เชฌ เชชเชฐ, เชคเชฎเชพเชฐเชพ เชเชพเชฐเซเชฏเชจเซ เชเชธเซเชเชฎ เชจเชพเชฎ เชเชชเซ เช เชจเซ เชธเซเชตเชฟเชเชจเซ "เชฌเชงเชพ เชตเชชเชฐเชพเชถเชเชฐเซเชคเชพเช เชฎเชพเชเซ เชเชฒเชพเชตเซ" เชธเซเชฅเชฟเชคเชฟเชฎเชพเช เชธเซเชตเชฟเช เชเชฐเซ.
- "เชเซเชฐเชฟเชฏเชพเช" เชเซ เชฌ เชชเชฐ เชเชพเช, "เชฌเชจเชพเชตเซ" เชเซเชฒเชฟเช เชเชฐเซ. "เชชเซเชฐเซเชเซเชฐเชพเชฎ เช เชฅเชตเชพ เชธเซเชเซเชฐเชฟเชชเซเช" เชซเซเชฒเซเชกเชฎเชพเช, "เชฌเซเชฐเชพเชเช เชเชฐเซ" เชชเชฐ เชเซเชฒเชฟเช เชเชฐเซ, เชฌเซเชเชพ เชชเชเชฒเชพเชฎเชพเช เชฌเชจเชพเชตเซเชฒ เชเช เชถเซเชงเซ เชฌเซเช เชซเชพเชเชฒ เช เชจเซ เช เซเช เชเซเชฒเชฟเช เชเชฐเซ.
- เช เซเช เชเซเชฒเชฟเช เชเชฐเซ เช เชจเซ, เชเซ เชเชฐเซเชฐเซ เชนเซเชฏ, เชคเซ เชคเชฎเชพเชฐเชพ เชเชชเชฐเซเชเชฟเชเช เชธเชฟเชธเซเชเชฎ เชเชเชพเชเชจเซเช เชฎเชพเชเซ เชชเชพเชธเชตเชฐเซเชก เชฆเชพเชเชฒ เชเชฐเซ.
- เชถเซเชกเซเชฏเซเชฒเชฐเชฎเชพเช เชฌเชจเชพเชตเซเชฒ เชเชพเชฐเซเชฏ เชถเซเชงเซ, เชคเซเชจเซ เชชเชธเชเชฆ เชเชฐเซ เช เชจเซ เชจเซเชเซเชจเชพ เชเชฎเชฃเชพ เชเซเชฃเชพเชฎเชพเช "เชฐเชจ" เชฌเชเชจเชจเซ เชเซเชฒเชฟเช เชเชฐเซ.
เช เชฎเชพเชฐเซ เชฌเซเช เชชเซเชทเซเช เชญเซเชฎเชฟเชฎเชพเช เชเชพเชฒเซ เชเซ เช เชจเซ เชเซเชฏเชพเช เชธเซเชงเซ เชคเชฎเซ เชเชพเชฐเซเชฏ เชฌเชเชง เชจ เชเชฐเซ, เช เชฅเชตเชพ เชคเชฎเชพเชฐเชพ PC เช เชฅเชตเชพ เชธเชฐเซเชตเชฐเชจเซ เชฌเชเชง เชจ เชเชฐเซ เชเซเชฏเชพเช เชธเซเชงเซ เชคเซ เชฒเซเชเช เชเชฐเชตเชพเชฎเชพเช เชเชตเซเชฏเซเช เชนเชคเซเช เชคเซเชฏเชพเช เชธเซเชงเซ เชเชพเชฐเซเชฏ เชเชฐเชถเซ.
เชจเชฟเชทเซเชเชฐเซเชท
เช เชฒเซเชเชฎเชพเช, เช เชฎเซ เชเช เชธเชเชชเซเชฐเซเชฃ เชธเซเชตเชฟเชงเชพเชฏเซเชเซเชค เชฌเซเช เชเซเชตเซ เชฐเซเชคเซ เชฒเชเชตเซ เชคเซ เชถเซเชงเซ เชเชพเชขเซเชฏเซเช เชเซ เชเซ เชซเชเซเชค เชธเชเชฆเซเชถเชพเช เช เชฎเซเชเชฒเซ เชถเชเชคเซเช เชจเชฅเซ, เชชเชฃ เชเชตเชจเชพเชฐเชพ เชธเชเชฆเซเชถเชพเช เช เชจเซ เชเชฆเซเชถเซเชจเซ เชเชตเชพเชฌ เชชเชฃ เชเชชเซ เชถเชเซ เชเซ. เชฎเซเชณเชตเซเชฒ เชเซเชเชพเชจ เชคเชฎเชพเชฐเซ เชฎเซเชเชพเชญเชพเชเชจเซ เชธเชฎเชธเซเชฏเชพเช เชเชเซเชฒเชตเชพ เชฎเชพเชเซ เชชเชนเซเชฒเซเชฅเซ เช เชชเซเชฐเชคเซเช เชเซ.
เชเชเชณเชจเซ เชฒเซเช เชตเชงเซ เช เชจเซเชเซเชณ เชเชพเชฐเซเชฏ เชฎเชพเชเซ เชฌเซเชเชฎเชพเช เชเซเชฌเซเชฐเซเชก เชเซเชตเซ เชฐเซเชคเซ เชเชฎเซเชฐเชตเซเช เชคเซ เชตเชฟเชถเซ เชตเชพเชค เชเชฐเชถเซ.
เชฎเชพเชฐเชพ เชชเชฐ เชธเชฌเซเชธเซเชเซเชฐเชพเชเชฌ เชเชฐเซ
เชธเซเชฐเซเชธ: www.habr.com