Paste directly to Mac clipboard

clipboard.r

clipboard <- function(x, sep.lines = FALSE){
  clipboard <- pipe('pbcopy', 'w')
  
  if(sep.lines){
    x <- unlist(strsplit(as.character(x), split = ","))
    x <- sub(" ", "", x)
  }
  
  write.table(x, clipboard, sep = "\t", 
    quote = FALSE, col.names = FALSE, row.names = FALSE)
  
  close(clipboard)
}