R:如何显示“保存文件”对话框以将文件保存在gWidgets中

时间:2013-06-12 18:29:12

标签: r gwidgets

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

保存向导我想说,我们可以选择带有 file.choose()的文件,同样我们如何保存文件使用R gWidgets中的任何保存向导

请提出建议

1 个答案:

答案 0 :(得分:2)

简短的回答:你做不到。 答案很长:你可以自己制作菜单。

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

然后您可以自由添加自己的弹出菜单。 ggraphics中的那个基本上就是这个(指向托马斯所做的gfile):

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)