如何将choose.file（）对话框带到前台

Question

我在Windows XP下使用rscript.exe运行的脚本中使用函数choose.dir()。问题是目录选择对话框不会弹出作为顶级窗口。如何将对话置于前台？

与此同时，我使用visual basic脚本解决了我的问题。当然，这只适用于windows：

tf <- tempfile(fileext = '.vbs')
cat('Set folder = CreateObject("Shell.Application") _
        .BrowseForFolder(0, "Please choose a folder" _
       , &H0001, 17)
       Wscript.Echo folder.Self.Path
', file = tf)
tail(shell(paste('Cscript', tf), intern = T), 1)

Answer 1

搜索rhelp档案后，答案显示您无法在非交互式会话中使用choose.dir和file.choose。您可能可以执行类似的操作，因为list.files，file.info，file.access和files可用于收集信息，您可以通过写入图形设备来显示此信息并执行system（）调用以显示它，并且readLines可用于获取用户输入。