## Source clipCopy
source("~/git/misc/rscripts/utils/clipCopy.r")

txt <- "Hi There"

con <- pipe("pbcopy", "w")
ret <- writeLines(txt, con, sep="")
close(con)

## Return
invisible()