R/copy_to_clipboard.R

In patelm9/mirroR:

#' Copies dataframe copied to clipboard
#'       @param  dataframe object
#'       @return dataframe in clipboard
#'       @export
copy_to_clipboard <- function(dataframe) {
        clip <- pipe("pbcopy", "wb")
        write.table(dataframe, clip, sep = "\t", row.names = FALSE)
        close(clip)
}