R/Status.R

In CFehrmann/TelegramR: Get information of your work in R with Telegram

#' @title status_tg
#'
#' @description Check what's going on in your Rstudio
#' @param x The loop you want to knew about it
#' @
#' @return the output from \code{\link{print}}
#' @export
#' @import telegram.bot
#' @import beepr
#' @import svMisc
#' @examples
#' status_tg("Nicole")
#' \dontrun{
#' status_tg("Cristóbal")
#'

library(telegram)
library(svMisc)
status_tg <- function(x) {
 output <- paste0(sink("progress.txt",append = T), x, sink())
return(output)
 }