使用Purrr导出列表

Question

我有一个包含子表的列表。我希望能够使用purrr分别使用列表中项目的名称导出表格 - 在下面的情况下，我将获得三个文件，每个工厂以今天的日期命名

library('purrr')
library('tidyverse')

mytest <- iris
mylist <- split(mytest,f = mytest$Species)
names(mylist)

# basically pseudo code for explanation purposes
write_excel_csv(mylist[1], names(mylist[1]))

我现在只学习如何有效地使用它，所以对解释的帮助以及你为什么这样做会很棒

我知道我可以写一个for循环来遍历列表，但我想用这个作为学习经验开始purrr

感谢您的时间

Answer 1

基础R的

Map可以正常工作：

Map(write.csv, mylist, sprintf("%s-%s.csv", names(mylist), Sys.Date()))
list.files(pattern = "*.csv")
# [1] "setosa-2017-02-13.csv"     "versicolor-2017-02-13.csv" "virginica-2017-02-13.csv"

或者，可以这种方式使用walk2（以及可能是purrr中的其他几个函数）。