P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-09 04:02:19 +02:00
Code Releases Activity

Fix Latex PDF error

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2018-04-30 16:24:11 +02:00
parent 970e3ed7f1
commit 8fe70d5652
4 changed files with 27 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
R/clipboard.R
View File

@ -13,23 +13,15 @@
#' @importFrom utils read.delim write.table object.size
#' @details For \code{clipboard_export()}, the reserved clipboard size for exporting will be set to 125\% of the object size of \code{x}. This way, it is possible to export data with thousands of rows as the only limit will be your systems RAM.
#'
#' Example for copying from Excel:
#' \if{html}{
#' Example for copying from Excel:
#' \out{<div style="text-align: left">}\figure{Excel_copy.png}\out{</div>}
#' }
#' \if{latex}{
#' \out{\begin{left}}\figure{Excel_copy.png}\out{\end{left}}
#' }
#' \cr
#' And pasting in R: \cr \cr
#' \code{> data <- clipboard_import()} \cr
#' \code{> data} \cr
#' \if{html}{
#' \cr
#' And pasting in R: \cr \cr
#' \code{> data <- clipboard_import()} \cr
#' \code{> data} \cr
#' \out{<div style="text-align: left">}\figure{Excel_paste.png}\out{</div>}
#' }
#' \if{latex}{
#' \out{\begin{left}}\figure{Excel_paste.png}\out{\end{left}}
#' }
#' @export
#' @return data.frame
clipboard_import <- function(sep = '\t',
@ -135,14 +127,14 @@ clipboard_export <- function(x,
}
is_Windows <- function() {
Sys.info()['sysname'] %like% "Windows"
all(Sys.info()['sysname'] %like% "Windows")
}
check_xclip <- function() {
if (!isTRUE(file.exists(Sys.which("xclip")[1L]))) {
if (Sys.info()['sysname'] %like% "Linux") {
if (all(Sys.info()['sysname'] %like% "Linux")) {
stop("Please install Linux package xclip first.")
} else {
stop("Please install package xclip first (use `brew install xclip on macOS`).")
stop("Please install package xclip first (use `brew install xclip` on macOS).")
}
}
}