R/get_updates.R

In petermeissner/telegramme: Helpers for handling telegram chats

get_updates <-
  function(from = Sys.Date(), to = Sys.Date() ){
    bot <-
      telegram::TGBot$new(token = get_telegram_token())
    bot_res <- bot$getUpdates()
    bot_res$message[bot_res$message$from$username=="petermeissner", ]
  }