如何使用walk（）或walk2（）保存临时文件/ .RData文件

Question

我有一个函数，其中我标识了两个数据框之间的新行，我想将它们保存为.RData，以便以后在项目目录中的temp文件夹中的另一个函数中使用。

函数如下：

fun <- function(df1, df2){

  if(identical(df1, df2)){

    stop("No new updated rows") 

    } else { 
      df_combined <- bind_rows(df1, df2, .id = "group")

      new_rows <-  df_combined %>% filter(group == 2)

      n <-  df_combined %>% filter(group == 2) %>% count

      print(str_c("there are ", n, " new rows"))

    }


}

这是它的工作方式：

mt_1 <- mtcars[1:4]
mt_2 <- mtcars[1:10]

> fun(mt_1, mt_2)
[1] "there are 32 new rows"

我正在尝试通过添加以下内容来保存new_rows对象：

new_rows %>% walk(~.x %>% saveRDS(file = paste0("/temp/", Sys.Date(), "new_rows.RData")))

我不知道walk()方面。谢谢您的任何建议！