if (FALSE) {
library(depigner)
library(ggplot2)
start_bot_for_chat()
send_to_telegram("hello world")
gg <- ggplot(mtcars, aes(x = mpg, y = hp, colour = cyl)) +
geom_point()
send_to_telegram(
"following an `mtcars` coloured plot",
parse_mode = "Markdown"
)
send_to_telegram(gg)
}
Run the code above in your browser using DataLab