嵌套＆＃34; for loop＆＃34;不能打开和聚合csv文件

Question

任何人都可以告诉我为什么这些嵌套for循环不起作用

nom_fichiers <- c("_Alias","_Autres_Codes","_Autres_Coord", "_Descriptif","_EntitesHydroBDLISA","_EntitesHydroBDRHFV1",
                 "_Evenements","_Fonctions","_MassesEau","_Proprietaires", "_Qual_Analyses","_Qual_Dossiers_Analyses",
                 "_Qual_Echantillons","_Qual_Operations","_Qual_Prelevements","_Qual_Sites_Mesures","_Stations_Hydro","_Usages")

liste_nom_fichiers<-as.list(as.character(nom_fichiers))

# First for loop    
for (i in seq.int(liste_nom_fichiers))
{

    liste_fichier<-list()

    filelist = list.files(path ="C:/Users/TB60063/Desktop/Export_ADES_POINTS_QUALITE",
                          pattern = paste0(liste_nom_fichiers[[i]], ".txt"), recursive = T)


    # Second for loop       
    for(i in seq.int(filelist)){

      # Opening files

      liste_fichier[[i]]<- read.csv(filelist[i], header = T,sep = "|", dec =".")           

    }

    nom_output <- assign(paste0("tbl", liste_nom_fichiers[[i]]), do.call("rbind", liste_fichier))

    # Enregistrement du fichier brut

    nom_fichier<-paste0("tbl", liste_nom_fichiers, "_", "brut") 
    chemin <- paste0("./data_brutes/", nom_fichier, ".csv")
    write.csv2(nom_output, chemin)


    return(nom_output)

}

如果我手动运行第二次（通过迭代迭代它可以工作）但是如果我运行整个脚本它就不能工作。

我可能会错过一些东西。