to_clipboard <- function(data) {
  clip <- pipe("pbcopy", "w")
  write.table(data, file = clip)
  close(clip)
}