Displaying 1 result from an estimated 1 matches for "paramchoice".
2014 Mar 21
1
Memcheck: error in a switch using getGraphicsEvent
...get from Memtest
--- 8< ----------------
> try(choice(cld1))
Error in switch(EXPR = choix, Up = { : EXPR must be a length 1 vector
--- 8< ----------------
The choice function does call the choiceChangeParam function, which is:
--- 8< ----------------
choiceChangeParam <- function(paramChoice){
texte <- paste(" ~ Choice : menu ~\n",sep="")
choix <- getGraphicsEvent(texte,onKeybd=function(key){return(key)})
switch(EXPR=choix,
"Up" = {
if(xy[1]>1){
paramChoice['toDo']...