1
0
mirror of https://github.com/msberends/AMR.git synced 2024-12-25 18:06:12 +01:00

Remove Windows only function

This commit is contained in:
MS Berends 2018-03-23 14:52:56 +01:00 committed by GitHub
parent 53464ff1c8
commit 1b3daebc84
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -64,21 +64,17 @@ clipboard_export <- function(x,
as.integer() as.integer()
x <- get(x) x <- get(x)
if (size > 25 * 1024 * 1024) { # set size of clipboard to 125% of the object size of x
# above 25 MB use a hacker function write.table(x = x,
writeClipboard(knitr::kable(x)) file = paste0("clipboard-", size * 1.25),
} else { sep = sep,
# set size of clipboard to 125% of the object size of x na = na,
write.table(x = x, row.names = FALSE,
file = paste0("clipboard-", size * 1.25), col.names = header,
sep = sep, dec = dec,
na = na, quote = FALSE)
row.names = FALSE,
col.names = header,
dec = dec,
quote = FALSE)
}
cat("Successfully exported to clipboard:", NROW(x), "obs. of", NCOL(x), "variables.\n") cat("Successfully exported to clipboard:", NROW(x), "obs. of", NCOL(x), "variables.\n")
} }