将各种 .txt 和 .html 文件连接到 R 中的一个 .txt 文件

Question

我正在尝试编写一个脚本，该脚本自动将特定文件夹中的所有文件自动连接到一个 .txt 文件，但我遇到了问题，因为我试图在将它们写入 txt 之前将它们合并到一个大数据帧中文件，我收到错误，因为列名不匹配，所以我使用了 smartbind，但不是我收到“双行名称”的错误。

这是我的代码：

library(gtools)

dir<-"/Users/max/Desktop/NISAT_All/Regions"

subdir_list<-list.dirs(dir, recursive=F) 
subdir_list<-list.dirs(subdir_list,  recursive=F)
as.matrix(subdir_list)
subdirs_General <- subdir_list[ grepl("General", subdir_list) ]
as.matrix(subdirs_General)
subdir_list <- subdir_list[ !grepl("General", subdir_list) ]
subdir_list<-list.dirs(subdir_list,  recursive=F)
as.matrix(subdir_list)


for (subdir in subdir_list){

  setwd(subdir)

  subdir <-list.files(subdir, recursive=T)
  files <- subdir[ grepl("Armed Groups and Small Guns", subdir) ]
  files <- c(files, subdir[ grepl("Arms Embargoes", subdir) ])
  files <- c(files, subdir[ grepl("Black Market", subdir) ])
  files <- c(files, subdir[ grepl("Brokering", subdir) ])
  files <- c(files, subdir[ grepl("Landmines", subdir) ])
  files <- c(files, subdir[ grepl("MANPADS", subdir) ])
  files <- c(files, subdir[ grepl("Production", subdir) ])
  files <- c(files, subdir[ grepl("Stockpile Security and Destruction", subdir) ])
  files <- c(files, subdir[ grepl("UN Processes", subdir) ])
  files <- c(files, subdir[ grepl("United Nations", subdir) ])
  files <- c(files, subdir[ grepl("Weapons Collection and Amnesties", subdir) ])

  dataframe <- data.frame()

  for (file in files){

      df_temp <- read.delim(file)
      dataframe <- smartbind(dataframe, df_temp, sep="\n")

  }
  #then write your final file
  write.table(dataframe,"MergedFiles.txt",sep="\n", row.names = F, eol = "\r")
  rm(dataframe)

}

在图片上您可以看到文件通常的样子，我只是想将它们合并为一个

有人可以帮忙吗？

Answer 1

假设我有两个文本文件要合并：

test1.txt

I'm not a pheasant plucker, I'm a pheasant plucker's son

test2.txt

and I'm only plucking pheasants til the pheasant plucker comes.

我只是指定要合并的文件的名称，并创建一个包含合并内容的空变量：

files_to_combine <- c(path.expand("~/test1.txt"), path.expand("~/test2.txt"))
combined <- ""

现在我只需使用readLines() 来获取内容并将它们粘贴在一起。

for (i in seq_along(files_to_combine))
{
  combined <- paste0(combined,  readLines(files_to_combine[i], "\n")
}

最后，我将结果写回磁盘，如下所示：

writeLines(combined, path.expand("~/test3.txt"))

现在我的主目录中有这个文件：

test3.txt

I'm not a pheasant plucker, I'm a pheasant plucker's son
and I'm only plucking pheasants til the pheasant plucker comes.