Gestion des erreurs de nom de variable dans desc()

R/desc.R

@@ -32,8 +32,20 @@ desc <- function(html="desc", titre=NULL, table=NULL, variables=NULL, variables_
   
   # Creation de la table temporaire contenant les variables demandees
   if (is.null(table)) table<-eval(parse(text=.attachd))
-  if (!is.null(variables)) table=table[variables]
-  if (!is.null(variables_neg)) table[variables_neg]<-list(NULL)
+  if (!is.null(variables)) 
+  {
+    badvar <- variables[!variables %in% names(table)]
+    if (length(badvar) != 0)
+      warning("Les variables suivantes n'existent pas dans la table : ",paste(badvar,collapse=", "))
+    table <- table[variables[variables %in% names(table)]]
+  }
+  if (!is.null(variables_neg))
+  {
+    badvar <- variables_neg[!variables_neg %in% names(table)]
+    if (length(badvar) != 0)
+      warning("Les variables suivantes n'existent pas dans la table : ",paste(badvar,collapse=", "))
+    table[variables_neg]<-list(NULL)
+  }
   
   # Header de la table
   HTMLInit(file=paste0("../HTML\ Output/",html,".html"), title=titre)