Problem with R-2.1.0: install.packages() doesn't work

Hi all,

In follow up to my message earlier, I spent some time applying the
modification to the menu() function that I referenced earlier. I also
recompiled a local copy of R on my FC3 system using:

./configure --without-tcltk

This results in:

capabilities()

    jpeg      png    tcltk      X11 http/ftp  sockets   libxml     fifo
    TRUE     TRUE    FALSE     TRUE     TRUE     TRUE     TRUE     TRUE
  cledit  IEEE754    iconv
    TRUE     TRUE     TRUE


The first time around, I ran the menu() function unchanged and got the
same error that Scott and Manuel reported earlier:

Error in inherits(x, "factor") : Object "res" not found

'res' is the value returned from the tcltk function tk.select.list()
used in menu().

This appeared for the series of functions that call menu(), such as
update.packages(), install.packages(), chooseCRANmirror(), contrib.url
(), etc.

After modifying the menu function, I was able to get:

install.packages("rgenoud")

--- Please select a CRAN mirror for use in this session ---
CRAN mirror

 1: Australia               2: Austria
 3: Brasil (PR)             4: Brasil (MG)
 5: Brasil (SP 1)           6: Brasil (SP 2)
 7: Canada (BC)             8: Canada (ON)
 9: Denmark                10: France (Toulouse)
11: France (Lyon)          12: France (Paris)
13: Germany (Berlin)       14: Germany (Koeln)
15: Germany (Mainz)        16: Germany (Muenchen)
17: Hungary                18: Italy (Arezzo)
19: Italy (Ferrara)        20: Japan (Aizu)
21: Japan (Tsukuba)        22: Poland
23: Portugal               24: Slovenia (Besnica)
25: Slovenia (Ljubljana)   26: South Africa
27: Spain                  28: Switzerland (Zuerich)
29: Switzerland (Bern 1)   30: Switzerland (Bern 2)
31: Turkey                 32: Taiwan
33: UK (Bristol)           34: UK (London)
35: USA (CA 1)             36: USA (CA 2)
37: USA (MA)               38: USA (MI)
39: USA (NC)               40: USA (PA 1)
41: USA (PA 2)             42: USA (WA)


Selection:


So, with the modification in menu() and without tcltk available, the
text menu now comes up properly.

The proposed patch for .../src/library/utils/menu.R is attached.

HTH,

Marc Schwartz



------------------------------------------------------------------------

--- R-2.1.0/src/library/utils/R/menu.R	2005-04-18 05:18:57.000000000 -0500
+++ R-2.1.0-patch/src/library/utils/R/menu.R	2005-04-22 22:08:23.000000000 -0500
@@ -6,9 +6,10 @@
             res <- select.list(choices, multiple=FALSE, title=title)
             return(match(res, choices, nomatch = 0))
         } else if(.Platform$OS.type == "unix"
-                && capabilities("tcltk") && capabilities("X11"))
+                && capabilities("tcltk") && capabilities("X11")) {
             res <- tcltk::tk_select.list(choices, multiple=FALSE, title=title)
             return(match(res, choices, nomatch = 0))
+        }    
     }
     nc <- length(choices)
     if(length(title) && nchar(title[1])) cat(title[1], "\n")


------------------------------------------------------------------------