P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2024-12-26 04:46:11 +01:00
Code Releases Activity

Remove Windows only function

Browse Source
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
1 changed files with 11 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
R/clipboard.R
View File

@ -65,10 +65,6 @@ clipboard_export <- function(x,
x <- get(x) x <- get(x)
if (size > 25 * 1024 * 1024) {
# above 25 MB use a hacker function
writeClipboard(knitr::kable(x))
} else {
# set size of clipboard to 125% of the object size of x # set size of clipboard to 125% of the object size of x
write.table(x = x, write.table(x = x,
file = paste0("clipboard-", size * 1.25), file = paste0("clipboard-", size * 1.25),
@ -78,7 +74,7 @@ clipboard_export <- function(x,
col.names = header, col.names = header,
dec = dec, dec = dec,
quote = FALSE) 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")
} }