4

我曾经写过一篇关于将 graphis 与外部程序结合起来的博客，并收到了一位读者（-单击此处-）关于完全在 R 中使用 ghostscript 实现这一点的精彩评论，如下所示。我最近一直在使用它，并想与他人分享。我想修改它以使功能更直观，检测 ghostscript 类型是我想做但做不到的一个 mod。unix 与 windows 很容易通过.Platform. 症结在于我挣扎的Windows 32 vs. 64。

如何使用 R 检测正在运行的 ghostscript 版本（gswin32c 或 gswin64c）？仅仅看计算机的规格是不够的，因为我在 Win 64 机器上运行 gswin32c。这个想法是完全删除 os 参数或将其设置为NULL并让函数尝试访问此信息。

mergePDF <- function(infiles, outfile, os = "UNIX") {
    version <- switch(os,
        UNIX = "gs",
        Win32 = "gswin32c",
        Win64 = "gswin64c")
    pre = " -dBATCH -dNOPAUSE -q -sDEVICE=pdfwrite -sOutputFile="
    system(paste(paste(version, pre, outfile, sep = ""), infiles, collapse = " "))
}


pdf("file1.pdf", width = 10, height = 8)
plot(1:10, col="red", pch = 19)
dev.off()

pdf("file2.pdf", width = 16, height = 8)
plot(1:10)
dev.off()

mergePDF("file1.pdf file2.pdf", "mergefromR.pdf", "Win32")
4

1 回答 1

5

泰勒，伙计。我是否已经从 Stack Ove- R -flow同行降级为您博客的“读者”？或者那是一种促销活动；）

这对我来说有点骇人听闻，但应该可以完成工作。将此添加为函数的前几行并删除 os 参数：

testme <- c(UNIX = "gs -version", 
            Win32 = "gswin32c -version", 
            Win64 = "gswin64c -version")
os <- names(which(sapply(testme, system) == 0))

我使用了这个-version开关，这样 R 就不会尝试不必要地加载 Ghostscript。

在我的 Ubuntu 系统上，当我运行它os时，按预期返回 ，UNIX而在我安装了 32 位版本 Ghostscript 的 Windows 系统上，它返回Win32. 在运行 32 位 GS 的 64 位机器上试一试，然后告诉我它是如何工作的。

更新

在阅读 和 的帮助页面后system()，system2()我了解了Sys.which()，这似乎正是您正在寻找的。这是在我的 Ubuntu 系统上运行的：

Sys.which(c("gs", "gswin32c", "gswin64c"))
#            gs      gswin32c      gswin64c 
# "/usr/bin/gs"            ""            "" 
names(which(Sys.which(c("gs", "gswin32c", "gswin64c")) != ""))
# [1] "gs"

mergePDF()因此，可以在函数中完全跳过操作系统规范：

mergePDF <- function(infiles, outfile) {
  gsversion <- names(which(Sys.which(c("gs", "gswin32c", "gswin64c")) != ""))
  pre = " -dBATCH -dNOPAUSE -q -sDEVICE=pdfwrite -sOutputFile="
  system(paste(paste(gsversion, pre, outfile, sep = ""), infiles, collapse = " "))
}

你可能想做一些错误检查。例如，如果 的长度gsversion> 1 或为 0，您可能希望停止该功能并提示用户安装 Ghostscript 或验证其 Ghostscript 版本。

于 2013-01-17T10:04:14.217 回答