R/addIn.R

In eliocamp/spindler: Create and Publish Mastodon and Twitter Threads

png_from_clipboard <- function() {
  sys <- Sys.info()["sysname"]
  img <- tempfile(pattern = "spindler_clip_", fileext = ".png")

  if (sys == "Windows") {
    #Windows
    png::writePNG(png::readPNG("clipboard"), target = img)
  } else if (sys == "Darwin") {
    # OSX
    result <- try(system(paste0("pngpaste ", img)), silent = TRUE)
    if (inherits(result, "try-error")) {
      stop("Needs pngpaste")
    }

  } else {
    # Linux
    targets <- try(system("xclip -selection clipboard -t TARGETS -o", intern = TRUE), silent = TRUE)
    if (inherits(targets, "try-error")) {
      warning("Clipboard on X11 requires 'xclip'.")
    }

    if ("image/png" %in% targets) {
      system(paste0("xclip -selection clipboard -t image/png -o > ", img))
    }
    else {
       warning("No image in clipboard")
      img <- ""
     }
  }
  return(img)
}


imgFromClipboard <- function() {
  img <- png_from_clipboard()
  if (img != "") rstudioapi::insertText(paste0('"', img, '"'))
}