Last updated on 2020-02-03 13:48:29 CET.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 1.7 | 22.32 | 169.19 | 191.51 | ERROR | |
| r-devel-linux-x86_64-debian-gcc | 1.7 | 17.26 | 133.18 | 150.44 | ERROR | |
| r-devel-linux-x86_64-fedora-clang | 1.7 | 236.15 | ERROR | |||
| r-devel-linux-x86_64-fedora-gcc | 1.7 | 232.75 | ERROR | |||
| r-devel-windows-ix86+x86_64 | 1.7 | 67.00 | 252.00 | 319.00 | OK | |
| r-devel-windows-ix86+x86_64-gcc8 | 1.7 | 58.00 | 259.00 | 317.00 | OK | |
| r-patched-linux-x86_64 | 1.7 | 20.41 | 160.50 | 180.91 | OK | |
| r-patched-solaris-x86 | 1.7 | 380.40 | OK | |||
| r-release-linux-x86_64 | 1.7 | 18.47 | 161.10 | 179.57 | OK | |
| r-release-windows-ix86+x86_64 | 1.7 | 44.00 | 248.00 | 292.00 | OK | |
| r-release-osx-x86_64 | 1.7 | WARN | ||||
| r-oldrel-windows-ix86+x86_64 | 1.7 | 21.00 | 159.00 | 180.00 | OK | |
| r-oldrel-osx-x86_64 | 1.7 | OK |
Version: 1.7
Check: examples
Result: ERROR
Running examples in 'StatDA-Ex.R' failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: tree
> ### Title: Plot Trees
> ### Aliases: tree
> ### Keywords: tree multivariate
>
> ### ** Examples
>
> data(ohorizon)
> X=ohorizon[,"XCOO"]
> Y=ohorizon[,"YCOO"]
> el=log10(ohorizon[,c("Co","Cu","Ni","Rb","Bi","Na","Sr")])
> sel <- c(3,8,22, 29, 32, 35, 43, 69, 73 ,93,109,129,130,134,168,181,183,205,211,
+ 218,237,242,276,292,297,298,345,346,352,372,373,386,408,419,427,441,446,490,
+ 516,535,551,556,558,564,577,584,601,612,617)
> x=el[sel,]
>
> tree(x,key.loc=c(15,0),len=0.022, lh=30,leglh=4,
+ wmax=120,wmin=30, leglen=0.05, ncol=8, cex=0.75)
----------- FAILURE REPORT --------------
--- failure: the condition has length > 1 ---
--- srcref ---
:
--- package (from environment) ---
StatDA
--- call from context ---
.local(x, y, ...)
--- call from argument ---
if ((class(leg) != "NULL") & length(a@El) == 1) {
text(xy.coords(points[2, 1], points[2, 2]), colnames(leg)[a@El],
cex = 0.8, adj = c(0.3, -0.2))
}
--- R stacktrace ---
where 1: .local(x, y, ...)
where 2: plot(a, xleg, yleg, leglen, leglh, bcl)
where 3: plot(a, xleg, yleg, leglen, leglh, bcl)
where 4: tree(x, key.loc = c(15, 0), len = 0.022, lh = 30, leglh = 4,
wmax = 120, wmin = 30, leglen = 0.05, ncol = 8, cex = 0.75)
--- value of length: 2 type: logical ---
[1] FALSE FALSE
--- function from context ---
function (a, x, y, len = 1, lh = 1, leg = NULL, ...)
{
points = matrix(0, nrow = 4, ncol = 2)
if (a@LR == 0) {
points[1, 1] = x
points[1, 2] = y
points[2, 1] = points[1, 1] - lh * len * a@h * sin(a@w *
2 * pi/360)
points[2, 2] = points[1, 2] + lh * len * a@h * cos(a@w *
2 * pi/360)
points[3, 1] = points[2, 1] + len * length(a@El)
points[3, 2] = points[2, 2]
points[4, 1] = points[1, 1] + len * length(a@El)
points[4, 2] = points[1, 2]
polygon(points)
if ((class(leg) != "NULL") & length(a@El) == 1) {
text(xy.coords(points[2, 1], points[2, 2]), colnames(leg)[a@El],
cex = 0.8, adj = c(0.3, -0.2))
}
}
if (a@LR == 1) {
points[1, 1] = x
points[1, 2] = y
points[2, 1] = points[1, 1] + lh * len * a@h * sin(a@w *
2 * pi/360)
points[2, 2] = points[1, 2] + lh * len * a@h * cos(a@w *
2 * pi/360)
points[3, 1] = points[2, 1] + len * length(a@El)
points[3, 2] = points[2, 2]
points[4, 1] = points[1, 1] + len * length(a@El)
points[4, 2] = points[1, 2]
polygon(points)
if ((class(leg) != "NULL") & length(a@El) == 1) {
text(xy.coords(points[2, 1], points[2, 2]), colnames(leg)[a@El],
cex = 0.8, adj = c(0, -0.2))
}
}
if (class(a@LeafL) != "NULL") {
if (a@LR == 0)
plot(a@LeafL, x - lh * len * a@h * sin(a@w * 2 *
pi/360), y + lh * len * a@h * cos(a@w * 2 * pi/360),
len, lh, leg)
if (a@LR == 1)
plot(a@LeafL, x + lh * len * a@h * sin(a@w * 2 *
pi/360), y + lh * len * a@h * cos(a@w * 2 * pi/360),
len, lh, leg)
}
if (class(a@LeafR) != "NULL") {
if (a@LR == 0)
plot(a@LeafR, x - lh * len * a@h * sin(a@w * 2 *
pi/360) + len * length(a@LeafL@El), y + lh *
len * a@h * cos(a@w * 2 * pi/360), len, lh, leg)
if (a@LR == 1)
plot(a@LeafR, x + lh * len * a@h * sin(a@w * 2 *
pi/360) + len * length(a@LeafL@El), y + lh *
len * a@h * cos(a@w * 2 * pi/360), len, lh, leg)
}
}
<bytecode: 0x1039dd18>
<environment: namespace:StatDA>
--- function search by body ---
----------- END OF FAILURE REPORT --------------
Error in if ((class(leg) != "NULL") & length(a@El) == 1) { :
the condition has length > 1
Calls: tree -> plot -> plot -> .local
Execution halted
Flavor: r-devel-linux-x86_64-debian-clang
Version: 1.7
Check: re-building of vignette outputs
Result: WARN
Error(s) in re-building vignettes:
...
--- re-building 'StatDA.Rnw' using Sweave
Loading required package: geoR
--------------------------------------------------------------
Analysis of Geostatistical Data
For an Introduction to geoR go to http://www.leg.ufpr.br/geoR
geoR version 1.7-5.2.2 (built on 2016-05-02) is now loaded
--------------------------------------------------------------
Loading required package: sgeostat
----------- FAILURE REPORT --------------
--- failure: the condition has length > 1 ---
--- srcref ---
:
--- package (from environment) ---
StatDA
--- call from context ---
.local(x, y, ...)
--- call from argument ---
if ((class(leg) != "NULL") & length(a@El) == 1) {
text(xy.coords(points[2, 1], points[2, 2]), colnames(leg)[a@El],
cex = 0.8, adj = c(0.3, -0.2))
}
--- R stacktrace ---
where 1: .local(x, y, ...)
where 2: plot(a, xleg, yleg, leglen, leglh, bcl)
where 3: plot(a, xleg, yleg, leglen, leglh, bcl)
where 4: tree(x, locations = cbind(X[sel], Y[sel]), len = 700, key.loc = c(793000,
7760000), leglen = 1500, cex = 0.75, add = T, leglh = 6,
lh = 30, wmax = 120, wmin = 30, labels = NULL)
where 5: eval(expr, .GlobalEnv)
where 6: eval(expr, .GlobalEnv)
where 7: withVisible(eval(expr, .GlobalEnv))
where 8: doTryCatch(return(expr), name, parentenv, handler)
where 9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 10: tryCatchList(expr, classes, parentenv, handlers)
where 11: tryCatch(expr, error = function(e) {
call <- conditionCall(e)
if (!is.null(call)) {
if (identical(call[[1L]], quote(doTryCatch)))
call <- sys.call(-4L)
dcall <- deparse(call)[1L]
prefix <- paste("Error in", dcall, ": ")
LONG <- 75L
sm <- strsplit(conditionMessage(e), "\n")[[1L]]
w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")
if (is.na(w))
w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],
type = "b")
if (w > LONG)
prefix <- paste0(prefix, "\n ")
}
else prefix <- "Error : "
msg <- paste0(prefix, conditionMessage(e), "\n")
.Internal(seterrmessage(msg[1L]))
if (!silent && isTRUE(getOption("show.error.messages"))) {
cat(msg, file = outFile)
.Internal(printDeferredWarnings())
}
invisible(structure(msg, class = "try-error", condition = e))
})
where 12: try(withVisible(eval(expr, .GlobalEnv)), silent = TRUE)
where 13: evalFunc(ce, options)
where 14: tryCatchList(expr, classes, parentenv, handlers)
where 15: tryCatch(evalFunc(ce, options), finally = {
cat("\n")
sink()
})
where 16: driver$runcode(drobj, chunk, chunkopts)
where 17: utils::Sweave(...)
where 18: engine$weave(file, quiet = quiet, encoding = enc)
where 19: doTryCatch(return(expr), name, parentenv, handler)
where 20: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 21: tryCatchList(expr, classes, parentenv, handlers)
where 22: tryCatch({
engine$weave(file, quiet = quiet, encoding = enc)
setwd(startdir)
output <- find_vignette_product(name, by = "weave", engine = engine)
if (!have.makefile && vignette_is_tex(output)) {
texi2pdf(file = output, clean = FALSE, quiet = quiet)
output <- find_vignette_product(name, by = "texi2pdf",
engine = engine)
}
outputs <- c(outputs, output)
}, error = function(e) {
thisOK <<- FALSE
fails <<- c(fails, file)
message(gettextf("Error: processing vignette '%s' failed with diagnostics:\n%s",
file, conditionMessage(e)))
})
where 23: tools:::buildVignettes(dir = "/home/hornik/tmp/R.check/r-devel-clang/Work/PKGS/StatDA.Rcheck/vign_test/StatDA",
ser_elibs = "/tmp/Rtmp2SvTy6/file69da1f4e4dc0.rds")
--- value of length: 2 type: logical ---
[1] FALSE FALSE
--- function from context ---
function (a, x, y, len = 1, lh = 1, leg = NULL, ...)
{
points = matrix(0, nrow = 4, ncol = 2)
if (a@LR == 0) {
points[1, 1] = x
points[1, 2] = y
points[2, 1] = points[1, 1] - lh * len * a@h * sin(a@w *
2 * pi/360)
points[2, 2] = points[1, 2] + lh * len * a@h * cos(a@w *
2 * pi/360)
points[3, 1] = points[2, 1] + len * length(a@El)
points[3, 2] = points[2, 2]
points[4, 1] = points[1, 1] + len * length(a@El)
points[4, 2] = points[1, 2]
polygon(points)
if ((class(leg) != "NULL") & length(a@El) == 1) {
text(xy.coords(points[2, 1], points[2, 2]), colnames(leg)[a@El],
cex = 0.8, adj = c(0.3, -0.2))
}
}
if (a@LR == 1) {
points[1, 1] = x
points[1, 2] = y
points[2, 1] = points[1, 1] + lh * len * a@h * sin(a@w *
2 * pi/360)
points[2, 2] = points[1, 2] + lh * len * a@h * cos(a@w *
2 * pi/360)
points[3, 1] = points[2, 1] + len * length(a@El)
points[3, 2] = points[2, 2]
points[4, 1] = points[1, 1] + len * length(a@El)
points[4, 2] = points[1, 2]
polygon(points)
if ((class(leg) != "NULL") & length(a@El) == 1) {
text(xy.coords(points[2, 1], points[2, 2]), colnames(leg)[a@El],
cex = 0.8, adj = c(0, -0.2))
}
}
if (class(a@LeafL) != "NULL") {
if (a@LR == 0)
plot(a@LeafL, x - lh * len * a@h * sin(a@w * 2 *
pi/360), y + lh * len * a@h * cos(a@w * 2 * pi/360),
len, lh, leg)
if (a@LR == 1)
plot(a@LeafL, x + lh * len * a@h * sin(a@w * 2 *
pi/360), y + lh * len * a@h * cos(a@w * 2 * pi/360),
len, lh, leg)
}
if (class(a@LeafR) != "NULL") {
if (a@LR == 0)
plot(a@LeafR, x - lh * len * a@h * sin(a@w * 2 *
pi/360) + len * length(a@LeafL@El), y + lh *
len * a@h * cos(a@w * 2 * pi/360), len, lh, leg)
if (a@LR == 1)
plot(a@LeafR, x + lh * len * a@h * sin(a@w * 2 *
pi/360) + len * length(a@LeafL@El), y + lh *
len * a@h * cos(a@w * 2 * pi/360), len, lh, leg)
}
}
<bytecode: 0x109bb3f8>
<environment: namespace:StatDA>
--- function search by body ---
----------- END OF FAILURE REPORT --------------
Error: processing vignette 'StatDA.Rnw' failed with diagnostics:
chunk 30 (label = fig14plot)
Error in if ((class(leg) != "NULL") & length(a@El) == 1) { :
the condition has length > 1
--- failed re-building 'StatDA.Rnw'
SUMMARY: processing the following file failed:
'StatDA.Rnw'
Error: Vignette re-building failed.
Execution halted
Flavor: r-devel-linux-x86_64-debian-clang
Version: 1.7
Check: examples
Result: ERROR
Running examples in ‘StatDA-Ex.R’ failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: tree
> ### Title: Plot Trees
> ### Aliases: tree
> ### Keywords: tree multivariate
>
> ### ** Examples
>
> data(ohorizon)
> X=ohorizon[,"XCOO"]
> Y=ohorizon[,"YCOO"]
> el=log10(ohorizon[,c("Co","Cu","Ni","Rb","Bi","Na","Sr")])
> sel <- c(3,8,22, 29, 32, 35, 43, 69, 73 ,93,109,129,130,134,168,181,183,205,211,
+ 218,237,242,276,292,297,298,345,346,352,372,373,386,408,419,427,441,446,490,
+ 516,535,551,556,558,564,577,584,601,612,617)
> x=el[sel,]
>
> tree(x,key.loc=c(15,0),len=0.022, lh=30,leglh=4,
+ wmax=120,wmin=30, leglen=0.05, ncol=8, cex=0.75)
----------- FAILURE REPORT --------------
--- failure: the condition has length > 1 ---
--- srcref ---
:
--- package (from environment) ---
StatDA
--- call from context ---
.local(x, y, ...)
--- call from argument ---
if ((class(leg) != "NULL") & length(a@El) == 1) {
text(xy.coords(points[2, 1], points[2, 2]), colnames(leg)[a@El],
cex = 0.8, adj = c(0.3, -0.2))
}
--- R stacktrace ---
where 1: .local(x, y, ...)
where 2: plot(a, xleg, yleg, leglen, leglh, bcl)
where 3: plot(a, xleg, yleg, leglen, leglh, bcl)
where 4: tree(x, key.loc = c(15, 0), len = 0.022, lh = 30, leglh = 4,
wmax = 120, wmin = 30, leglen = 0.05, ncol = 8, cex = 0.75)
--- value of length: 2 type: logical ---
[1] FALSE FALSE
--- function from context ---
function (a, x, y, len = 1, lh = 1, leg = NULL, ...)
{
points = matrix(0, nrow = 4, ncol = 2)
if (a@LR == 0) {
points[1, 1] = x
points[1, 2] = y
points[2, 1] = points[1, 1] - lh * len * a@h * sin(a@w *
2 * pi/360)
points[2, 2] = points[1, 2] + lh * len * a@h * cos(a@w *
2 * pi/360)
points[3, 1] = points[2, 1] + len * length(a@El)
points[3, 2] = points[2, 2]
points[4, 1] = points[1, 1] + len * length(a@El)
points[4, 2] = points[1, 2]
polygon(points)
if ((class(leg) != "NULL") & length(a@El) == 1) {
text(xy.coords(points[2, 1], points[2, 2]), colnames(leg)[a@El],
cex = 0.8, adj = c(0.3, -0.2))
}
}
if (a@LR == 1) {
points[1, 1] = x
points[1, 2] = y
points[2, 1] = points[1, 1] + lh * len * a@h * sin(a@w *
2 * pi/360)
points[2, 2] = points[1, 2] + lh * len * a@h * cos(a@w *
2 * pi/360)
points[3, 1] = points[2, 1] + len * length(a@El)
points[3, 2] = points[2, 2]
points[4, 1] = points[1, 1] + len * length(a@El)
points[4, 2] = points[1, 2]
polygon(points)
if ((class(leg) != "NULL") & length(a@El) == 1) {
text(xy.coords(points[2, 1], points[2, 2]), colnames(leg)[a@El],
cex = 0.8, adj = c(0, -0.2))
}
}
if (class(a@LeafL) != "NULL") {
if (a@LR == 0)
plot(a@LeafL, x - lh * len * a@h * sin(a@w * 2 *
pi/360), y + lh * len * a@h * cos(a@w * 2 * pi/360),
len, lh, leg)
if (a@LR == 1)
plot(a@LeafL, x + lh * len * a@h * sin(a@w * 2 *
pi/360), y + lh * len * a@h * cos(a@w * 2 * pi/360),
len, lh, leg)
}
if (class(a@LeafR) != "NULL") {
if (a@LR == 0)
plot(a@LeafR, x - lh * len * a@h * sin(a@w * 2 *
pi/360) + len * length(a@LeafL@El), y + lh *
len * a@h * cos(a@w * 2 * pi/360), len, lh, leg)
if (a@LR == 1)
plot(a@LeafR, x + lh * len * a@h * sin(a@w * 2 *
pi/360) + len * length(a@LeafL@El), y + lh *
len * a@h * cos(a@w * 2 * pi/360), len, lh, leg)
}
}
<bytecode: 0x55f995656db8>
<environment: namespace:StatDA>
--- function search by body ---
----------- END OF FAILURE REPORT --------------
Error in if ((class(leg) != "NULL") & length(a@El) == 1) { :
the condition has length > 1
Calls: tree -> plot -> plot -> .local
Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 1.7
Check: re-building of vignette outputs
Result: WARN
Error(s) in re-building vignettes:
...
--- re-building ‘StatDA.Rnw’ using Sweave
Loading required package: geoR
--------------------------------------------------------------
Analysis of Geostatistical Data
For an Introduction to geoR go to http://www.leg.ufpr.br/geoR
geoR version 1.7-5.2.2 (built on 2016-05-02) is now loaded
--------------------------------------------------------------
Loading required package: sgeostat
----------- FAILURE REPORT --------------
--- failure: the condition has length > 1 ---
--- srcref ---
:
--- package (from environment) ---
StatDA
--- call from context ---
.local(x, y, ...)
--- call from argument ---
if ((class(leg) != "NULL") & length(a@El) == 1) {
text(xy.coords(points[2, 1], points[2, 2]), colnames(leg)[a@El],
cex = 0.8, adj = c(0.3, -0.2))
}
--- R stacktrace ---
where 1: .local(x, y, ...)
where 2: plot(a, xleg, yleg, leglen, leglh, bcl)
where 3: plot(a, xleg, yleg, leglen, leglh, bcl)
where 4: tree(x, locations = cbind(X[sel], Y[sel]), len = 700, key.loc = c(793000,
7760000), leglen = 1500, cex = 0.75, add = T, leglh = 6,
lh = 30, wmax = 120, wmin = 30, labels = NULL)
where 5: eval(expr, .GlobalEnv)
where 6: eval(expr, .GlobalEnv)
where 7: withVisible(eval(expr, .GlobalEnv))
where 8: doTryCatch(return(expr), name, parentenv, handler)
where 9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 10: tryCatchList(expr, classes, parentenv, handlers)
where 11: tryCatch(expr, error = function(e) {
call <- conditionCall(e)
if (!is.null(call)) {
if (identical(call[[1L]], quote(doTryCatch)))
call <- sys.call(-4L)
dcall <- deparse(call)[1L]
prefix <- paste("Error in", dcall, ": ")
LONG <- 75L
sm <- strsplit(conditionMessage(e), "\n")[[1L]]
w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")
if (is.na(w))
w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],
type = "b")
if (w > LONG)
prefix <- paste0(prefix, "\n ")
}
else prefix <- "Error : "
msg <- paste0(prefix, conditionMessage(e), "\n")
.Internal(seterrmessage(msg[1L]))
if (!silent && isTRUE(getOption("show.error.messages"))) {
cat(msg, file = outFile)
.Internal(printDeferredWarnings())
}
invisible(structure(msg, class = "try-error", condition = e))
})
where 12: try(withVisible(eval(expr, .GlobalEnv)), silent = TRUE)
where 13: evalFunc(ce, options)
where 14: tryCatchList(expr, classes, parentenv, handlers)
where 15: tryCatch(evalFunc(ce, options), finally = {
cat("\n")
sink()
})
where 16: driver$runcode(drobj, chunk, chunkopts)
where 17: utils::Sweave(...)
where 18: engine$weave(file, quiet = quiet, encoding = enc)
where 19: doTryCatch(return(expr), name, parentenv, handler)
where 20: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 21: tryCatchList(expr, classes, parentenv, handlers)
where 22: tryCatch({
engine$weave(file, quiet = quiet, encoding = enc)
setwd(startdir)
output <- find_vignette_product(name, by = "weave", engine = engine)
if (!have.makefile && vignette_is_tex(output)) {
texi2pdf(file = output, clean = FALSE, quiet = quiet)
output <- find_vignette_product(name, by = "texi2pdf",
engine = engine)
}
outputs <- c(outputs, output)
}, error = function(e) {
thisOK <<- FALSE
fails <<- c(fails, file)
message(gettextf("Error: processing vignette '%s' failed with diagnostics:\n%s",
file, conditionMessage(e)))
})
where 23: tools:::buildVignettes(dir = "/home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/StatDA.Rcheck/vign_test/StatDA",
ser_elibs = "/home/hornik/tmp/scratch/RtmppiUROl/file1a1f34dcce54.rds")
--- value of length: 2 type: logical ---
[1] FALSE FALSE
--- function from context ---
function (a, x, y, len = 1, lh = 1, leg = NULL, ...)
{
points = matrix(0, nrow = 4, ncol = 2)
if (a@LR == 0) {
points[1, 1] = x
points[1, 2] = y
points[2, 1] = points[1, 1] - lh * len * a@h * sin(a@w *
2 * pi/360)
points[2, 2] = points[1, 2] + lh * len * a@h * cos(a@w *
2 * pi/360)
points[3, 1] = points[2, 1] + len * length(a@El)
points[3, 2] = points[2, 2]
points[4, 1] = points[1, 1] + len * length(a@El)
points[4, 2] = points[1, 2]
polygon(points)
if ((class(leg) != "NULL") & length(a@El) == 1) {
text(xy.coords(points[2, 1], points[2, 2]), colnames(leg)[a@El],
cex = 0.8, adj = c(0.3, -0.2))
}
}
if (a@LR == 1) {
points[1, 1] = x
points[1, 2] = y
points[2, 1] = points[1, 1] + lh * len * a@h * sin(a@w *
2 * pi/360)
points[2, 2] = points[1, 2] + lh * len * a@h * cos(a@w *
2 * pi/360)
points[3, 1] = points[2, 1] + len * length(a@El)
points[3, 2] = points[2, 2]
points[4, 1] = points[1, 1] + len * length(a@El)
points[4, 2] = points[1, 2]
polygon(points)
if ((class(leg) != "NULL") & length(a@El) == 1) {
text(xy.coords(points[2, 1], points[2, 2]), colnames(leg)[a@El],
cex = 0.8, adj = c(0, -0.2))
}
}
if (class(a@LeafL) != "NULL") {
if (a@LR == 0)
plot(a@LeafL, x - lh * len * a@h * sin(a@w * 2 *
pi/360), y + lh * len * a@h * cos(a@w * 2 * pi/360),
len, lh, leg)
if (a@LR == 1)
plot(a@LeafL, x + lh * len * a@h * sin(a@w * 2 *
pi/360), y + lh * len * a@h * cos(a@w * 2 * pi/360),
len, lh, leg)
}
if (class(a@LeafR) != "NULL") {
if (a@LR == 0)
plot(a@LeafR, x - lh * len * a@h * sin(a@w * 2 *
pi/360) + len * length(a@LeafL@El), y + lh *
len * a@h * cos(a@w * 2 * pi/360), len, lh, leg)
if (a@LR == 1)
plot(a@LeafR, x + lh * len * a@h * sin(a@w * 2 *
pi/360) + len * length(a@LeafL@El), y + lh *
len * a@h * cos(a@w * 2 * pi/360), len, lh, leg)
}
}
<bytecode: 0x557b74772230>
<environment: namespace:StatDA>
--- function search by body ---
----------- END OF FAILURE REPORT --------------
Error: processing vignette 'StatDA.Rnw' failed with diagnostics:
chunk 30 (label = fig14plot)
Error in if ((class(leg) != "NULL") & length(a@El) == 1) { :
the condition has length > 1
--- failed re-building ‘StatDA.Rnw’
SUMMARY: processing the following file failed:
‘StatDA.Rnw’
Error: Vignette re-building failed.
Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 1.7
Check: package dependencies
Result: WARN
Requires orphaned package: ‘geoR’
Flavor: r-devel-linux-x86_64-fedora-clang
Version: 1.7
Check: examples
Result: ERROR
Running examples in ‘StatDA-Ex.R’ failed
The error most likely occurred in:
> ### Name: tree
> ### Title: Plot Trees
> ### Aliases: tree
> ### Keywords: tree multivariate
>
> ### ** Examples
>
> data(ohorizon)
> X=ohorizon[,"XCOO"]
> Y=ohorizon[,"YCOO"]
> el=log10(ohorizon[,c("Co","Cu","Ni","Rb","Bi","Na","Sr")])
> sel <- c(3,8,22, 29, 32, 35, 43, 69, 73 ,93,109,129,130,134,168,181,183,205,211,
+ 218,237,242,276,292,297,298,345,346,352,372,373,386,408,419,427,441,446,490,
+ 516,535,551,556,558,564,577,584,601,612,617)
> x=el[sel,]
>
> tree(x,key.loc=c(15,0),len=0.022, lh=30,leglh=4,
+ wmax=120,wmin=30, leglen=0.05, ncol=8, cex=0.75)
----------- FAILURE REPORT --------------
--- failure: the condition has length > 1 ---
--- srcref ---
:
--- package (from environment) ---
StatDA
--- call from context ---
.local(x, y, ...)
--- call from argument ---
if ((class(leg) != "NULL") & length(a@El) == 1) {
text(xy.coords(points[2, 1], points[2, 2]), colnames(leg)[a@El],
cex = 0.8, adj = c(0.3, -0.2))
}
--- R stacktrace ---
where 1: .local(x, y, ...)
where 2: plot(a, xleg, yleg, leglen, leglh, bcl)
where 3: plot(a, xleg, yleg, leglen, leglh, bcl)
where 4: tree(x, key.loc = c(15, 0), len = 0.022, lh = 30, leglh = 4,
wmax = 120, wmin = 30, leglen = 0.05, ncol = 8, cex = 0.75)
--- value of length: 2 type: logical ---
[1] FALSE FALSE
--- function from context ---
function (a, x, y, len = 1, lh = 1, leg = NULL, ...)
{
points = matrix(0, nrow = 4, ncol = 2)
if (a@LR == 0) {
points[1, 1] = x
points[1, 2] = y
points[2, 1] = points[1, 1] - lh * len * a@h * sin(a@w *
2 * pi/360)
points[2, 2] = points[1, 2] + lh * len * a@h * cos(a@w *
2 * pi/360)
points[3, 1] = points[2, 1] + len * length(a@El)
points[3, 2] = points[2, 2]
points[4, 1] = points[1, 1] + len * length(a@El)
points[4, 2] = points[1, 2]
polygon(points)
if ((class(leg) != "NULL") & length(a@El) == 1) {
text(xy.coords(points[2, 1], points[2, 2]), colnames(leg)[a@El],
cex = 0.8, adj = c(0.3, -0.2))
}
}
if (a@LR == 1) {
points[1, 1] = x
points[1, 2] = y
points[2, 1] = points[1, 1] + lh * len * a@h * sin(a@w *
2 * pi/360)
points[2, 2] = points[1, 2] + lh * len * a@h * cos(a@w *
2 * pi/360)
points[3, 1] = points[2, 1] + len * length(a@El)
points[3, 2] = points[2, 2]
points[4, 1] = points[1, 1] + len * length(a@El)
points[4, 2] = points[1, 2]
polygon(points)
if ((class(leg) != "NULL") & length(a@El) == 1) {
text(xy.coords(points[2, 1], points[2, 2]), colnames(leg)[a@El],
cex = 0.8, adj = c(0, -0.2))
}
}
if (class(a@LeafL) != "NULL") {
if (a@LR == 0)
plot(a@LeafL, x - lh * len * a@h * sin(a@w * 2 *
pi/360), y + lh * len * a@h * cos(a@w * 2 * pi/360),
len, lh, leg)
if (a@LR == 1)
plot(a@LeafL, x + lh * len * a@h * sin(a@w * 2 *
pi/360), y + lh * len * a@h * cos(a@w * 2 * pi/360),
len, lh, leg)
}
if (class(a@LeafR) != "NULL") {
if (a@LR == 0)
plot(a@LeafR, x - lh * len * a@h * sin(a@w * 2 *
pi/360) + len * length(a@LeafL@El), y + lh *
len * a@h * cos(a@w * 2 * pi/360), len, lh, leg)
if (a@LR == 1)
plot(a@LeafR, x + lh * len * a@h * sin(a@w * 2 *
pi/360) + len * length(a@LeafL@El), y + lh *
len * a@h * cos(a@w * 2 * pi/360), len, lh, leg)
}
}
<bytecode: 0x13b999c8>
<environment: namespace:StatDA>
--- function search by body ---
----------- END OF FAILURE REPORT --------------
Error in if ((class(leg) != "NULL") & length(a@El) == 1) { :
the condition has length > 1
Calls: tree -> plot -> plot -> .local
Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang
Version: 1.7
Check: re-building of vignette outputs
Result: WARN
Error(s) in re-building vignettes:
--- re-building ‘StatDA.Rnw’ using Sweave
Loading required package: geoR
--------------------------------------------------------------
Analysis of Geostatistical Data
For an Introduction to geoR go to http://www.leg.ufpr.br/geoR
geoR version 1.7-5.2.2 (built on 2016-05-02) is now loaded
--------------------------------------------------------------
Loading required package: sgeostat
----------- FAILURE REPORT --------------
--- failure: the condition has length > 1 ---
--- srcref ---
:
--- package (from environment) ---
StatDA
--- call from context ---
.local(x, y, ...)
--- call from argument ---
if ((class(leg) != "NULL") & length(a@El) == 1) {
text(xy.coords(points[2, 1], points[2, 2]), colnames(leg)[a@El],
cex = 0.8, adj = c(0.3, -0.2))
}
--- R stacktrace ---
where 1: .local(x, y, ...)
where 2: plot(a, xleg, yleg, leglen, leglh, bcl)
where 3: plot(a, xleg, yleg, leglen, leglh, bcl)
where 4: tree(x, locations = cbind(X[sel], Y[sel]), len = 700, key.loc = c(793000,
7760000), leglen = 1500, cex = 0.75, add = T, leglh = 6,
lh = 30, wmax = 120, wmin = 30, labels = NULL)
where 5: eval(expr, .GlobalEnv)
where 6: eval(expr, .GlobalEnv)
where 7: withVisible(eval(expr, .GlobalEnv))
where 8: doTryCatch(return(expr), name, parentenv, handler)
where 9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 10: tryCatchList(expr, classes, parentenv, handlers)
where 11: tryCatch(expr, error = function(e) {
call <- conditionCall(e)
if (!is.null(call)) {
if (identical(call[[1L]], quote(doTryCatch)))
call <- sys.call(-4L)
dcall <- deparse(call)[1L]
prefix <- paste("Error in", dcall, ": ")
LONG <- 75L
sm <- strsplit(conditionMessage(e), "\n")[[1L]]
w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")
if (is.na(w))
w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],
type = "b")
if (w > LONG)
prefix <- paste0(prefix, "\n ")
}
else prefix <- "Error : "
msg <- paste0(prefix, conditionMessage(e), "\n")
.Internal(seterrmessage(msg[1L]))
if (!silent && isTRUE(getOption("show.error.messages"))) {
cat(msg, file = outFile)
.Internal(printDeferredWarnings())
}
invisible(structure(msg, class = "try-error", condition = e))
})
where 12: try(withVisible(eval(expr, .GlobalEnv)), silent = TRUE)
where 13: evalFunc(ce, options)
where 14: tryCatchList(expr, classes, parentenv, handlers)
where 15: tryCatch(evalFunc(ce, options), finally = {
cat("\n")
sink()
})
where 16: driver$runcode(drobj, chunk, chunkopts)
where 17: utils::Sweave(...)
where 18: engine$weave(file, quiet = quiet, encoding = enc)
where 19: doTryCatch(return(expr), name, parentenv, handler)
where 20: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 21: tryCatchList(expr, classes, parentenv, handlers)
where 22: tryCatch({
engine$weave(file, quiet = quiet, encoding = enc)
setwd(startdir)
output <- find_vignette_product(name, by = "weave", engine = engine)
if (!have.makefile && vignette_is_tex(output)) {
texi2pdf(file = output, clean = FALSE, quiet = quiet)
output <- find_vignette_product(name, by = "texi2pdf",
engine = engine)
}
outputs <- c(outputs, output)
}, error = function(e) {
thisOK <<- FALSE
fails <<- c(fails, file)
message(gettextf("Error: processing vignette '%s' failed with diagnostics:\n%s",
file, conditionMessage(e)))
})
where 23: tools:::buildVignettes(dir = "/data/gannet/ripley/R/packages/tests-clang/StatDA.Rcheck/vign_test/StatDA",
ser_elibs = "/tmp/RtmpDJ0Hwd/file2d737ba0b1e4.rds")
--- value of length: 2 type: logical ---
[1] FALSE FALSE
--- function from context ---
function (a, x, y, len = 1, lh = 1, leg = NULL, ...)
{
points = matrix(0, nrow = 4, ncol = 2)
if (a@LR == 0) {
points[1, 1] = x
points[1, 2] = y
points[2, 1] = points[1, 1] - lh * len * a@h * sin(a@w *
2 * pi/360)
points[2, 2] = points[1, 2] + lh * len * a@h * cos(a@w *
2 * pi/360)
points[3, 1] = points[2, 1] + len * length(a@El)
points[3, 2] = points[2, 2]
points[4, 1] = points[1, 1] + len * length(a@El)
points[4, 2] = points[1, 2]
polygon(points)
if ((class(leg) != "NULL") & length(a@El) == 1) {
text(xy.coords(points[2, 1], points[2, 2]), colnames(leg)[a@El],
cex = 0.8, adj = c(0.3, -0.2))
}
}
if (a@LR == 1) {
points[1, 1] = x
points[1, 2] = y
points[2, 1] = points[1, 1] + lh * len * a@h * sin(a@w *
2 * pi/360)
points[2, 2] = points[1, 2] + lh * len * a@h * cos(a@w *
2 * pi/360)
points[3, 1] = points[2, 1] + len * length(a@El)
points[3, 2] = points[2, 2]
points[4, 1] = points[1, 1] + len * length(a@El)
points[4, 2] = points[1, 2]
polygon(points)
if ((class(leg) != "NULL") & length(a@El) == 1) {
text(xy.coords(points[2, 1], points[2, 2]), colnames(leg)[a@El],
cex = 0.8, adj = c(0, -0.2))
}
}
if (class(a@LeafL) != "NULL") {
if (a@LR == 0)
plot(a@LeafL, x - lh * len * a@h * sin(a@w * 2 *
pi/360), y + lh * len * a@h * cos(a@w * 2 * pi/360),
len, lh, leg)
if (a@LR == 1)
plot(a@LeafL, x + lh * len * a@h * sin(a@w * 2 *
pi/360), y + lh * len * a@h * cos(a@w * 2 * pi/360),
len, lh, leg)
}
if (class(a@LeafR) != "NULL") {
if (a@LR == 0)
plot(a@LeafR, x - lh * len * a@h * sin(a@w * 2 *
pi/360) + len * length(a@LeafL@El), y + lh *
len * a@h * cos(a@w * 2 * pi/360), len, lh, leg)
if (a@LR == 1)
plot(a@LeafR, x + lh * len * a@h * sin(a@w * 2 *
pi/360) + len * length(a@LeafL@El), y + lh *
len * a@h * cos(a@w * 2 * pi/360), len, lh, leg)
}
}
<bytecode: 0x12ff9bb0>
<environment: namespace:StatDA>
--- function search by body ---
----------- END OF FAILURE REPORT --------------
Error: processing vignette 'StatDA.Rnw' failed with diagnostics:
chunk 30 (label = fig14plot)
Error in if ((class(leg) != "NULL") & length(a@El) == 1) { :
the condition has length > 1
--- failed re-building ‘StatDA.Rnw’
SUMMARY: processing the following file failed:
‘StatDA.Rnw’
Error: Vignette re-building failed.
Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang
Version: 1.7
Check: examples
Result: ERROR
Running examples in ‘StatDA-Ex.R’ failed
The error most likely occurred in:
> ### Name: tree
> ### Title: Plot Trees
> ### Aliases: tree
> ### Keywords: tree multivariate
>
> ### ** Examples
>
> data(ohorizon)
> X=ohorizon[,"XCOO"]
> Y=ohorizon[,"YCOO"]
> el=log10(ohorizon[,c("Co","Cu","Ni","Rb","Bi","Na","Sr")])
> sel <- c(3,8,22, 29, 32, 35, 43, 69, 73 ,93,109,129,130,134,168,181,183,205,211,
+ 218,237,242,276,292,297,298,345,346,352,372,373,386,408,419,427,441,446,490,
+ 516,535,551,556,558,564,577,584,601,612,617)
> x=el[sel,]
>
> tree(x,key.loc=c(15,0),len=0.022, lh=30,leglh=4,
+ wmax=120,wmin=30, leglen=0.05, ncol=8, cex=0.75)
----------- FAILURE REPORT --------------
--- failure: the condition has length > 1 ---
--- srcref ---
:
--- package (from environment) ---
StatDA
--- call from context ---
.local(x, y, ...)
--- call from argument ---
if ((class(leg) != "NULL") & length(a@El) == 1) {
text(xy.coords(points[2, 1], points[2, 2]), colnames(leg)[a@El],
cex = 0.8, adj = c(0.3, -0.2))
}
--- R stacktrace ---
where 1: .local(x, y, ...)
where 2: plot(a, xleg, yleg, leglen, leglh, bcl)
where 3: plot(a, xleg, yleg, leglen, leglh, bcl)
where 4: tree(x, key.loc = c(15, 0), len = 0.022, lh = 30, leglh = 4,
wmax = 120, wmin = 30, leglen = 0.05, ncol = 8, cex = 0.75)
--- value of length: 2 type: logical ---
[1] FALSE FALSE
--- function from context ---
function (a, x, y, len = 1, lh = 1, leg = NULL, ...)
{
points = matrix(0, nrow = 4, ncol = 2)
if (a@LR == 0) {
points[1, 1] = x
points[1, 2] = y
points[2, 1] = points[1, 1] - lh * len * a@h * sin(a@w *
2 * pi/360)
points[2, 2] = points[1, 2] + lh * len * a@h * cos(a@w *
2 * pi/360)
points[3, 1] = points[2, 1] + len * length(a@El)
points[3, 2] = points[2, 2]
points[4, 1] = points[1, 1] + len * length(a@El)
points[4, 2] = points[1, 2]
polygon(points)
if ((class(leg) != "NULL") & length(a@El) == 1) {
text(xy.coords(points[2, 1], points[2, 2]), colnames(leg)[a@El],
cex = 0.8, adj = c(0.3, -0.2))
}
}
if (a@LR == 1) {
points[1, 1] = x
points[1, 2] = y
points[2, 1] = points[1, 1] + lh * len * a@h * sin(a@w *
2 * pi/360)
points[2, 2] = points[1, 2] + lh * len * a@h * cos(a@w *
2 * pi/360)
points[3, 1] = points[2, 1] + len * length(a@El)
points[3, 2] = points[2, 2]
points[4, 1] = points[1, 1] + len * length(a@El)
points[4, 2] = points[1, 2]
polygon(points)
if ((class(leg) != "NULL") & length(a@El) == 1) {
text(xy.coords(points[2, 1], points[2, 2]), colnames(leg)[a@El],
cex = 0.8, adj = c(0, -0.2))
}
}
if (class(a@LeafL) != "NULL") {
if (a@LR == 0)
plot(a@LeafL, x - lh * len * a@h * sin(a@w * 2 *
pi/360), y + lh * len * a@h * cos(a@w * 2 * pi/360),
len, lh, leg)
if (a@LR == 1)
plot(a@LeafL, x + lh * len * a@h * sin(a@w * 2 *
pi/360), y + lh * len * a@h * cos(a@w * 2 * pi/360),
len, lh, leg)
}
if (class(a@LeafR) != "NULL") {
if (a@LR == 0)
plot(a@LeafR, x - lh * len * a@h * sin(a@w * 2 *
pi/360) + len * length(a@LeafL@El), y + lh *
len * a@h * cos(a@w * 2 * pi/360), len, lh, leg)
if (a@LR == 1)
plot(a@LeafR, x + lh * len * a@h * sin(a@w * 2 *
pi/360) + len * length(a@LeafL@El), y + lh *
len * a@h * cos(a@w * 2 * pi/360), len, lh, leg)
}
}
<bytecode: 0x129108f0>
<environment: namespace:StatDA>
--- function search by body ---
----------- END OF FAILURE REPORT --------------
Error in if ((class(leg) != "NULL") & length(a@El) == 1) { :
the condition has length > 1
Calls: tree -> plot -> plot -> .local
Execution halted
Flavor: r-devel-linux-x86_64-fedora-gcc
Version: 1.7
Check: re-building of vignette outputs
Result: WARN
Error(s) in re-building vignettes:
--- re-building ‘StatDA.Rnw’ using Sweave
Loading required package: geoR
--------------------------------------------------------------
Analysis of Geostatistical Data
For an Introduction to geoR go to http://www.leg.ufpr.br/geoR
geoR version 1.7-5.2.2 (built on 2016-05-02) is now loaded
--------------------------------------------------------------
Loading required package: sgeostat
----------- FAILURE REPORT --------------
--- failure: the condition has length > 1 ---
--- srcref ---
:
--- package (from environment) ---
StatDA
--- call from context ---
.local(x, y, ...)
--- call from argument ---
if ((class(leg) != "NULL") & length(a@El) == 1) {
text(xy.coords(points[2, 1], points[2, 2]), colnames(leg)[a@El],
cex = 0.8, adj = c(0.3, -0.2))
}
--- R stacktrace ---
where 1: .local(x, y, ...)
where 2: plot(a, xleg, yleg, leglen, leglh, bcl)
where 3: plot(a, xleg, yleg, leglen, leglh, bcl)
where 4: tree(x, locations = cbind(X[sel], Y[sel]), len = 700, key.loc = c(793000,
7760000), leglen = 1500, cex = 0.75, add = T, leglh = 6,
lh = 30, wmax = 120, wmin = 30, labels = NULL)
where 5: eval(expr, .GlobalEnv)
where 6: eval(expr, .GlobalEnv)
where 7: withVisible(eval(expr, .GlobalEnv))
where 8: doTryCatch(return(expr), name, parentenv, handler)
where 9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 10: tryCatchList(expr, classes, parentenv, handlers)
where 11: tryCatch(expr, error = function(e) {
call <- conditionCall(e)
if (!is.null(call)) {
if (identical(call[[1L]], quote(doTryCatch)))
call <- sys.call(-4L)
dcall <- deparse(call)[1L]
prefix <- paste("Error in", dcall, ": ")
LONG <- 75L
sm <- strsplit(conditionMessage(e), "\n")[[1L]]
w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")
if (is.na(w))
w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],
type = "b")
if (w > LONG)
prefix <- paste0(prefix, "\n ")
}
else prefix <- "Error : "
msg <- paste0(prefix, conditionMessage(e), "\n")
.Internal(seterrmessage(msg[1L]))
if (!silent && isTRUE(getOption("show.error.messages"))) {
cat(msg, file = outFile)
.Internal(printDeferredWarnings())
}
invisible(structure(msg, class = "try-error", condition = e))
})
where 12: try(withVisible(eval(expr, .GlobalEnv)), silent = TRUE)
where 13: evalFunc(ce, options)
where 14: tryCatchList(expr, classes, parentenv, handlers)
where 15: tryCatch(evalFunc(ce, options), finally = {
cat("\n")
sink()
})
where 16: driver$runcode(drobj, chunk, chunkopts)
where 17: utils::Sweave(...)
where 18: engine$weave(file, quiet = quiet, encoding = enc)
where 19: doTryCatch(return(expr), name, parentenv, handler)
where 20: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 21: tryCatchList(expr, classes, parentenv, handlers)
where 22: tryCatch({
engine$weave(file, quiet = quiet, encoding = enc)
setwd(startdir)
output <- find_vignette_product(name, by = "weave", engine = engine)
if (!have.makefile && vignette_is_tex(output)) {
texi2pdf(file = output, clean = FALSE, quiet = quiet)
output <- find_vignette_product(name, by = "texi2pdf",
engine = engine)
}
outputs <- c(outputs, output)
}, error = function(e) {
thisOK <<- FALSE
fails <<- c(fails, file)
message(gettextf("Error: processing vignette '%s' failed with diagnostics:\n%s",
file, conditionMessage(e)))
})
where 23: tools:::buildVignettes(dir = "/data/gannet/ripley/R/packages/tests-devel/StatDA.Rcheck/vign_test/StatDA",
ser_elibs = "/tmp/RtmpAtJWPY/filea3bf35721538.rds")
--- value of length: 2 type: logical ---
[1] FALSE FALSE
--- function from context ---
function (a, x, y, len = 1, lh = 1, leg = NULL, ...)
{
points = matrix(0, nrow = 4, ncol = 2)
if (a@LR == 0) {
points[1, 1] = x
points[1, 2] = y
points[2, 1] = points[1, 1] - lh * len * a@h * sin(a@w *
2 * pi/360)
points[2, 2] = points[1, 2] + lh * len * a@h * cos(a@w *
2 * pi/360)
points[3, 1] = points[2, 1] + len * length(a@El)
points[3, 2] = points[2, 2]
points[4, 1] = points[1, 1] + len * length(a@El)
points[4, 2] = points[1, 2]
polygon(points)
if ((class(leg) != "NULL") & length(a@El) == 1) {
text(xy.coords(points[2, 1], points[2, 2]), colnames(leg)[a@El],
cex = 0.8, adj = c(0.3, -0.2))
}
}
if (a@LR == 1) {
points[1, 1] = x
points[1, 2] = y
points[2, 1] = points[1, 1] + lh * len * a@h * sin(a@w *
2 * pi/360)
points[2, 2] = points[1, 2] + lh * len * a@h * cos(a@w *
2 * pi/360)
points[3, 1] = points[2, 1] + len * length(a@El)
points[3, 2] = points[2, 2]
points[4, 1] = points[1, 1] + len * length(a@El)
points[4, 2] = points[1, 2]
polygon(points)
if ((class(leg) != "NULL") & length(a@El) == 1) {
text(xy.coords(points[2, 1], points[2, 2]), colnames(leg)[a@El],
cex = 0.8, adj = c(0, -0.2))
}
}
if (class(a@LeafL) != "NULL") {
if (a@LR == 0)
plot(a@LeafL, x - lh * len * a@h * sin(a@w * 2 *
pi/360), y + lh * len * a@h * cos(a@w * 2 * pi/360),
len, lh, leg)
if (a@LR == 1)
plot(a@LeafL, x + lh * len * a@h * sin(a@w * 2 *
pi/360), y + lh * len * a@h * cos(a@w * 2 * pi/360),
len, lh, leg)
}
if (class(a@LeafR) != "NULL") {
if (a@LR == 0)
plot(a@LeafR, x - lh * len * a@h * sin(a@w * 2 *
pi/360) + len * length(a@LeafL@El), y + lh *
len * a@h * cos(a@w * 2 * pi/360), len, lh, leg)
if (a@LR == 1)
plot(a@LeafR, x + lh * len * a@h * sin(a@w * 2 *
pi/360) + len * length(a@LeafL@El), y + lh *
len * a@h * cos(a@w * 2 * pi/360), len, lh, leg)
}
}
<bytecode: 0x132465e8>
<environment: namespace:StatDA>
--- function search by body ---
----------- END OF FAILURE REPORT --------------
Error: processing vignette 'StatDA.Rnw' failed with diagnostics:
chunk 30 (label = fig14plot)
Error in if ((class(leg) != "NULL") & length(a@El) == 1) { :
the condition has length > 1
--- failed re-building ‘StatDA.Rnw’
SUMMARY: processing the following file failed:
‘StatDA.Rnw’
Error: Vignette re-building failed.
Execution halted
Flavor: r-devel-linux-x86_64-fedora-gcc
Version: 1.7
Check: whether package can be installed
Result: WARN
Found the following significant warnings:
Warning: 'rgl_init' failed, running with rgl.useNULL = TRUE
Flavor: r-release-osx-x86_64