r - R：如何显示保存文件对话框以将我的文件保存在 gWidgets

Question

我想通过 gWidgets 中的 GUI 保存向导保存我的文件。

从Save Wizard我想说的是，我们可以使用file.choose()选择文件，类似地，我们如何使用 R gWidgets 中的任何保存向导来保存文件

请给建议

Answer 1

简短的回答：你不能。长答案：您可以制作自己的菜单。

为此，将图形设备传递no_popup=TRUE给构造函数。

然后您可以自由添加自己的弹出菜单。ggraphics 中的那个基本上是这样的（gfile像 Thomas 那样指向你）：

library(gWidgets)
g = ggraphics(cont=gwindow(), no_popup=TRUE)

l <- list()
l$copyAction <- gaction("Copy", "Copy current graph to clipboard", icon="copy",
                        handler=function(h, ...) copyToClipboard(obj))
l$printAction <- gaction("Save", "Save current graph", icon="save",
                         handler=function(h,...) {
                           fname <- gfile(gettext("Filename to save to"), type="save")
                           if(nchar(fname)) {
                             if(!file.exists(fname) || gconfirm(gettext("Overwrite file?")))
                               svalue(obj) <- fname
                           }
                         })

add3rdMousePopupmenu(g, l)