Anything like dir.choose (similar to file.choose) in R?

From: Earl F. Glynn

Does R have a dir.choose function?

I can use file.choose like this as a kludge to get something like a
dir.choose, but a real dir.choose would be better:

  cat("Select one of files in directory to process:\n")
  filename <- gsub("\\\\", "/", file.choose())
  basepath <- dirname(filename)

Windows provides a lower-level SHBrowseForFolder function to 
create such a
dialog (see links below).  Do other platforms have similar 
functionality at
a lower level?  (Hoping this would be an easy addition to R.)

SHBrowseForFolder Function
http://msdn.microsoft.com/library/default.asp?url=/library/en-
us/shellcc/platform/shell/reference/functions/shbrowseforfolder.asp

Using the Shell API function SHBrowseForFolder()
http://community.borland.com/article/0,1410,17008,00.html

efg
--
Earl F. Glynn
Bioinformatics
Stowers Institute for Medical Research