----------------------- *** Disclaimer *** -----------------------
This e-mail and its contents are subject to the SA Reserve Bank's
Disclaimer and Confidentiality Clause, which can be viewed at:
http://www.reservebank.co.za/disclaimer
Should you be unable to access the link provided, please send a
blank e-mail to disclai...@resbank.co.za
----------------------- *** Disclaimer *** -----------------------
Hi,
Apart from experimenting with gWidgets, I'm also experimenting with RGG. Very
impressed with it so far, especially considering it's pre-alpha status. I have,
however, found that the accepted-extensions attribute of filechooser doesn't
behave as expected. Despite setting accepted-extension=".RData", any file can
still be selected.
Here is the basic script I am busy with. It is meant to select the working
directory and load the .RData file if that file is selected.
Note that the R script is in a separate file, which the .rgg sourcing that file.
RGG FILE:
<rgg>
#### First test of RGG. setwd and load .R file
<filechooser label="Path:" var="path" accepted-extension=".RData"/>
source("C:/Documents and Settings/p176435/My
Documents/gev_application/rgg_test01.R")
dir = tstDir(path)
setFun(path, dir = dir)
if(!dir) load(path)
getwd()
ls()
</rgg>
THE R SCRIPT rgg_test01.R:
#### Function to paste togeth characters
pCh <- function(ch){
x <- ""
for(i in ch){
x <- paste(x, i, sep = "")
}
return(x)
}
#### Function to test if file or directory
tstDir <- function(path){
lch <- unlist(strsplit(path, NULL))
sq <- seq(length(lch)-5, length(lch))
lch <- pCh(lch[sq])
print(lch)
dir <- ifelse(lch == ".RData", FALSE, TRUE)
return(dir)
}
#### Function to set workspace and / or load prev session.
setFun <- function(path, dir = TRUE){
ifelse(dir, setwd(path), setwd(dirname(path)))
}
Any help or suggestions whatsoever, would be most appreciated.
Kind regards,
Stefan Janse van Rensburg
Macroprudential Division
Financial Stability Department
SARB
Tel : 012-313 4687
Fax : 012 313 4772
[[alternative HTML version deleted]]
_______________________________________________
R-SIG-GUI mailing list
R-SIG-GUI@stat.math.ethz.ch
https://stat.ethz.ch/mailman/listinfo/r-sig-gui
