Hi all ,
I know i am asking a silly question , please help me a bit ,
fun<-function()
<<<-----------------------I have this function , dont know what
to
return here.
{
------------------------JUST GIVING HERE THE MAIN WINDOW ,
AVOIDING GIVING THE WHOLE FUNCTION HANDLERS-------------------
library(scales)
library(cluster)
library(plyr)
library(sqldf)
library(gWidgets2)
library(gWidgetsRGtk2)
library(e1071)
library(RGtk2)
options(guiToolkit="RGtk2")
#main GUI code
win=gwindow("BIG CLUST ")
img <- gdkPixbufNewFromFile("E:/clusterring/str.1.png")
getToolkitWidget(win)$setIcon(img$retval)
paned<-gpanedgroup(cont=win)
group<- ggroup ( cont = paned , horizontal = FALSE )
library(RGtk2);
getBlock(win)$modifyBg(GtkStateType["normal"], "skyblue")
tbl=glayout(cont=group)
size(tbl)<-c(600,450)
tbl[2,1] = gfilebrowse (text = "Select file...", type =
"open", quote FALSE,
filter = list("Text File" = list(patterns
c("*.csv"))), container = tbl)
tbl[14,1]= gbutton("CLEAR",cont=tbl,handler=function(h,...)
clear_data())
tbl[14,2]<-H<-gbutton("HELP",cont=tbl,handler=function(h,...)
help())
tbl[11,1]<-EDATA<<-gbutton("DATA EDIT",cont=tbl)
tbl[6,1]= glabel("CHOOSE YOUR CLUSTER TYPE :-")
tbl[23,1]= glabel("STATUS",cont=tbl)
tbl[2,2]<-SHOW<<- gbutton("SHOW DATA",cont=tbl)
tbl[1,2]=img <- gimage("E:/clusterring/pr.1.png")
tbl[9,1]<-b<<-gcombobox(c("CLARA","CMEANS","KMEANS","PAM","SOM"),
selected = NULL, editable = TRUE, coerce.with=NULL, handler = NULL, action
= NULL, container = tbl, toolkit = guiToolkit())
tbl[13,1]<-Rbutton<<- gbutton("GET CLUSTER RESULT",cont=tbl)
frame <- gframe ( "RESULT:" , cont = paned , horizontal = TRUE)
size(frame)<-c(400,400)
}
Now this is stupid , I had called the function like :-
fun() <<<<--------------------But it is not executing
,just i
m getting the window ,nothing else , so any one who can help me
to declare this GUI as an function .
Actually , i want to make it as an package and run like
"THE RATTLE" , so anybody have any idea please help me
,
Thank You in advance .
[[alternative HTML version deleted]]