R/copy.table.r

In AndreasFischer1985/TAMirt: Software package for building, analyzing and plotting models from the TAM (Test Analysis Modules) package.

#' Function copy.table
#' 
#' Copies a table to the clipboard.
#' @export


copy.table <- function (obj, size = 4096) 
{
    clip <- paste("clipboard-", size, sep = "")
    f <- file(description = clip, open = "w")
    write.table(obj, f, row.names = FALSE, sep = "\t")
    close(f)
}