我有一个生成报告的代码。在代码的开头，我需要询问两个日期（开始和期间）。我怎么能这样做？
我正在使用readline()，但它很难看
data1 <- as.Date(readline('Digite a data de inicio (dd/mm/aaaa): '), "%d/%m/%Y")
data2 <- readline('Digite a data de fim (não irá incluir o dia. Deixe em branco para pegar exatamente 1 mês contando da data de inicio): ')
我用交互式 GUI 日历搜索了一些解决方案，但没有找到。