clipboard in linux: copy&paste

clipboard.R

# only works in linux
# Install xclip first
# $ sudo apt-get install xclip 

# write to clipboard
wclip <- function(x, sep="\t", row.names=FALSE, col.names=TRUE){
  con <- pipe("xclip -selection clipboard -i", open="w")
  write.table(x, con, sep=sep, row.names=row.names, col.names=col.names)
  close(con)
}

#read from clipboard
rclip <- function(){
  con <- pipe("xclip -selection clipboard -o")
  d <- read.delim2(con)
  return(d)
  close(con)
}

# Example
wclip(1:10)
wclip(letters)
wclip(matrix(1:15, nrow = 5))

data <- rclip()