Question

我在一个文件夹中保存了几个格式为“XXX.qassoc”的文件。我正在尝试编写一个 for 循环，将这些文件一次性转换为 txt。

A <- read.table(file = "XXX.qassoc", quote = "\"", comment.char = "",header=TRUE)
write.table(A, file = "XXX.txt", sep = "\t", row.names = FALSE)

有人知道我能做什么吗？谢谢！

Answer 1

使用 setwd('path') 设置目录，然后：

library(rebus)
library(tidyverse)
library(stringr)

list.files() %>%
    str_subset("\\.qassoc$") %>% 
    walk(~ {A <- read.table(file = .x, quote = "\"", comment.char = "",header=TRUE)
           write.table(A, file = str_replace(.x, '\\.qassoc$', '.txt'), sep = "\t", row.names = FALSE)})

编写 for 循环以在 R 中生成制表符分隔的文件

1 个答案: