Я думаю, вы можете использовать gcalendar () из gWidgets.
options("guiToolkit"="RGtk2")
library(RGtk2)
library(gWidgets)
win <- gwindow("Test Calendar", width=12)
Group <- ggroup(cont=win)
tmp <- gframe("Date", container=Group )
add(tmp, calStart)
add(tmp, calEnd)
calStart <- gcalendar("Debut", format = "%Y-%m-%d")
calEnd <- gcalendar("Fin", format = "%Y-%m-%d")
dateStart <- svalue(calStart)
dateFin <- svalue(calEnd)
Возможно, это может вам помочь.
С уважением,
YougyZ