时间戳

首页 > 解决方案 > 在 dplyr 管道操作中将 here() 函数与 map() 集成

r - 在 dplyr 管道操作中将 here() 函数与 map() 集成

问题描述

我最近阅读了这篇文章，该文章建议不要在脚本中使用 setwd()，而是提倡使用 here() 函数。原因是有道理的，我想使用它，但我遇到了一些麻烦。具体来说，我有一个函数可以使用 dplyr 管道中的 map 函数读取大量 .csv 文件。它的工作原理如下：

setwd('directory with files')

files = dir(pattern = '*.csv')
df = files %>%
  map(read.csv)

这将创建目录中所有文件的列表，然后我可以根据需要使用这些文件。不幸的是，因为 here() 实际上并没有更改目录，它只是暂时指向一个目录，因此 read.csv 函数看不到文件。我正在使用的当前解决方法是：

##no use of setwd() or 'files = '
df = paste(file.path(here('directory with files')), '/', 
           dir(here('directory with files'), pattern = '*.csv', sep = '') %>%
  map(read.csv)

这行得通，但它非常笨重，我觉得应该有一个更优雅的解决方案，但我不知道它是什么。

谢谢！

标签： r

解决方案

您可以使用full.names = TRUEindir()获取完整的文件路径，而不是通过粘贴创建文件路径：

dir(here("directory with files"), pattern = '*.csv', full.names = TRUE) %>%
    map(read.csv)

此外，如果我要在整个脚本中多次引用一个目录，我有时会指定一个名称用于读/写，而不是here()每次都写出代码。

basedir = here("directory with files")
dir(basedir, pattern = '*.txt', full.names = TRUE)

推荐阅读