[Bugzilla#18710] Turn on warnPartialMatch* by default

doc/manual/R-intro.R

@@ -40,7 +40,7 @@ seq(2,10)
 all(seq(1,30) == seq(to=30, from=1))
 
 seq(-5, 5, by=.2) -> s3
-s4 <- seq(length=51, from=-5, by=.2)
+s4 <- seq(length.out=51, from=-5, by=.2)
 all.equal(s3,s4)
 
 s5 <- rep(x, times=5)
@@ -145,7 +145,7 @@ x[i] <- 0                     # Replace those elements by zeros.
 x
 
 n <- 60
-b <- 5 ; blocks    <- rep(1:b, length= n)
+b <- 5 ; blocks    <- rep(1:b, length.out= n)
 v <- 6 ; varieties <- gl(v,10)
 
 Xb <- matrix(0, n, b)
@@ -163,7 +163,7 @@ all(N == table(blocks,varieties))
 h <- 1:17
 Z <- array(h, dim=c(3,4,2))
 ## If the size of  'h' is exactly 24
-h <- rep(h, length = 24)
+h <- rep(h, length.out = 24)
 Z. <- Z ## the result is the same as
 Z <- h; dim(Z) <- c(3,4,2)
 stopifnot(identical(Z., Z))
@@ -324,7 +324,7 @@ hist(eruptions)
 
 ## <IMG> postscript("images/hist.eps", ...)
 # make the bins smaller, make a plot of density
-hist(eruptions, seq(1.6, 5.2, 0.2), prob=TRUE)
+hist(eruptions, seq(1.6, 5.2, 0.2), probability=TRUE)
 lines(density(eruptions, bw=0.1))
 rug(eruptions) # show the actual data points
 ## dev.off() <IMG/>
@@ -393,7 +393,7 @@ plot(ecdf(B), do.points=FALSE, verticals=TRUE, add=TRUE)
 ###--- @appendix A sample session
 
 ## "Simulate starting a new R session, by
-rm(list=ls(all=TRUE))
+rm(list=ls(all.names=TRUE))
 set.seed(123) # for repeatability
 
 if(interactive())
@@ -410,7 +410,7 @@ dummy <- data.frame(x = x, y = x + rnorm(x)*w)
 dummy
 fm <- lm(y ~ x, data=dummy)
 summary(fm)
-fm1 <- lm(y ~ x, data=dummy, weight=1/w^2)
+fm1 <- lm(y ~ x, data=dummy, weights=1/w^2)
 summary(fm1)
 attach(dummy)
 lrf <- lowess(x, y)
@@ -444,7 +444,7 @@ anova(fm0, fm)
 detach()
 rm(fm, fm0)
 
-x <- seq(-pi, pi, len=50)
+x <- seq(-pi, pi, length.out=50)
 y <- x
 f <- outer(x, y, function(x, y) cos(y)/(1 + x^2))
 oldpar <- par(no.readonly = TRUE)
@@ -457,7 +457,7 @@ par(oldpar)
 image(x, y, f)
 image(x, y, fa)
 objects(); rm(x, y, f, fa)
-th <- seq(-pi, pi, len=100)
+th <- seq(-pi, pi, length.out=100)
 z <- exp(1i*th)
 par(pty="s")
 plot(z, type="l")

src/library/base/demo/error.catching.R

@@ -51,7 +51,7 @@ withWarnings <- function(expr) {
 withWarnings({ warning("first"); warning("2nd"); pi })
 
 r <- withWarnings({ log(-1) + sqrt(-4); exp(1) })
-str(r, digits=14)
+str(r, digits.d=14)
 
 ##' @title tryCatch *all* warnings and messages, and an error or the final value
 ##' @param expr an \R expression to evaluate

src/library/base/demo/is.things.R

@@ -7,7 +7,7 @@
 xtraBaseNms <- c("last.dump", "last.warning", ".Last.value",
                  ".Random.seed", ".Traceback")
 ls.base <- Filter(function(nm) is.na(match(nm, xtraBaseNms)),
-                  ls("package:base", all=TRUE))
+                  ls("package:base", all.names=TRUE))
 base.is.f <- sapply(ls.base, function(x) is.function(get(x)))
 cat("\nNumber of all base objects:\t", length(ls.base),
     "\nNumber of functions from these:\t", sum(base.is.f),
@@ -129,9 +129,9 @@ is0
 ispi <- unlist(is.ALL(pi))
 all(ispi[is0.ok] == is0)
 
-is.ALL(numeric(0), true=TRUE)
-is.ALL(array(1,1:3), true=TRUE)
-is.ALL(cbind(1:3), true=TRUE)
+is.ALL(numeric(0), true.only=TRUE)
+is.ALL(array(1,1:3), true.only=TRUE)
+is.ALL(cbind(1:3), true.only=TRUE)
 
 is.ALL(structure(1:7, names = paste("a",1:7,sep="")))
 is.ALL(structure(1:7, names = paste("a",1:7,sep="")), true.only = TRUE)

src/library/datasets/data/iris.R

@@ -42,4 +42,4 @@ Petal.Width = c(0.2, 0.2, 0.2, 0.2, 0.2, 0.4, 0.3, 0.2,
 2.2, 2.3, 1.5, 2.3, 2, 2, 1.8, 2.1, 1.8, 1.8, 1.8, 2.1, 1.6, 1.9, 2, 2.2,
 1.5, 1.4, 2.3, 2.4, 1.8, 1.8, 2.1, 2.4, 2.3, 1.9, 2.3, 2.5, 2.3, 1.9, 2,
 2.3, 1.8),
-Species = gl(3,50, label = c("setosa", "versicolor", "virginica")))
+Species = gl(3,50, labels = c("setosa", "versicolor", "virginica")))

src/library/datasets/data/state.R

@@ -60,7 +60,7 @@ factor(c(4, 9, 8, 5, 9, 8, 1, 3, 3, 3, 9, 8, 6, 6, 7, 7, 4, 5,
 factor(c(2, 4, 4, 2, 4, 4, 1, 2, 2, 2, 4, 4, 3, 3, 3, 3, 2, 2,
 1, 2, 1, 3, 3, 2, 3, 4, 3, 4, 1, 1, 4, 1, 2, 3, 3, 2, 4, 1, 1, 2, 3, 2,
 2, 4, 1, 2, 4, 2, 3, 4), levels=1:4,
-label = c("Northeast", "South", "North Central", "West"))
+labels = c("Northeast", "South", "North Central", "West"))
 
 "state.x77" <-
 structure(c(3615, 365, 2212, 2110, 21198, 2541, 3100, 579, 8277, 4931,

src/library/graphics/demo/graphics.R

@@ -87,7 +87,7 @@ rect(usr[1], usr[3], usr[2], usr[4], col="cornsilk", border="black")
 lines(x, col="blue")
 points(x, pch=21, bg="lightcyan", cex=1.25)
 axis(2, col.axis="blue", las=1)
-axis(1, at=1:12, lab=month.abb, col.axis="blue")
+axis(1, at=1:12, labels=month.abb, col.axis="blue")
 box()
 title(main= "The Level of Interest in R", font.main=4, col.main="red")
 title(xlab= "1996", col.lab="red")

src/library/grid/R/group.R

@@ -26,8 +26,8 @@ finaliseGroup <- function(x) {
         ##
         ## Justification of the current viewport must also be preserved
         ## so that transformation on group use is calculated correctly.
-        hjust <- resolveHJust(cvp$just, cvp$hjust)
-        vjust <- resolveVJust(cvp$just, cvp$vjust)
+        hjust <- resolveHJust(cvp$justification, cvp$hjust)
+        vjust <- resolveVJust(cvp$justification, cvp$vjust)
         pushViewport(viewport(hjust, vjust,
                               just=c(hjust, vjust),
                               mask="none",
@@ -40,8 +40,8 @@ finaliseGroup <- function(x) {
     if (is.grob(x$dst)) {
         destination <- function() {
             cvp <- current.viewport()
-            hjust <- resolveHJust(cvp$just, cvp$hjust)
-            vjust <- resolveVJust(cvp$just, cvp$vjust)
+            hjust <- resolveHJust(cvp$justification, cvp$hjust)
+            vjust <- resolveVJust(cvp$justification, cvp$vjust)
             pushViewport(viewport(hjust, vjust,
                                   just=c(hjust, vjust),
                                   mask="none",
@@ -80,11 +80,11 @@ recordGroup <- function(x, ref) {
     group <- list(ref=ref,
                   ## Record location, size, angle for re-use in
                   ## different viewport
-                  xy=deviceLoc(unit(resolveHJust(cvp$just, cvp$hjust), "npc"),
-                               unit(resolveVJust(cvp$just, cvp$vjust), "npc"),
+                  xy=deviceLoc(unit(resolveHJust(cvp$justification, cvp$hjust), "npc"),
+                               unit(resolveVJust(cvp$justification, cvp$vjust), "npc"),
                                valueOnly=TRUE, device=TRUE),
-                  xyin=deviceLoc(unit(resolveHJust(cvp$just, cvp$hjust), "npc"),
-                                 unit(resolveVJust(cvp$just, cvp$vjust), "npc"),
+                  xyin=deviceLoc(unit(resolveHJust(cvp$justification, cvp$hjust), "npc"),
+                                 unit(resolveVJust(cvp$justification, cvp$vjust), "npc"),
                                  valueOnly=TRUE, device=FALSE),
                   wh=c(convertX(unit(1, "npc"), "in", valueOnly=TRUE),
                        convertY(unit(1, "npc"), "in", valueOnly=TRUE)),
@@ -134,8 +134,8 @@ defnTranslate <- function(group, inverse=FALSE, device=TRUE) {
 
 useTranslate <- function(inverse=FALSE, device=TRUE) {
     cvp <- current.viewport()
-    xy <- deviceLoc(unit(resolveHJust(cvp$just, cvp$hjust), "npc"),
-                    unit(resolveVJust(cvp$just, cvp$vjust), "npc"),
+    xy <- deviceLoc(unit(resolveHJust(cvp$justification, cvp$hjust), "npc"),
+                    unit(resolveVJust(cvp$justification, cvp$vjust), "npc"),
                     valueOnly=TRUE, device=device)
     if (inverse) {
         groupTranslate(-xy$x, -xy$y)

src/library/grid/tests/testls.R

@@ -28,103 +28,103 @@ grid.ls(gTree(children=gList(grob(name="child1"), grob(name="child1")),
 ###########
 # Plain viewport
 grid.ls(viewport(name="vp1"),
-        view=TRUE)
+        viewports=TRUE)
 # vpList
 grid.ls(vpList(viewport(name="vpl1")),
-        view=TRUE)
+        viewports=TRUE)
 grid.ls(vpList(viewport(name="vpl1"), viewport(name="vpl2")),
-        view=TRUE)
+        viewports=TRUE)
 grid.ls(vpList(viewport(name="vpl1"), viewport(name="vpl2"),
                viewport(name="vpl3")),
-        view=TRUE)
+        viewports=TRUE)
 # vpStack
 grid.ls(vpStack(viewport(name="vps1"), viewport(name="vps2")),
-        view=TRUE)
+        viewports=TRUE)
 grid.ls(vpStack(viewport(name="vps1"), viewport(name="vps2"),
                 viewport(name="vps3")),
-        view=TRUE)
+        viewports=TRUE)
 # vpTrees
 grid.ls(vpTree(viewport(name="parentvp"), vpList(viewport(name="childvp"))),
-        view=TRUE)
+        viewports=TRUE)
 grid.ls(vpTree(viewport(name="parentvp"),
                vpList(viewport(name="cvp1"), viewport(name="cvp2"))),
-        view=TRUE)
+        viewports=TRUE)
 # vpPaths
 grid.ls(vpPath("A"),
-        view=TRUE)
+        viewports=TRUE)
 grid.ls(vpPath("A", "B"),
-        view=TRUE)
+        viewports=TRUE)
 grid.ls(vpPath("A", "B", "C"),
-        view=TRUE)
+        viewports=TRUE)
 
 ##########
 # MIXTURES
 ##########
 # grob with vp viewport
 g1 <- grob(vp=viewport(name="gvp"), name="g1")
-grid.ls(g1, view=TRUE, full=TRUE)
-grid.ls(g1, view=TRUE, full=TRUE, grob=FALSE)
+grid.ls(g1, viewports=TRUE, fullNames=TRUE)
+grid.ls(g1, viewports=TRUE, fullNames=TRUE, grobs=FALSE)
 # grob with vp vpList
 grid.ls(grob(vp=vpList(viewport(name="vpl")), name="g1"),
-        view=TRUE, full=TRUE)
+        viewports=TRUE, fullNames=TRUE)
 grid.ls(grob(vp=vpList(viewport(name="vpl1"), viewport(name="vpl2")),
              name="g1"),
-        view=TRUE, full=TRUE)
+        viewports=TRUE, fullNames=TRUE)
 # grob with vp vpStack
 grid.ls(grob(vp=vpStack(viewport(name="vps1"), viewport(name="vps2")),
              name="g1"),
-        view=TRUE, full=TRUE)
+        viewports=TRUE, fullNames=TRUE)
 grid.ls(grob(vp=vpStack(viewport(name="vps1"), viewport(name="vps2"),
                viewport(name="vps3")),
              name="g1"),
-        view=TRUE)
+        viewports=TRUE)
 # grob with vp vpTree
 grid.ls(grob(vp=vpTree(viewport(name="parentvp"),
                vpList(viewport(name="cvp"))),
              name="g1"),
-        view=TRUE, full=TRUE)
+        viewports=TRUE, fullNames=TRUE)
 grid.ls(grob(vp=vpTree(viewport(name="parentvp"),
                vpList(viewport(name="cvp1"), viewport(name="cvp2"))),
              name="g1"),
-        view=TRUE, full=TRUE)
+        viewports=TRUE, fullNames=TRUE)
 # gTree with vp viewport
 # and child grob with vp viewport
 grid.ls(gTree(children=gList(grob(vp=viewport(name="childvp"), name="cg1"),
                 grob(name="cg2")),
               name="parent",
               vp=viewport(name="parentvp")),
-        view=TRUE)
+        viewports=TRUE)
 # gTree with childrenvp viewport
 grid.ls(gTree(childrenvp=viewport(name="vp"), name="gtree"),
-        view=TRUE, full=TRUE)
+        viewports=TRUE, fullNames=TRUE)
 grid.ls(gTree(childrenvp=viewport(name="vp"), name="gtree"),
-        view=TRUE, full=TRUE, grob=FALSE)
+        viewports=TRUE, fullNames=TRUE, grobs=FALSE)
 grid.ls(gTree(children=gList(grob(name="child")),
               name="parent",
               childrenvp=viewport(name="vp")),
-        view=TRUE, full=TRUE)
+        viewports=TRUE, fullNames=TRUE)
 grid.ls(gTree(children=gList(grob(name="child1"), grob(name="child2")),
               name="parent",
               childrenvp=viewport(name="vp")),
-        view=TRUE, full=TRUE)
+        viewports=TRUE, fullNames=TRUE)
 grid.ls(gTree(children=gList(grob(name="child")),
               childrenvp=viewport(name="vp"),
               name="parent"), 
-        view=TRUE, full=TRUE)
+        viewports=TRUE, fullNames=TRUE)
 grid.ls(gTree(children=gList(grob(name="child1"), grob(name="child2")),
               name="parent",
               childrenvp=viewport(name="vp")),
-        view=TRUE, full=TRUE, grob=FALSE)
+        viewports=TRUE, fullNames=TRUE, grobs=FALSE)
 # gTree with childrenvp vpTree
 grid.ls(gTree(childrenvp=vpTree(parent=viewport(name="vp1"),
                 children=vpList(viewport(name="vp2"))),
               name="gtree"),
-        view=TRUE, full=TRUE)
+        viewports=TRUE, fullNames=TRUE)
 grid.ls(gTree(children=gList(grob(name="child")),
               name="parent",
               childrenvp=vpTree(parent=viewport(name="vp1"),
                 children=vpList(viewport(name="vp2")))),
-        view=TRUE, full=TRUE)
+        viewports=TRUE, fullNames=TRUE)
 # gTree with childrenvp vpTree
 # and child grob with vp vpPath
 # A gTree, called "parent", with childrenvp vpTree (vp2 within vp1)
@@ -135,24 +135,24 @@ sampleGTree <- gTree(name="parent",
                                        children=vpList(viewport(name="vp2"))))
 grid.ls(sampleGTree)
 # Show viewports too
-grid.ls(sampleGTree, view=TRUE)
+grid.ls(sampleGTree, viewports=TRUE)
 # Only show viewports
-grid.ls(sampleGTree, view=TRUE, grob=FALSE)
+grid.ls(sampleGTree, viewports=TRUE, grobs=FALSE)
 # Alternate displays
 # nested listing, custom indent
-grid.ls(sampleGTree, view=TRUE, print=nestedListing, gindent="--")
+grid.ls(sampleGTree, viewports=TRUE, print=nestedListing, gindent="--")
 # path listing
-grid.ls(sampleGTree, view=TRUE, print=pathListing)
+grid.ls(sampleGTree, viewports=TRUE, print=pathListing)
 # path listing, without grobs aligned
-grid.ls(sampleGTree, view=TRUE, print=pathListing, gAlign=FALSE)
+grid.ls(sampleGTree, viewports=TRUE, print=pathListing, gAlign=FALSE)
 # grob path listing 
-grid.ls(sampleGTree, view=TRUE, print=grobPathListing)
+grid.ls(sampleGTree, viewports=TRUE, print=grobPathListing)
 # path listing, grobs only
 grid.ls(sampleGTree, print=pathListing)
 # path listing, viewports only
-grid.ls(sampleGTree, view=TRUE, grob=FALSE, print=pathListing)
+grid.ls(sampleGTree, viewports=TRUE, grobs=FALSE, print=pathListing)
 # raw flat listing
-str(grid.ls(sampleGTree, view=TRUE, print=FALSE))
+str(grid.ls(sampleGTree, viewports=TRUE, print=FALSE))