inst/Examples/ch-RGtk2/ex-RGtk2-basic-file-dialog.R

In jverzani/ProgGUIinR: support package for "Programming Graphical User Interfaces in R"

###################################################
### code chunk number 66: openFileDialog
###################################################
dialog <- gtkFileChooserDialog(title = "Open a file", 
                     parent = NULL, action = "open",
                     "gtk-ok", GtkResponseType["ok"],
                     "gtk-cancel", GtkResponseType["cancel"],
                     show = FALSE)


###################################################
### code chunk number 67: Pre-defined-dialogs.Rnw:165-173
###################################################
gSignalConnect(dialog, "response", 
               f = function(dialog, response, data) {
                 if(response == GtkResponseType["ok"]) {
                   filename <- dialog$getFilename()
                   print(filename)
                 }
                 dialog$destroy()
               })


###################################################
### code chunk number 68: Pre-defined-dialogs.Rnw:183-188
###################################################
fileFilter <- gtkFileFilter()
fileFilter$setName("R files")
fileFilter$addPattern("*.R")
fileFilter$addPattern("*.Rdata")
dialog$addFilter(fileFilter)

dialog$run()