xuxx0249
write.table(data,file=paste0("finaltab", Sys,Date()))
试试这个
filename <- paste0("./final_table_",format(Sys.Date(),"%Y%m%d"),".csv")
filename
#> [1] "./final_table_20180719.csv"
## writeout your table using filename
#write.table(mtcars,file=filename)
Created on 2018-07-19 by the reprex package (v0.2.0.9000).