R/clipboard_read.R

In patelm9/mirCat:

#' Reads from clipboard
#' @export
#'
clipboard_read <- function(header = TRUE, log = TRUE, io_comment = "", io_details = "") {

        if (log == TRUE) {
                log_this_as(path_to_file = "clipboard",
                            activity = "input",
                            io_comment = io_comment,
                            io_details = io_details)
        }

        if (header == TRUE) {
                return(read.table(pipe("pbpaste"), sep= "\t", header= TRUE))
        } else {
                return(read.table(pipe("pbpaste"), sep= "\t", header= FALSE))
        }
}