R help - Jun 2004 - WinMenu's question

I am using the Windows menu functions below which will work on the
first pass, but if I repeat the same script I cannot get the
WinMenuAddItem to work. This is a problem if I change the menu
structure and reread the source code I am forced to quit and restart Rgui.

"try.menu" <- function(){
  OS <- .Platform$OS.type
  GUI <- .Platform$GUI
  if (!(OS == "windows" & GUI == "Rgui"))
return("Sorry, you must be running R using Rgui.exe on MS Windows")
  try(winMenuDelItem('EMG/Graphics','Plot.trace'))
  try(winMenuDel('EMG/Graphics'))
  try(winMenuDel("EMG"))
  winMenuAdd("EMG")
  winMenuAdd("EMG/Graphics")
  winMenuAddItem("EMG/Graphics","Plot
trace","plot.trace()")
}
"plot.trace" <- function(){
  x <- eval(parse(text=trace.dialog()))
  plot(x,type="l")
  invisible()
}


Help much appreciated

Ross Darnell
-- 
University of Queensland, Brisbane QLD 4067 AUSTRALIA
Email: <r.darnell at uq.edu.au>
Phone: +61 7 3365 6087     Fax: +61 7 3365 4754
http://www.shrs.uq.edu.au/shrs/school_staff/ross_darnell.html

Ross Darnell wrote:
> I am using the Windows menu functions below which will work on the
> first pass, but if I repeat the same script I cannot get the
> WinMenuAddItem to work. This is a problem if I change the menu
> structure and reread the source code I am forced to quit and restart Rgui.
> 
> "try.menu" <- function(){
>   OS <- .Platform$OS.type
>   GUI <- .Platform$GUI
>   if (!(OS == "windows" & GUI == "Rgui"))
return("Sorry, you must be running R using Rgui.exe on MS Windows")
>   try(winMenuDelItem('EMG/Graphics','Plot.trace'))
                                            ^ note the dot
>   try(winMenuDel('EMG/Graphics'))
>   try(winMenuDel("EMG"))
>   winMenuAdd("EMG")
>   winMenuAdd("EMG/Graphics")
>   winMenuAddItem("EMG/Graphics","Plot
trace","plot.trace()")
                                        ^ note the blank


Uwe Ligges

> }
> "plot.trace" <- function(){
>   x <- eval(parse(text=trace.dialog()))
>   plot(x,type="l")
>   invisible()
> }
> 
> 
> Help much appreciated
> 
> Ross Darnell