Question

该程序之所以有效，是因为我通过使用<<-运算符使变量inisde lapply全局化了。但是，它不适用于真实程序中的真实文件。这些是名为列的.tsv文件。运行真实程序时得到的答案是：错误：（从警告转换为）错误：（从警告转换为）错误：参数表示行数不同：3455、4319。这可能是什么原因造成的？

lc <- list("test.txt", "test.txt", "test.txt", "test.txt")
lc1 <- list("test.txt", "test.txt", "test.txt")
lc2 <- list("test.txt", "test.txt")
#list of lists.  The lists contain file names
lc <- list(lc, lc1, lc2) 
#new names for the three lists in the list of lists
new_dataFns <- list("name1", "name2", "name3")
file_paths <- NULL
new_path <- NULL
#add the file names to the path and read and merge the contents of each list in the list of lists
lapply(
  lc, 
  function(lc) {
    filenames <- file.path(getwd(), lc)
    dataList <<- lapply(filenames, function (lc) read.table(file=lc, header=TRUE))
    dataList <<- lapply(dataList, function(dataList) {merge(as.data.frame(dataList),as.data.frame(dataList))})

  }
)  

#add the new name of the file to the path total will be 3 paths/fille_newname.tsv.  
lapply(new_dataFns, function(new_dataFns) {new_path <<- file.path(getwd(), new_dataFns)})

print(new_path)
print(dataList)

finalFiles <- merge(as.data.frame(dataList), as.data.frame(new_path))
print(finalFiles)

Answer 1

我通过编写不同类型的代码找到了解决该问题的方法。请看下面。该功能的输入由应用程序输入小部件提供

glyCount1 <- function(answer = NULL, fileChoice = NULL, combination = NULL, enteredValue = NULL, nameList) {
  lc = nameList


  new_dataFns <- gsub(" ", "", nameList)
  first_path <- NULL
  new_path <- NULL
  old_path <- NULL
  file_content <- NULL
   for(i in 1:length(lc)){
      for(j in 1:length(lc[[i]])){
         if(!is.null(lc[[i]])){
              first_path[[j]]<- paste(getwd(), "/", lc[[i]][j], sep = "")
              tryCatch(file_content[[j]] <- read.csv(file = first_path[[i]], header = TRUE, sep = ","), error = function(e) NULL)
              old_path[[j]] <- paste(getwd(), "/", i, ".csv", sep = "")
              write.table(file_content[[j]], file = old_path[[j]],  append = TRUE, col.names = FALSE)
         }

      }

   }
}

使用cbind一起添加到列表

1 个答案: