Laboratoire ICAR » Plateforme TXM

# Script R écrit par Lise Vaudor (UMR 5600 EVS) en mars 2012

setwd(choose.dir())  # choix du répertoire de travail

metadata=read.table("metadata.csv",sep=",",header=T)

write.table("texte_tot.txt")

for (i in 1:nrow(metadata)){   # on parcourt un à un les lignes du fichier de métadonnées

   namefile=paste(metadata$id[i],".txt",sep="") # on considère le fichier dont le nom est donnée à la ième ligne

   descripteur_i=c("****")

   for (j in 1:ncol(metadata)){

         descripteur_i=paste(descripteur_i," *",colnames(metadata)[j],"_",metadata[i,j],sep="")  # on parcourt l'ensemble des colonnes de metadata pour créer le descripteur

   }

   cat(descripteur_i, file="texte_tot.txt",append=T)  # on concatène au fichier texte_tot le decripteur...

   cat("\n", file="texte_tot.txt",append=T)                # des sauts de ligne...

   cat(scan(namefile, what="character"), file="texte_tot.txt",append=T) # le texte qui nous intéresse...

   cat("\n", file="texte_tot.txt",append=T)                # re-des sauts de ligne

   cat("\n", file="texte_tot.txt",append=T)

}