[Lme4-commits] r1609 - pkg/lme4Eigen/R

[noreply at r-forge.r-project.org]

Author: bbolker
Date: 2012-02-21 19:27:26 +0100 (Tue, 21 Feb 2012)
New Revision: 1609

Modified:
   pkg/lme4Eigen/R/lmer.R
Log:

  cosmetics for "disregarded argument" warning



Modified: pkg/lme4Eigen/R/lmer.R
===================================================================
--- pkg/lme4Eigen/R/lmer.R	2012-02-21 17:05:01 UTC (rev 1608)
+++ pkg/lme4Eigen/R/lmer.R	2012-02-21 18:27:26 UTC (rev 1609)
@@ -96,8 +96,9 @@
 	    } else stop(msg)
 	}
 	if(length(l...))
-	    warning("extra arguments ", paste(names(l...), sep=", "),
-		    " are disregarded")
+	    warning("extra argument(s) ",
+                    paste(sQuote(names(l...)), collapse=", "),
+		    " disregarded")
     }
 
     stopifnot(length(formula <- as.formula(formula)) == 3)
@@ -262,8 +263,9 @@
 	    } else stop(msg)
 	}
 	if(length(l...))
-	    warning("extra arguments ", paste(names(l...), sep=", "),
-		    " are disregarded")
+          warning("extra argument(s) ",
+                  paste(sQuote(names(l...)), collapse=", "),
+                  " disregarded")
     }
     if(is.character(family))
 	family <- get(family, mode = "function", envir = parent.frame(2))