labels

R/charger.R

@@ -30,9 +30,11 @@ charger <- function(fichier,nom,feuille=1)
   
   if (file.exists("labels"))
   {
-    label_exe = paste("label(",as.character(substitute(nom),")<-c(")
+    labels=readLines(con=file("labels","r",encoding="ISO-8859-1")
+    labels=paste(labels,collapse=",")
+    label_exe = paste("label(x)<-c(",labels,")")
+    eval(parse(text=label_exe))
   }
   
-  
   assign(as.character(substitute(nom)),x,pos=1)
 }