r - 修改多个CSV文件并将它们全部保存为R中的TXT

Question

我有一个包含多个 .csv 文件的文件夹。我需要删除所有这些 .csv 文件的前三行和最后一行，然后将它们全部保存为 .txt。所有文件都具有相同的格式，因此它始终是我需要删除的相同行。我知道如何修改单个数据框，但不知道如何加载、修改多个数据框并将其另存为 txt。我是使用 R 的初学者，所以我还没有尝试过的例子。非常感谢任何帮助!

Answer 1

很难从堆栈溢出开始，但关于可重现示例的其他评论值得 future 思考。我的建议是编写一个函数来读取、修改和写入，然后循环遍历所有文件。

我无法确切地说出该怎么做，因为我看不到您的数据，但像这样的方法应该可行:

library('tidyverse')

old_paths = list.files(
  path = your_folder,
  pattern = '\\.csv$',
  full.names = TRUE
)

read_write = function(path){

  new_filename = str_replace(
    string = path,
    pattern = '\\.csv$',
    replacement = '.txt'
  )

  read_csv(path) %>% 
    slice(-(1:3)) %>% 
    slice(-n()) %>% 
    write_tsv(new_filename) %>% 
    invisible()
}

lapply(old_paths, read_write)