You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
39 lines
900 B
39 lines
900 B
#' 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)
|
|
|
|
twitteR::tweet(sprintf("R code: %s", g$url), mediaPath = "/tmp/a.png")
|
|
|
|
}
|
|
|