clipr_linux_function.R

linux_read_clip <- function() {
  if (Sys.which("xclip") == "") {
    if (Sys.which("xsel") == "") {
      notify_no_clip()
    } else {
      con <- pipe("xsel --clipboard")
    }
  } else {
    con <- pipe("xclip -o -selection clipboard")
  }
  content <- readLines(con)
  close(con)
  return(content)
}