在 R 中发送带有参数的系统命令

Question

我正在尝试在 R 中编写一个函数，该函数允许我使用 Libreoffice 自动查看数据框。这个想法是，当我想查看数据时，该函数将编写一个临时 csv 文件并用 R 打开它。这是我拥有的代码：

view <- function(data) {
    FILE = "/home/spreadSheetView/temp.csv"
    write.csv(data, file = FILE, row.names = F)
    system(command = "export $(dbus-launch); \
                      export NSS_USE_SHARED_DB=ENABLED; \
                      libreoffice --calc /home/spreadSheetView/temp.csv")
}

并且代码有效。但是，在Libreoffice 中打开文件时，我不想使用文件的绝对目录，而是想使用$FILE 或${FILE} 之类的东西，最后一行代码将如下所示：

libreoffice --calc $FILE")

遗憾的是，程序无法以这种方式找到文件。您能否建议是否有使用这种方法的方法？谢谢！

Answer 1

你可以使用

command = paste(
      "export $(dbus-launch); \
       export NSS_USE_SHARED_DB=ENABLED; \
       libreoffice --calc",
     FILE )
system(command)

Answer 2

此社区 Wiki 答案取自先前出现在问题中的自我回答：

---

代码基于@CharlesDuffy 的回答并进行了一些修改，因为我无法使/bin/sh 与export 一起使用。

view <- function(data) {
    FILE = "/home/spreadSheetView/temp.csv"
    write.csv(data, file = FILE, row.names = F)
    system2(command = "export",
        args = c("$(dbus-launch) NSS_USE_SHARED_DB=ENABLED; ",
                 "libreoffice --calc \"$1\" ",
                  FILE))
}