r 功能：将数据复制到剪贴板以进行Excel

Posted 2021-05-24

#function that copies a dataframe to the clipboard such that it can then be pasted to Excel (tab delimited)
cb <- function(df, sep="\t", dec=".", max.size=(200*1000)){
    # Copy a data.frame to clipboard
    write.table(df, paste0("clipboard-", formatC(max.size, format="f", digits=0)), sep=sep, row.names=FALSE, dec=dec)
}

cb(dataframe)

library(data.table)  
files <- list.files(path = "/etc/dump",pattern = ".csv")
temp <- lapply(files, fread, sep=",")
data <- rbindlist( temp )