Displaying 3 results from an estimated 3 matches for "ok_handler".
Did you mean:
_handler
2010 May 18
1
GUI commands to call for a protein from protein data bank
...otein. My question is how to you make the input for read.pdb actually be
the input by the user and not protein code. I want to be able to type 1ly2,
and for the program to actually display the contents of 1ly2. Thanks!
Code:
dlg <- aDialog(items=list(
ProteinCode=stringItem("")
),
OK_handler=function(.) { # . is reference to dlg object
values <- .$to_R()
f <- function(ProteinCode)
pdb <- read.pdb("ProteinCode")
do.call(f, values)
}
)
dlg$make_gui()
--
View this message in context: http://r.789695.n4.nabble.com/GUI-commands-to-call-for-a-protein-from-protein-data-ban...
2012 Mar 22
1
how to adjust gui window size
hi, i'm trying to make gui function by "aDialog" FUN.
What i want to do is adjusting the window size.
my function is ,
aa<- aDialog(items=list(
ps=numericItem(),
number=numericItem(),
term=numericItem()
),
OK_handler=function(.) { # . is reference to dlg object
values <- .$to_R()
do.call("KOD",values)
}
)
how can i adjust the size of the window?
Thanks~
--
View this message in context: http://r.789695.n4.nabble.com/how-to-adjust-gui-window-size-tp4495883p4495883.html
Sent from the R help mailing...
2012 Apr 24
0
help with GUI interface
...t_file.type(c(txt="table",csv="csv")[i])
}
}
switch(.$get_file.type(),
"csv"={.$set_sep(","); .$set_quote('\"')},
"table"={},
{}
)
.$set_output(.$do_call("read_file",.$to_R()))
}
dlg$OK_handler <- function(.) {
out <- .$do_call("read_file",.$to_R())
assign.to <- .$get_assign.to()
if(exists(assign.to, envir=.GlobalEnv)) {
if(!gconfirm(sprintf("Overwrite variable %s?", assign.to)))
return()
}
assign(assign.to, out, envir=.GlobalEnv)
}...