Statistics
| Revision:

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

History | View | Annotate | Download (1 kB)

1 293 sjacqu01
# Script R écrit par Lise Vaudor (UMR 5600 EVS) en mars 2012
2 293 sjacqu01
3 293 sjacqu01
setwd(choose.dir())  # choix du répertoire de travail
4 293 sjacqu01
metadata=read.table("metadata.csv",sep=",",header=T)
5 293 sjacqu01
write.table("texte_tot.txt")
6 293 sjacqu01
7 293 sjacqu01
for (i in 1:nrow(metadata)){   # on parcourt un à un les lignes du fichier de métadonnées
8 293 sjacqu01
   namefile=paste(metadata$id[i],".txt",sep="") # on considère le fichier dont le nom est donnée à la ième ligne
9 293 sjacqu01
   descripteur_i=c("****")
10 293 sjacqu01
   for (j in 1:ncol(metadata)){
11 293 sjacqu01
         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 293 sjacqu01
   }
13 293 sjacqu01
   cat(descripteur_i, file="texte_tot.txt",append=T)  # on concatène au fichier texte_tot le decripteur...
14 293 sjacqu01
   cat("\n", file="texte_tot.txt",append=T)                # des sauts de ligne...
15 293 sjacqu01
   cat(scan(namefile, what="character"), file="texte_tot.txt",append=T) # le texte qui nous intéresse...
16 293 sjacqu01
   cat("\n", file="texte_tot.txt",append=T)                # re-des sauts de ligne
17 293 sjacqu01
   cat("\n", file="texte_tot.txt",append=T)
18 293 sjacqu01
}