Запустите окно поиска Mac с указанным путем

Question

Есть ли способ запустить окно поиска Mac из командной строки RGUI? Я просматриваю кучу файлов, и было бы полезно увидеть папку, а не использовать list.files()

Answer 1

Чтобы открыть Finder из командной строки RGUI, прямое решение должно использовать:

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

РЕДАКТИРОВАТЬ: Для указанного пути, system("open ~/Desktop") откроет Finder на рабочем столе пользователя, например, потому что в MacOSX приложением по умолчанию для открытия любого каталога является Finder.

Answer 2

Чтобы выбрать (и вернуться к R) файлы с помощью Mac, диалоговое окно выбора собственных файлов можно сделать следующим образом, хотя это решение основано на qtbase и библиотеки Qt:

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 можно использовать, хотя я не проверял.