在创建晕影时检查程序是否存在(例如pdfcrop)的平台中立方式

Question

我有一个小插图使用pdfcrop.

这并不是每台计算机或操作系统都可用:R维护者告诉我这pdfcrop是在他们的Debian系统上,但显然不是其他人.因此,我想在插图中包含一些逻辑,以确定该程序是否可用并尽可能使用它(我正在使用knitr构建插图并因此knit_hooks$set(crop = hook_pdfcrop)激活它).

我知道我可以.Platform用来获取操作系统,如果我在unix上,那么我可以使用which pdfcropvia system()来告诉我程序安装在哪里/是否,但我不知道如何使这个过程适用于OSX,linux, Windows等,我不知道如何正确获取which其他平台的返回值或相应的命令.

换句话说,我正在尝试做类似这样的问题但是我没有检查R包,我正在检查非R程序.我转向SO,因为我既没有知识也没有平台来检查它.

Answer 1

R具有此功能Sys.which().用它的帮助页面来说,它是"系统命令的接口','或者是Windows上的仿真".

以下是我自己的Windows机器上的调用:

Sys.which("pdfcrop")
#                                              pdfcrop 
# "C:\\PROGRA~2\\MIKTEX~1.9\\miktex\\bin\\pdfcrop.exe" 

要测试是否存在可执行文件,您可以执行以下操作:

Sys.which("pdfcrop") != ""
# pdfcrop 
#    TRUE 

Sys.which("pdfpop") != ""
# pdfpop 
#  FALSE