我在一个文件夹中保存了几个格式为“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)
有人知道我能做什么吗?谢谢!
答案 0 :(得分:0)
使用 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)})