another iteration of make check locally

Author: MichaelChirico

src/library/methods/man/hasArg.Rd

@@ -39,6 +39,8 @@ ftest(1) ## c(TRUE, FALSE)
 ftest(1, 2)  ## c(TRUE, FALSE)
 ftest(y2 = 2)   ## c(FALSE, TRUE)
 ftest(y = 2)    ## c(FALSE, FALSE) (no partial matching)
+\dontshow{ old <- options(warnPartialMatchArgs=FALSE) }
 ftest(y2 = 2, x = 1)  ## c(TRUE, TRUE) partial match x1
+\dontshow{ options(old) }
 }
 \keyword{ programming }

tests/reg-tests-1d.R

@@ -2676,9 +2676,9 @@ identNoE <- function(x,y, ...) identical(x,y, ignore.environment=TRUE, ...)
 stopifnot(exprs = {
     all.equal(fq1[keep], fqP[keep])
     ## quasi() failed badly "switch(vtemp, ... EXPR must be a length 1 vector" in R <= 3.6.0
-    identNoE(quasi(var = mu),        quasi(variance = "mu"))
-    identNoE(quasi(var = mu(1-mu)),  quasi(variance = "mu(1- mu)"))# both failed in R <= 3.6.0
-    identNoE(quasi(var = mu^3),      quasi(variance = "mu ^ 3"))   #  2nd failed in R <= 3.6.0
+    identNoE(quasi(variance = mu),        quasi(variance = "mu"))
+    identNoE(quasi(variance = mu(1-mu)),  quasi(variance = "mu(1- mu)"))# both failed in R <= 3.6.0
+    identNoE(quasi(variance = mu^3),      quasi(variance = "mu ^ 3"))   #  2nd failed in R <= 3.6.0
     is.character(msg <- tryCmsg(quasi(variance = "log(mu)"))) &&
         grepl("variance.*log\\(mu\\).* invalid", msg) ## R <= 3.6.0: 'variance' "NA" is invalid
 })