Need date picker for R application

Question

I am searching for a simple date picker to use with R. I can find many pickers written in other languages, but I would rather not mix languages if at all possible. Does anyone know of a R package which provides this functionality?

Answer 1

If you don't mind installing gWidgets and gWidgetstcltk you have this:

library(gWidgetstcltk)
options(guiToolkit="tcltk")
#    
pickDate <- function() {
  date <- NULL
  dlg <- gbasicdialog(handler=function(...) date <<- svalue(calendar))
  calendar <- gcalendar(cont=dlg)
  visible(dlg, set=TRUE)
  date
}