Skip to content

Instantly share code, notes, and snippets.

@abikoushi
Created November 25, 2014 01:08
Show Gist options
  • Save abikoushi/2ac436ba344eae1966ad to your computer and use it in GitHub Desktop.
Save abikoushi/2ac436ba344eae1966ad to your computer and use it in GitHub Desktop.
cpy <- function(a){
if(is.data.frame(a) | is.matrix(a)){ write.table(a, pipe("pbcopy"), sep="\t", row.names=FALSE, quote=FALSE)
}else write.table(t(a), pipe("pbcopy"), sep="\t", row.names=FALSE, quote=FALSE)
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment