R/read_clipboard.R

In patelm9/mirroR:

#' Reads dataframe copied to clipboard
#'       @param  dataframe in clipboard
#'       @return dataframe
#'       @export
#'
read_clipboard <- function(header = TRUE) {
        if (header == TRUE) {
                read.table(pipe("pbpaste"), sep= "\t", header= TRUE)
        } else {
                read.table(pipe("pbpaste"), sep= "\t", header= FALSE)
        }
}