Statistics
| Revision:

root / tmp / org.txm.core / src / R / TXTCSV2Alceste.R @ 1636

History | View | Annotate | Download (1 kB)

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

    
3
setwd(choose.dir())  # choix du répertoire de travail
4
metadata=read.table("metadata.csv",sep=",",header=T)
5
write.table("texte_tot.txt")
6

    
7
for (i in 1:nrow(metadata)){   # on parcourt un à un les lignes du fichier de métadonnées
8
   namefile=paste(metadata$id[i],".txt",sep="") # on considère le fichier dont le nom est donnée à la ième ligne
9
   descripteur_i=c("****")
10
   for (j in 1:ncol(metadata)){
11
         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
12
   }
13
   cat(descripteur_i, file="texte_tot.txt",append=T)  # on concatène au fichier texte_tot le decripteur...
14
   cat("\n", file="texte_tot.txt",append=T)                # des sauts de ligne...
15
   cat(scan(namefile, what="character"), file="texte_tot.txt",append=T) # le texte qui nous intéresse...
16
   cat("\n", file="texte_tot.txt",append=T)                # re-des sauts de ligne
17
   cat("\n", file="texte_tot.txt",append=T)
18
}