invert logic

git-svn-id: https://svn.r-project.org/R/branches/R-2-12-branch@54476 00db46b3-68df-0310-9c12-caf00c1e9a41
wch · Feb 18, 2011 · 38ee6f1 · 38ee6f1
1 parent 669d631
commit 38ee6f1
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/library/graphics/R/lines.R b/src/library/graphics/R/lines.R
@@ -21,7 +21,7 @@ lines.default <- function(x, y=NULL, type="l", ...)
 
 lines.table <- function (x, y = NULL, type = "h", lwd = 2,  ...)
 {
-     if (!is.null(y) || length(dim(x)) == 1L) {
+     if (is.null(y) && length(dim(x)) == 1L) {
          nx <- dimnames(x)[[1L]]
          is.num <- suppressWarnings(!any(is.na(xx <- as.numeric(nx))))
          x0 <- if (is.num) xx else seq_along(x)

diff --git a/src/library/graphics/R/points.R b/src/library/graphics/R/points.R
@@ -21,7 +21,7 @@ points.default <- function(x, y=NULL, type="p", ...)
 
 points.table <- function (x, y = NULL, type = "h", lwd = 2, ...)
 {
-     if (!is.null(y) || length(dim(x)) == 1L) {
+     if (is.null(y) && length(dim(x)) == 1L) {
          nx <- dimnames(x)[[1L]]
          is.num <- suppressWarnings(!any(is.na(xx <- as.numeric(nx))))
          x0 <- if (is.num) xx else seq.int(x)