在R中使用文件名中的参数写一个csv文件

Question

我正在R中做一个小型的日志处理项目。我试图编写一个获取数据帧的函数，并将其写入带有某些参数（数据帧名称，今天的日期等）的csv文件中。

我已经取得了一些进步，但是没有编写csv。我希望代码是可复制的并且是好的。

library(dplyr)
wrt_csv <- function(df) {
  dfname <- deparse(substitute(df))
  dfpath <- paste0('"',"./logs/",dfname, "_", Sys.Date(),'.csv"')
  dfpath <- as.data.frame(dfpath)
  df %>% write_excel_csv(dfpath)

}
wrt_csv(mtcars)

编辑-这是效果很好的最终版本。感谢Ronak Shah。

wd<- getwd()

wrt_csv <- function(df) {
  dfname <- deparse(substitute(df))
  dfpath <- paste0(wd,'/logs/',dfname, '_', Sys.Date(),'.csv')

  df %>% write_excel_csv(dfpath)
}

但是我现在有一堆要与它们一起运行功能的数据框。我应该把它们列为清单吗？

有什么想法吗？谢谢！

Answer 1

将dfpath保留为字符串。尝试：

wrt_csv <- function(df) {
   dfname <- deparse(substitute(df))
   dfpath <- paste0('/logs/',dfname, '_', Sys.Date(),'.csv')
   write.csv(df, dfpath, row.names = FALSE)
   #Or same as OP
   #df %>% write_excel_csv(dfpath)
}

wrt_csv(mtcars)