Stray accent ;)

R/desc_groupe.R

@@ -27,6 +27,12 @@ desc_groupe <- function(groupe=NULL, html=NULL, titre=NULL, table=NULL, variable
   
   modulo <- table[[groupe]]
   
+  if (nlevels(modulo)<2)
+  {
+    warning("La variable ", groupe, " n'a qu'un niveau !")
+    return
+  }
+  
   etiq <- label(modulo)
   if (etiq == "modulo") etiq <- var
   

R/erreur.R

@@ -1,5 +1,5 @@
 erreur <- function(err, var, ..., ret="ERR")
 {
-  warning("La variable ", var, " a causé l'erreur :\n", err, ..., call.=F)
+  warning("La variable ", var, " a cause l'erreur :\n", err, ..., call.=F)
   return (ret)
 }