带有 purrr::map_dfr() 的本机管道

Question

我想将新的原生管道|> 与purrr::map_dfr() 一起使用。 （为了使其可重现，我将数据集作为字符串而不是路径传递，但这不应该有所作为。）

csvs <- c(
  "csv_a" = "a,b,c\n1,2,3\n4,5,6",
  "csv_b" = "a,b,c\n-1,-2,-3"
)
col_types <- readr::cols(.default = readr::col_character())

# Approach 1
csvs |> 
  purrr::map_dfr(
    .f = function(p) {
      readr::read_csv(
        file = I(p),
        col_types = col_types
      )
    }
  )

# Approach 2
library(magrittr)
csvs %>%
  purrr::map_dfr(
    .x = .,
    .f = ~readr::read_csv(
      file      = I(.),
      col_types = col_types
    )
  )

我有两个问题，主要是问continue my understanding of the native pipe。

问题 1

如何用新的{\(x)...}() 语法替换显式的function(p) 部分？下面的尝试抛出“standardise_path(file) 中的错误：缺少参数“p”，没有默认值”。

csvs |> 
  purrr::map_dfr(
    .f = 
      {\(p)
        readr::read_csv(
          file      = I(p),
          col_types = col_types
        )
      }()
  )

问题 2

我也可以模仿 magrittr 方法（#2）吗？这会以某种方式读取每一行两次，包括标题。

csvs |> 
  {\(p)
    purrr::map_dfr(
      .x = p,
      .f = ~readr::read_csv(
        file      = I(p),
        col_types = col_types
      )
    )
  }()

# Produces
# A tibble: 8 x 3
  a     b     c    
  <chr> <chr> <chr>
1 1     2     3    
2 4     5     6    
3 a     b     c    
4 -1    -2    -3   
5 1     2     3    
6 4     5     6    
7 a     b     c    
8 -1    -2    -3   

编辑：作为对@MrFlick 评论的回应，我将file 的参数与I() 包装在一起，以防将来版本的readr 需要它（它似乎工作正常现在没有它）。如果您要传递典型的文件路径（而不是文字字符串），请删除对 I() 的调用。

Answer 1

问题 1 的答案 -

csvs |> 
  purrr::map_dfr(
    .f = \(k) {
      readr::read_csv(
        file      = k,
        col_types = col_types
      )
    }
  )

#     a     b     c
   <chr> <chr> <chr>
#1     1     2     3
#2     4     5     6
#3    -1    -2    -3