У меня есть функция, в которой я идентифицирую новые строки между двумя кадрами данных, я хотел бы сохранить их как .RData для последующего использования в другой функции во временной папке в каталоге проекта.
Функции выглядят так:
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(). Спасибо за любые предложения!