ordered ? (pas encore au point…)

R/charger.R

@@ -50,6 +50,8 @@ charger <- function(fichier,nom=NULL,feuille=1)
       else
         eval(parse(text=paste("formats[[length(formats)]]<-c(formats[[length(formats)]],",format,")",sep="")))
     }
+    #formats<-lapply(formats,"attr<-",which="ordered",value=F)
+    #attr(formats[[strsplit(formatsfile[grepl("^value *\\w* *order$",formatsfile)]," ")[[1]][2]]],"ordered")<-T
     formats[[1]]<-NULL
     if (file.exists("attribformats.sas"))
     {
@@ -69,7 +71,9 @@ charger <- function(fichier,nom=NULL,feuille=1)
         for (var in attrib[-length(attrib)])
         {
           if (!is.null(x[[var]]))
-            x[[var]]<-factor(x[[var]],levels=names(formats[[format]]),labels=formats[[format]])
+          {
+              x[[var]]<-factor(x[[var]],levels=names(formats[[format]]),labels=formats[[format]])#,ordered=attr(formats[[format]],"ordered"))
+          }
         }
       }
     }