pass -> password...

donnees.R

@@ -15,7 +15,7 @@ if (length(arguments) != 13)
   ATIHuser <- arguments[8]
   ATIHpass <- arguments[9]
   user <- arguments[10]
-  pass <- arguments[11]
+  password <- arguments[11]
   annee <- as.numeric(arguments[12])
   mois <- as.numeric(arguments[13])
 }