P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2024-12-25 06: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

26
R/clipboard.R
View File

@ -64,21 +64,17 @@ clipboard_export <- function(x,
as.integer()
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
write.table(x = x,
file = paste0("clipboard-", size * 1.25),
sep = sep,
na = na,
row.names = FALSE,
col.names = header,
dec = dec,
quote = FALSE)
}
# set size of clipboard to 125% of the object size of x
write.table(x = x,
file = paste0("clipboard-", size * 1.25),
sep = sep,
na = na,
row.names = FALSE,
col.names = header,
dec = dec,
quote = FALSE)
cat("Successfully exported to clipboard:", NROW(x), "obs. of", NCOL(x), "variables.\n")
}