CRAN Package Check Results for Package tkRplotR

Last updated on 2019-12-10 08:48:38 CET.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 0.1.2 2.59 20.90 23.49 OK
r-devel-linux-x86_64-debian-gcc 0.1.2 2.22 17.74 19.96 OK
r-devel-linux-x86_64-fedora-clang 0.1.2 31.21 OK
r-devel-linux-x86_64-fedora-gcc 0.1.2 30.14 OK
r-devel-windows-ix86+x86_64 0.1.2 7.00 56.00 63.00 OK
r-devel-windows-ix86+x86_64-gcc8 0.1.2 7.00 35.00 42.00 OK
r-patched-linux-x86_64 0.1.2 2.30 21.21 23.51 OK
r-patched-solaris-x86 0.1.2 47.50 OK
r-release-linux-x86_64 0.1.2 2.25 21.17 23.42 OK
r-release-windows-ix86+x86_64 0.1.2 4.00 32.00 36.00 ERROR
r-release-osx-x86_64 0.1.2 ERROR
r-oldrel-windows-ix86+x86_64 0.1.2 3.00 37.00 40.00 OK
r-oldrel-osx-x86_64 0.1.2 ERROR

Check Details

Version: 0.1.2
Check: examples
Result: ERROR
    Running examples in 'tkRplotR-Ex.R' failed
    The error most likely occurred in:
    
    > ### Name: setCoef
    > ### Title: Functions to Convert Tk and User Coordinates
    > ### Aliases: setCoef getCoef tk2usr usr2tk
    >
    > ### ** Examples
    >
    > ## Don't show:
    > if (.isTclImgOk()){
    + bb <- 1
    + tt <- tktoplevel()
    + tt <- tkRplot(tt, function() {
    + x <- 1:20 / 20
    + plot(
    + x,
    + x ^ bb,
    + col = "#0000ff50",
    + xlab = "x",
    + ylab = paste0("x^", bb),
    + type = "l",
    + axes = FALSE,
    + lwd = 4)
    + title(main = bb)
    + points(x,
    + x ^ bb,
    + col = "#ff000050",
    + pch = 19,
    + cex = 2)
    + axis(1)
    + axis(2)
    + box()
    + })
    +
    + getCoef()
    +
    + tkbind(tt$env$canvas, "<Button-1>", function(x, y)
    + print(tk2usr(x, y)))
    +
    + # A more complex example
    + local({
    + canPos <-.Tcl(paste(tt$env$canvas, "create text 0 0 "))
    + canPosX <-.Tcl(paste(tt$env$canvas, "create text 0 0 "))
    + canPosY <-.Tcl(paste(tt$env$canvas, "create text 0 0 "))
    + lineVertical <- .Tcl(paste(tt$env$canvas, "create line 0 0 0 0"))
    + lineHorizontal<-.Tcl(paste(tt$env$canvas, "create line 0 0 0 0"))
    + tkbind(tt, "<Motion>", function (x, y) {
    + x <- as.numeric(x)
    + y <- as.numeric(y)
    + for (i in c(canPos, lineVertical, lineHorizontal,canPosX,canPosY))
    + tkdelete(tt$env$canvas, tclvalue(i))
    + xy <- formatC(tk2usr(x, y),
    + digits = 2,
    + format = "f",
    + width = 5)
    +
    + xRange <- tt$env$plt[1:2] * tt$env$width
    + yRange <- (1 - tt$env$plt[4:3]) * tt$env$height
    + canPos <<- .Tcl(
    + paste(tt$env$canvas, "create text 40 10 -fill blue -justify left -text { ",
    + xy[1], " ", xy[2],
    + "} -font {Helvetica -10}"))
    + if (x < xRange[1] | x > xRange[2])
    + return()
    + if (y < yRange[1] | y > yRange[2])
    + return()
    + canPosX <<- .Tcl(paste(tt$env$canvas, "create text ", x, yRange[1]-10,
    + " -fill blue -justify center -text { ",xy[1],
    + "} -font {Helvetica -10}"))
    + canPosY <<- .Tcl(paste(tt$env$canvas, "create text ",xRange[2]+10, y,
    + " -fill blue -justify center -text { ",xy[2], "} -font {Helvetica -10}"))
    + lineVertical <<- .Tcl(paste(tt$env$canvas, "create line ",
    + x, yRange[1], x, yRange[2],
    + "-fill blue -dash 4"))
    + lineHorizontal <<- .Tcl(paste(tt$env$canvas,
    + "create line ",
    + xRange[1], y, xRange[2], y,
    + "-fill blue -dash 4"))})
    + tkbind(tt$env$canvas, "<Leave>", function (x, y)
    + {tkdelete(tt$env$canvas, tclvalue(canPos))})
    + } )
    + Sys.sleep(1)
    + tkdestroy(tt)
    + }
Flavor: r-release-windows-ix86+x86_64

Version: 0.1.2
Check: whether package can be installed
Result: ERROR
    Installation failed.
Flavors: r-release-osx-x86_64, r-oldrel-osx-x86_64