Вложенный "цикл" не работает для открытия и агрегирования CSV-файлов

Question

Может кто-нибудь сказать мне, почему эти вложенные для цикла не работают

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)

}

Если я запускаю второй вручную (итерация за итерацией, это работает), но если я запускаю весь скрипт, он не работает.

Я, наверное, что-то пропустил.