R/toclipboard.R

In schoRsch: Tools for Analyzing Factorial Experiments

# -----------------------------------------------
# Function: Write data to clipboard.
# -----------------------------------------------
toclipboard <- function(data,
                  sep = "\t",
                  quote = FALSE,
                  eol = "\n",
                  na = "NA",
                  dec = ".",
                  row.names = FALSE,
                  col.names = TRUE,
                  clipwarning = FALSE) {
  
  if (tolower(.Platform$OS.type)=="windows") {
    if (clipwarning) {
      tryCatch({
        write.table(data, file = "clipboard", sep = sep,
                    quote = quote, eol = eol, na = na, dec = dec,
                    row.names = row.names, col.names = col.names)},
        warning = function(cond){
          write.table("Buffer overflow! Couldn't copy all content to clipboard. Set argument clipwarning = FALSE to fill buffer with incomplete data.", file = "clipboard",
                      row.names = FALSE, col.names = FALSE)
        }
      )
    } else {
      write.table(data, file = "clipboard", sep = sep,
                  quote = quote, eol = eol, na = na, dec = dec,
                  row.names = row.names, col.names = col.names)
    }
  } else {
  print("The operating system you are using is currently not supported by 'toclipboard'. No output has been written.")
  }
  
}