所以问题是如何选择上一年的最后一天.我想把它设置为自动,因为我们可能会这样做几年.
我已经建立的是这样的:
lastyear <- as.numeric(format(today, "%Y")) - 1
今天只是一个带有Sys.Date()的对象,所以我不相信我需要为此提供代码？(如果有人真的想知道,那就是日期的格式.)
我上面的代码得到了前一年的罚款,但我希望能为我挑选出"2014-12-31".
那么,重复的问题是如何自动挑选上一年的最后一天？
另外,我在这个脚本中使用了lubridate.
我正在处理的项目需要创建一个自动脚本，该脚本将连接到我的数据库表（每天更新）并将该表放入 R 中，然后我将其输出到某个目录下的某个名称。好吧，该项目的主要思想是保留所有这些表的历史记录，以便我们可以开始使用它们，但它每天都会被覆盖。
编码 ：
table<- sqlQuery(channel, "Select * From table")
write.table(table, file="C:/DailyReport/data.xlsx")
所以问题是：如何将 write.table 函数设置为不每天都覆盖？（我对任何解决方案持开放态度）