最近想要对一个文件夹下的文件进行批量操作，即对每一个文件只取其的第158行
之前先是这样
way= "D:/new/"
fileName=dir(way)

for (i in 1:14){
assign(fileName[i],read.table(file = paste(way,fileName[i],sep = ""),sep = "\t",header = T))
}

for (k in 1:14) {
  assign(fileName[k],fileName[k][158,],
  write.table(fileName[k],file=paste(way,"qqq",fileName[k],".txt",sep = ""),col.names = T,row.names = F,sep = "\t",quote = F))
}


结果第二个循环就不能执行了，可能是fileName[k]后不能再取第158行吧。
找了好多资料都解决不了，不知道有没有大神肯帮个忙
谢谢！