Question

我有这样的清单：

l <- list("patients" = patients, 
          "patient_orders" = patient_orders,
          "specimen_info" = specimen_info, 
          "hasta_test_bilgi" = hasta_test_bilgi, 
          "patient_reports_rerun" = patient_reports_rerun,
          "diagnosis" = diagnosis)

所有列表项都是tibbles，我想将每个tibble写成单独的.csv文件和列表名称。

我可以通过以下代码完成此操作：

walk2(.x = l,.y = glue("output/{names(l)}.csv"),  .f = write_excel_csv)

有没有任何优雅的方法来完成此操作来执行此操作：我搜索了像占位符这样的purrr文档。使用walk（）

由于

Answer 1

每当您需要查看列表的名称和内容时，请使用imap子系列，其中包括我们将在此处使用的iwalk。

这些都是等价的：

walk2(.x = l,.y = glue("{names(l)}.csv"),  .f = write.csv)
walk(names(l), ~ write.csv(l[[.]], glue("{.}.csv")))
iwalk(l,~write.csv(.x,glue("{.y}.csv")))
l %>% set_names(glue("{names(.)}.csv")) %>% iwalk(write.csv)

purrr占位符：替代编码

1 个答案: