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 |
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