クリップボードへ出力する方法

con <- pipe("pbcopy","w")
cat("this is a test text to 'pbcopy'.\n", file=con)
write.table(iris[1:10,], file=con)
close(con)