r - 使用指定路径启动 mac finder 窗口

Question

有没有办法从 RGUI 命令行启动 mac finder 窗口？我正在浏览一堆文件，查看文件夹而不是使用 list.files() 会很有帮助

Answer 1

要从 RGUI 命令行打开 Finder，直接的解决方案是使用：

system("open /System/Library/CoreServices/Finder.app/")

编辑：对于指定的路径，system("open ~/Desktop")将在用户桌面上打开 Finder，例如，因为在 MacOSX 中打开任何目录的默认应用程序是 Finder。

Answer 2

要使用 Mac 的本机文件选择对话框选择（并返回到 R）文件，可以按如下方式完成，尽管此解决方案依赖于qtbaseQt 库：

library(qtbase)
file_selector <- function(initial_dir=getwd(), multiple=FALSE) {
  f <- Qt$QFileDialog()
  ## configure
  f$setDirectory(initial_dir)
  if(multiple)
    f$setFileMode(Qt$QFileDialog$ExistingFiles)
  ## run
  out <- f$exec()
  if(out == 1)
    f$selectedFiles()
  else
    NULL
}

如果您安装了 aqua tk 库（不是 X11 库），那么可能tkgetOpenFile可以使用，尽管我没有检查。