Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #' Share the active RStudio source tab on Twitter
- #'
- #' TODO tempdir/tempfile; error checking
- #'
- #' @export
- tweet_share <- function() {
- ctx <- rstudioapi::getSourceEditorContext()
- writeLines(ctx$contents, "/tmp/a.r")
- g <- gistr::gist_create("/tmp/a.r", browse=FALSE)
- fil <- file("/tmp/a.rmd", open = "w")
- writeLines(c(
- "---",
- "output: pdf_document",
- "---",
- "\\pagenumbering{gobble}",
- "```{r eval=FALSE}",
- ctx$contents,
- "```",
- sprintf("gist: [%s](%s)", g$url, g$url)),
- fil)
- close(fil)
- rmarkdown::render("/tmp/a.rmd", rmarkdown::pdf_document(), "/tmp/a.pdf")
- code_raster <- pdftools::pdf_render_page("/tmp/a.pdf", dpi=144)
- img <- magick::image_read(code_raster)
- img <- magick::image_trim(img)
- magick::image_write(img, "/tmp/a.png")
- #magick::image_browse(img)
- dmSend(sprintf("R code: %s", g$url), "hrbrmstr")#, mediaPath = "/tmp/a.png")
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement