为什么在写入CSV文件时Purrr：：Pwalk不起作用

发布于02月16日

我正在try 将模拟的测试数据写入一个临时目录.我将不得不编写大量文件，并且我想用purrr包中的函数来编写循环，因为它们似乎具有简洁的设计语法.但是我不能让purrr::pwalkgo 工作吗？我做错了什么？

library(data.table)
library(purrr)

# define temporary directory
pp <- withr::local_tempdir()

# define function to write simulated files
f <-
  function(.x,.y) {
    dt <- data.table(country = .x, school_id = 1:2, school_type = c("a","b"))
    fwrite(dt, withr::local_tempfile(pattern = paste0("school.",.x), tmpdir = .y))
  }
# deploy function to write two files
purrr::walk2(.x = c("at","de"), .y = pp, .f = f)

# why no files in pp?
list.files(pp)

我引用了以下内容:

https://www.tidyverse.org/blog/2023/05/purrr-walk-this-way/个

https://adv-r.hadley.nz/functionals.html?q=purrr#purrr-style个

推荐答案

withr::local_tempfile为我们提供了完整的路径，而不仅仅是文件名.因此，该函数按预期工作，它只是写入另一个临时文件夹(由local_tempfile创建，而不是您分配给pp的那个).

library(data.table)
library(purrr)

pp <- withr::local_tempdir()

fw <- function(.x, .y) {
    dt <- data.table(country = .x, school_id = 1:2, school_type = c("a","b"))
    fwrite(dt, paste(.y, paste0("school.", .x), sep = "/"))
  }

purrr::walk2(.x = c("a","b"), .y = pp, .f = fw)

list.files(pp)
#> [1] "school.a" "school.b"

^{创建于2024-02-15，第reprex v2.0.2页}