Début construction string labels

R/charger.R

@@ -27,5 +27,12 @@ charger <- function(fichier,nom,feuille=1)
     x<-read.csv2(fichier)
   else if (grepl("\\.xlsx?$",fichier))
     x<-read.xlsx(fichier,feuille)
+  
+  if (file.exists("labels"))
+  {
+    label_exe = paste("label(",as.character(substitute(nom),")<-c(")
+  }
+  
+  
   assign(as.character(substitute(nom)),x,pos=1)
 }