CRAN Package Check Results for Package plot3D

Last updated on 2019-12-11 00:49:29 CET.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 1.1.1 12.61 92.22 104.83 ERROR
r-devel-linux-x86_64-debian-gcc 1.1.1 11.49 87.05 98.54 OK
r-devel-linux-x86_64-fedora-clang 1.1.1 154.47 OK
r-devel-linux-x86_64-fedora-gcc 1.1.1 152.28 OK
r-devel-windows-ix86+x86_64 1.1.1 17.00 176.00 193.00 OK
r-devel-windows-ix86+x86_64-gcc8 1.1.1 17.00 184.00 201.00 OK
r-patched-linux-x86_64 1.1.1 10.83 105.59 116.42 OK
r-patched-solaris-x86 1.1.1 191.10 OK
r-release-linux-x86_64 1.1.1 11.38 109.29 120.67 OK
r-release-windows-ix86+x86_64 1.1.1 20.00 139.00 159.00 OK
r-release-osx-x86_64 1.1.1 OK
r-oldrel-windows-ix86+x86_64 1.1.1 11.00 136.00 147.00 OK
r-oldrel-osx-x86_64 1.1.1 OK

Check Details

Version: 1.1.1
Check: examples
Result: ERROR
    Running examples in 'plot3D-Ex.R' failed
    The error most likely occurred in:
    
    > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
    > ### Name: 2D image and contour plots
    > ### Title: Extended image and contour plots for 2-D (and 3-D) data.
    > ### Aliases: image2D contour2D image2D.matrix image2D.array image2D.list
    > ### Keywords: hplot
    >
    > ### ** Examples
    >
    > # save plotting parameters
    > pm <- par("mfrow")
    >
    > ## =======================================================================
    > ## Difference between x or y a vector/matrix and rasterImage
    > ## =======================================================================
    >
    > par(mfrow = c(2, 2))
    > x <- y <- 1:3
    > z <- matrix (nrow = 3, ncol = 3, data = 1:9)
    > image2D(z, x, y, border = "black")
    > image2D(z, x, y, rasterImage = TRUE, border = "black")
    > image2D(z, x = matrix(nrow = 3, ncol = 3, data = x),
    + y, border = "black")
    > image2D(z, x, y, border = "black", theta = 45)
    >
    > ## =======================================================================
    > ## shading, light, adding contours, points and lines
    > ## =======================================================================
    >
    > par(mfrow = c(2, 2))
    > nr <- nrow(volcano)
    > nc <- ncol(volcano)
    >
    > image2D(volcano, x = 1:nr, y = 1:nc, lighting = TRUE,
    + main = "volcano", clab = "height, m")
    >
    > abline(v = seq(10, 80, by = 10))
    > abline(h = seq(10, 60, by = 10))
    > points(50, 30, pch = 3, cex = 5, lwd = 3, col = "white")
    >
    > image2D(z = volcano, x = 1:nr, y = 1:nc, lwd = 2, shade = 0.2,
    + main = "volcano", clab = "height, m")
    >
    > image2D(volcano, x = 1:nr, y = 1:nc, contour = TRUE, shade = 0.5, lphi = 0,
    + col = "lightblue", main = "volcano")
    >
    > breaks <- seq(90, 200, by = 10)
    > image2D(volcano, x = 1:nr, y = 1:nc, col = jet.col(length(breaks)-1),
    + main = "volcano", clab = "height, m", breaks = breaks)
    >
    > ## =======================================================================
    > ## Contour plots
    > ## =======================================================================
    >
    > par(mfrow = c(2, 2))
    > V <- volcano - 150
    >
    > # default, no color key
    > contour2D(z = V, colkey = FALSE, lwd = 2)
    >
    > # imposed levels
    > contour2D(z = V, lwd = 2, levels = seq(-40, 40, by = 20))
    >
    > # negative levels dashed
    > contour2D(z = V, col = "black", lwd = 2,
    + levels = seq(0, 40, by = 20))
    > contour2D(z = V, col = "black", lwd = 2, lty = 2,
    + levels = seq(-40, -20, by = 20), add = TRUE)
    >
    > # no labels, imposed number of levels, colorkey
    > contour2D(z = V, lwd = 2, nlevels = 20, drawlabels = FALSE,
    + colkey = list(at = seq(-40, 40, by = 20)))
    >
    > ## =======================================================================
    > ## A large data set, input is an array
    > ## =======================================================================
    >
    > par(mfrow = c(1, 1))
    > image2D(z = Oxsat$val[, , 1], x = Oxsat$lon, y = Oxsat$lat,
    + main = "surface oxygen saturation data 2005", NAcol = "black",
    + clab = c("","","%"))
    >
    > # images at first 9 depths - use subset to select them
    > image2D(z = Oxsat$val, subset = 1:9,
    + x = Oxsat$lon, y = Oxsat$lat,
    + margin = c(1, 2), NAcol = "black",
    + xlab = "longitude", ylab = "latitude",
    + zlim = c(0, 115),
    + main = paste("depth ", Oxsat$depth[1:9], " m"),
    + mfrow = c(3, 3))
    >
    > # images at latitude - depth section - increase resolution
    > z <- Oxsat$val[, Oxsat$lat > - 5 & Oxsat$lat < 5, ]
    > image2D(z = z, x = Oxsat$lon, y = Oxsat$depth,
    + margin = c(1, 3), NAcol = "black",
    + resfac = 3, ylim = c(5000, 0))
    >
    > # show position of transects
    > image2D(z = Oxsat$val[ , ,1],
    + x = Oxsat$lon, y = Oxsat$lat,
    + NAcol = "black")
    > abline(h = Oxsat$lat[Oxsat$lat > - 5 & Oxsat$lat < 5])
    >
    > ## =======================================================================
    > ## Image of a list of matrices
    > ## =======================================================================
    >
    > listvolcano <- list(volcano = volcano, logvolcano = log(volcano))
    > image2D(listvolcano, x = 1:nr, y = 1:nc, contour = TRUE,
    + main = c("volcano", "log(volcano)"),
    + clab = list("height, m", "log(m)"),
    + zlim = list(c(80, 200), c(4.4, 5.5)))
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
    :
     --- package (from environment) ---
    plot3D
     --- call from context ---
    image2D.list(listvolcano, x = 1:nr, y = 1:nc, contour = TRUE,
     main = c("volcano", "log(volcano)"), clab = list("height, m",
     "log(m)"), zlim = list(c(80, 200), c(4.4, 5.5)))
     --- call from argument ---
    if (!classz %in% c("matrix", "array")) stop("'z' should be a list with either matrices or arrays")
     --- R stacktrace ---
    where 1: image2D.list(listvolcano, x = 1:nr, y = 1:nc, contour = TRUE,
     main = c("volcano", "log(volcano)"), clab = list("height, m",
     "log(m)"), zlim = list(c(80, 200), c(4.4, 5.5)))
    where 2: image2D(listvolcano, x = 1:nr, y = 1:nc, contour = TRUE, main = c("volcano",
     "log(volcano)"), clab = list("height, m", "log(m)"), zlim = list(c(80,
     200), c(4.4, 5.5)))
    
     --- value of length: 2 type: logical ---
    [1] FALSE FALSE
     --- function from context ---
    function (z, ...)
    {
     if (all(c("x", "y", "z") %in% names(z))) {
     image2D.matrix(z = z$z, x = z$x, y = z$y, ...)
     }
     else {
     nz <- length(z)
     classz <- class(z[[1]])
     if (!classz %in% c("matrix", "array"))
     stop("'z' should be a list with either matrices or arrays")
     DD <- dim(z[[1]])
     if (length(DD) > 3 | length(DD) < 2)
     stop("Can only make image of 2-D or 3-D array, 'z' has dimension ",
     length(DD))
     for (i in 2:nz) if (any(dim(z[[i]]) - DD != 0))
     stop("elements of 'z' should have the same dimension, check element",
     i)
     if ("matrix" %in% classz) {
     nc <- min(ceiling(sqrt(nz)), 3)
     nr <- min(ceiling(nz/nc), 3)
     }
     else {
     nc <- ceiling(sqrt(nz))
     nr <- ceiling(nz/nc)
     }
     mfrow <- c(nr, nc)
     par(mfrow = mfrow)
     Ldots <- list(...)
     Ldots$mfrow <- mfrow
     if (!is.null(Ldots$main)) {
     main <- rep(Ldots$main, length.out = nz)
     Ldots$main <- NULL
     }
     else {
     main <- names(z)
     if (is.null(main))
     main <- 1:nz
     }
     ask <- Ldots$ask
     if (is.null(ask))
     ask <- TRUE
     Ldots$ask <- NULL
     yylim <- expanddotslist(Ldots$ylim, nz)
     xxlim <- expanddotslist(Ldots$xlim, nz)
     zzlim <- expanddotslist(Ldots$zlim, nz)
     zzlab <- expanddotslist(Ldots$clab, nz)
     if (ask) {
     oask <- devAskNewPage(TRUE)
     on.exit(devAskNewPage(oask))
     }
     if ("matrix" %in% classz) {
     Mtext <- Ldots$mtext
     Ldots$mtext <- NULL
     for (i in 1:nz) {
     Ldots$main <- main[i]
     Ldots$xlim <- xxlim[[i]]
     Ldots$ylim <- yylim[[i]]
     Ldots$zlim <- zzlim[[i]]
     Ldots$clab <- zzlab[[i]]
     LL <- c(list(z = z[[i]]), Ldots)
     do.call(image2D, LL)
     }
     if (!is.null(Mtext))
     mtext(text = Mtext, side = 3, outer = TRUE, line = par("oma")[3] -
     1)
     }
     else {
     margin <- Ldots$margin
     Ldots$margin <- NULL
     if (is.null(margin))
     margin <- 1:2
     if (length(margin) != 2)
     stop("'margin' should contain two numbers, the x, y subscripts with which to make images")
     if (max(margin) > 3 | min(margin) < 1)
     stop("indexes in 'margin' should be inbetween 1 and 3")
     index <- (1:3)[-margin]
     subset <- Ldots$subset
     Ldots$subset <- NULL
     if (!is.null(subset)) {
     if (is.numeric(subset)) {
     isub <- subset
     }
     else {
     e <- substitute(subset)
     r <- eval(e, as.data.frame(z), parent.frame())
     if (!is.logical(r))
     stop("'subset' must evaluate to logical")
     isub <- r & !is.na(r)
     isub <- which(isub)
     if (length(isub) == 0)
     stop("cannot continue: nothing selected - check 'subset'")
     }
     }
     else isub <- 1:DD[index]
     nisub <- length(isub)
     noplot <- prod(mfrow) - nz
     if (noplot == 0)
     noplot <- NULL
     else noplot <- 1:noplot
     Mtext <- Ldots$mtext
     Ldots$mtext <- NULL
     if (!is.null(Mtext))
     Mtext <- rep(Mtext, length.out = nisub)
     else Mtext <- isub
     pline <- par("oma")[3] - 1
     for (jj in 1:nisub) {
     j <- isub[jj]
     for (i in 1:nz) {
     if (index == 1)
     zz <- z[[i]][j, , ]
     else if (index == 2)
     zz <- z[[i]][, j, ]
     else zz <- z[[i]][, , j]
     if (margin[2] < margin[1])
     zz <- t(zz)
     Ldots$main <- main[i]
     Ldots$xlim <- xxlim[[i]]
     Ldots$ylim <- yylim[[i]]
     Ldots$zlim <- zzlim[[i]]
     Ldots$clab <- zzlab[[i]]
     LL <- c(list(z = zz), Ldots)
     do.call(image2D, LL)
     }
     for (i in noplot) plot(0, type = "n", xlab = "",
     ylab = "", axes = FALSE, frame.plot = FALSE)
     mtext(text = Mtext[jj], side = 3, outer = TRUE,
     line = pline)
     }
     }
     }
    }
    <bytecode: 0x3ed25e0>
    <environment: namespace:plot3D>
     --- function search by body ---
    Function image2D.list in namespace plot3D has this body.
     ----------- END OF FAILURE REPORT --------------
    Error in if (!classz %in% c("matrix", "array")) stop("'z' should be a list with either matrices or arrays") :
     the condition has length > 1
    Calls: image2D -> image2D.list
    Execution halted
Flavor: r-devel-linux-x86_64-debian-clang