我有一个生成报告的代码。在代码的开头我需要两个日期（开始和期间）。我怎么能这样做？
我正在使用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日历搜索了一些解决方案，但我没有找到任何解决方案。