tod<-Sys.Date（）
formate（tod,format＝"%A"）
为什么输出的结果是"星期五"不是"Friday"
sys.date获取系统日期，用
lct <- Sys.getlocale("LC_TIME")
print(lct)
就可看出区域设置，是中文简体
如要输出英文的Friday，可以设置：
Sys.setlocale(category = "LC_ALL",locale = "eng")。用local='chs'指定为中文。
也可这样操作：
print(format(Sys.Date(), "%A"))
Sys.setlocale("LC_TIME",'C')
print(format(Sys.Date(), "%A"))
print(format(Sys.Date(), "%c"))