Как выполнить пакетное преобразование нескольких файлов CSV в файлы TXT?

Question

Мне было интересно, есть ли способ быстро преобразовать несколько файлов .csv в формат с разделителями табуляции, а также одновременно удалить первую строку (то есть первое наблюдение) под заголовками столбцов?

Answer 1

Можно получить файлы из рабочего каталога

files <- list.files(pattern = "\\.csv$", full.names = TRUE)

, затем прочитать файлы в list, удалить первую строку и записать как .txt файл

lapply(files, function(x) {
             dat <- read.csv(x)[-1,]
             newname <- sub("\\.csv", ".txt", basename(x))
             write.table(dat, newname, sep="\t")
          })

    })