Last updated on 2020-03-07 11:48:26 CET.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 0.1.3 | 69.49 | 43.29 | 112.78 | ERROR | |
| r-devel-linux-x86_64-debian-gcc | 0.1.3 | 45.71 | 34.42 | 80.13 | ERROR | |
| r-devel-linux-x86_64-fedora-clang | 0.1.3 | 156.03 | ERROR | |||
| r-devel-linux-x86_64-fedora-gcc | 0.1.3 | 145.21 | ERROR | |||
| r-devel-windows-ix86+x86_64 | 0.1.3 | 167.00 | 153.00 | 320.00 | NOTE | |
| r-devel-windows-ix86+x86_64-gcc8 | 0.1.3 | 145.00 | 169.00 | 314.00 | NOTE | |
| r-patched-linux-x86_64 | 0.1.3 | 54.01 | 86.16 | 140.17 | NOTE | |
| r-patched-solaris-x86 | 0.1.3 | 277.00 | NOTE | |||
| r-release-linux-x86_64 | 0.1.3 | 52.07 | 84.19 | 136.26 | NOTE | |
| r-release-windows-ix86+x86_64 | 0.1.3 | 118.00 | 137.00 | 255.00 | NOTE | |
| r-release-osx-x86_64 | 0.1.3 | NOTE | ||||
| r-oldrel-windows-ix86+x86_64 | 0.1.3 | 96.00 | 134.00 | 230.00 | NOTE | |
| r-oldrel-osx-x86_64 | 0.1.3 | NOTE |
Version: 0.1.3
Check: DESCRIPTION meta-information
Result: NOTE
Malformed Description field: should contain one or more complete sentences.
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-devel-windows-ix86+x86_64, r-devel-windows-ix86+x86_64-gcc8, r-patched-linux-x86_64, r-patched-solaris-x86, r-release-linux-x86_64, r-release-windows-ix86+x86_64, r-release-osx-x86_64, r-oldrel-windows-ix86+x86_64, r-oldrel-osx-x86_64
Version: 0.1.3
Check: R code for possible problems
Result: NOTE
Cul: no visible global function definition for 'qf'
blockScale: no visible binding for global variable 'sd'
cochranTest: no visible global function definition for 'prcomp'
cochranTest: no visible binding for global variable 'var'
cochranTest: no visible global function definition for 'matplot'
cochranTest: no visible global function definition for 'legend'
continuumRemoval : crfun: no visible global function definition for
'chull'
continuumRemoval : crfun: no visible global function definition for
'approx'
continuumRemoval : crfun: no visible global function definition for
'splinefun'
detrend: no visible binding for global variable 'sd'
duplex: no visible global function definition for 'prcomp'
e2m: no visible global function definition for 'cov'
kenStone: no visible global function definition for 'prcomp'
naes: no visible global function definition for 'prcomp'
naes: no visible global function definition for 'kmeans'
puchwein: no visible global function definition for 'prcomp'
readASD: no visible global function definition for 'read.table'
resample : resfun: no visible global function definition for 'approx'
resample : resfun: no visible global function definition for
'splinefun'
shenkWest: no visible global function definition for 'prcomp'
spliceCorrection : extrapfun: no visible global function definition for
'lm'
standardNormalVariate: no visible binding for global variable 'sd'
Undefined global functions or variables:
approx chull cov kmeans legend lm matplot prcomp qf read.table sd
splinefun var
Consider adding
importFrom("grDevices", "chull")
importFrom("graphics", "legend", "matplot")
importFrom("stats", "approx", "cov", "kmeans", "lm", "prcomp", "qf",
"sd", "splinefun", "var")
importFrom("utils", "read.table")
to your NAMESPACE file.
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-devel-windows-ix86+x86_64, r-devel-windows-ix86+x86_64-gcc8, r-patched-linux-x86_64, r-patched-solaris-x86, r-release-linux-x86_64, r-release-windows-ix86+x86_64, r-release-osx-x86_64, r-oldrel-windows-ix86+x86_64, r-oldrel-osx-x86_64
Version: 0.1.3
Check: examples
Result: ERROR
Running examples in 'prospectr-Ex.R' failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: blockNorm
> ### Title: Sum of squares block weighting
> ### Aliases: blockNorm
>
> ### ** Examples
>
> X <- matrix(rnorm(100),ncol=10)
> # Block normalize to sum of square = 1
> res <- blockNorm(X,1)
----------- FAILURE REPORT --------------
--- failure: the condition has length > 1 ---
--- srcref ---
:
--- package (from environment) ---
prospectr
--- call from context ---
blockNorm(X, 1)
--- call from argument ---
if (!class(X) %in% c("matrix", "data.frame")) stop("X should be a matrix or data.frame")
--- R stacktrace ---
where 1: blockNorm(X, 1)
--- value of length: 2 type: logical ---
[1] FALSE TRUE
--- function from context ---
function (X, targetnorm = 1)
{
if (!class(X) %in% c("matrix", "data.frame"))
stop("X should be a matrix or data.frame")
if (is.data.frame(X))
X <- as.matrix(X)
if (targetnorm == 1) {
f <- sum(X^2, na.rm = T)^0.5
}
else {
fmax <- sum(X^2, na.rm = T)
fmaxn <- sum((X/fmax)^2, na.rm = T)
if (fmaxn > targetnorm) {
fmin <- fmax
fminn <- fmaxn
while (fminn > targetnorm) {
fmin <- fmin * 10
fminn <- sum((X/fmin)^2, na.rm = T)
}
}
else {
fmin <- fmax
fminn <- fmaxn
while (fmaxn < targetnorm) {
fmax <- fmax/10
fmaxn <- sum((X/fmax)^2, na.rm = T)
}
}
n <- fmaxn
while ((targetnorm - n)^2 > 1e-12) {
f <- (fmin + fmax)/2
n <- sum((X/f)^2, na.rm = T)
if (n > targetnorm)
fmax <- f
else fmin <- f
}
}
Xn <- X/f
list(Xscaled = Xn, f = f)
}
<bytecode: 0x2e17da8>
<environment: namespace:prospectr>
--- function search by body ---
Function blockNorm in namespace prospectr has this body.
----------- END OF FAILURE REPORT --------------
Error in if (!class(X) %in% c("matrix", "data.frame")) stop("X should be a matrix or data.frame") :
the condition has length > 1
Calls: blockNorm
Execution halted
Flavor: r-devel-linux-x86_64-debian-clang
Version: 0.1.3
Check: re-building of vignette outputs
Result: WARN
Error(s) in re-building vignettes:
...
--- re-building 'prospectr-intro.Rnw' using knitr
Loading required package: RcppArmadillo
----------- FAILURE REPORT --------------
--- failure: the condition has length > 1 ---
--- srcref ---
:
--- package (from environment) ---
prospectr
--- call from context ---
standardNormalVariate(X = NIRsoil$spc)
--- call from argument ---
if (!class(X) %in% c("matrix", "data.frame")) stop("X should be a matrix or data.frame")
--- R stacktrace ---
where 1: standardNormalVariate(X = NIRsoil$spc)
where 2: eval(expr, envir, enclos)
where 3: eval(expr, envir, enclos)
where 4: withVisible(eval(expr, envir, enclos))
where 5: withCallingHandlers(withVisible(eval(expr, envir, enclos)), warning = wHandler,
error = eHandler, message = mHandler)
where 6: handle(ev <- withCallingHandlers(withVisible(eval(expr, envir,
enclos)), warning = wHandler, error = eHandler, message = mHandler))
where 7: timing_fn(handle(ev <- withCallingHandlers(withVisible(eval(expr,
envir, enclos)), warning = wHandler, error = eHandler, message = mHandler)))
where 8: evaluate_call(expr, parsed$src[[i]], envir = envir, enclos = enclos,
debug = debug, last = i == length(out), use_try = stop_on_error !=
2L, keep_warning = keep_warning, keep_message = keep_message,
output_handler = output_handler, include_timing = include_timing)
where 9: evaluate::evaluate(...)
where 10: evaluate(code, envir = env, new_device = FALSE, keep_warning = !isFALSE(options$warning),
keep_message = !isFALSE(options$message), stop_on_error = if (options$error &&
options$include) 0L else 2L, output_handler = knit_handlers(options$render,
options))
where 11: in_dir(input_dir(), evaluate(code, envir = env, new_device = FALSE,
keep_warning = !isFALSE(options$warning), keep_message = !isFALSE(options$message),
stop_on_error = if (options$error && options$include) 0L else 2L,
output_handler = knit_handlers(options$render, options)))
where 12: block_exec(params)
where 13: call_block(x)
where 14: process_group.block(group)
where 15: process_group(group)
where 16: withCallingHandlers(if (tangle) process_tangle(group) else process_group(group),
error = function(e) {
setwd(wd)
cat(res, sep = "\n", file = output %n% "")
message("Quitting from lines ", paste(current_lines(i),
collapse = "-"), " (", knit_concord$get("infile"),
") ")
})
where 17: process_file(text, output)
where 18: (if (grepl("\\.[Rr]md$", file)) knit2html_v1 else if (grepl("\\.[Rr]rst$",
file)) knit2pandoc else knit)(file, encoding = encoding,
quiet = quiet, envir = globalenv(), ...)
where 19: engine$weave(file, quiet = quiet, encoding = enc)
where 20: doTryCatch(return(expr), name, parentenv, handler)
where 21: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 22: tryCatchList(expr, classes, parentenv, handlers)
where 23: 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 24: tools:::buildVignettes(dir = "/home/hornik/tmp/R.check/r-devel-clang/Work/PKGS/prospectr.Rcheck/vign_test/prospectr",
ser_elibs = "/tmp/Rtmps9zmMy/file6c8b49904578.rds")
--- value of length: 2 type: logical ---
[1] FALSE TRUE
--- function from context ---
function (X)
{
if (!class(X) %in% c("matrix", "data.frame"))
stop("X should be a matrix or data.frame")
X <- sweep(X, 1, rowMeans(X, na.rm = T), "-")
X <- sweep(X, 1, apply(X, 1, sd, na.rm = T), "/")
return(X)
}
<bytecode: 0x6c2eda0>
<environment: namespace:prospectr>
--- function search by body ---
Function standardNormalVariate in namespace prospectr has this body.
----------- END OF FAILURE REPORT --------------
Quitting from lines 250-251 (prospectr-intro.Rnw)
Error: processing vignette 'prospectr-intro.Rnw' failed with diagnostics:
the condition has length > 1
--- failed re-building 'prospectr-intro.Rnw'
SUMMARY: processing the following file failed:
'prospectr-intro.Rnw'
Error: Vignette re-building failed.
Execution halted
Flavor: r-devel-linux-x86_64-debian-clang
Version: 0.1.3
Check: examples
Result: ERROR
Running examples in ‘prospectr-Ex.R’ failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: blockNorm
> ### Title: Sum of squares block weighting
> ### Aliases: blockNorm
>
> ### ** Examples
>
> X <- matrix(rnorm(100),ncol=10)
> # Block normalize to sum of square = 1
> res <- blockNorm(X,1)
----------- FAILURE REPORT --------------
--- failure: the condition has length > 1 ---
--- srcref ---
:
--- package (from environment) ---
prospectr
--- call from context ---
blockNorm(X, 1)
--- call from argument ---
if (!class(X) %in% c("matrix", "data.frame")) stop("X should be a matrix or data.frame")
--- R stacktrace ---
where 1: blockNorm(X, 1)
--- value of length: 2 type: logical ---
[1] FALSE TRUE
--- function from context ---
function (X, targetnorm = 1)
{
if (!class(X) %in% c("matrix", "data.frame"))
stop("X should be a matrix or data.frame")
if (is.data.frame(X))
X <- as.matrix(X)
if (targetnorm == 1) {
f <- sum(X^2, na.rm = T)^0.5
}
else {
fmax <- sum(X^2, na.rm = T)
fmaxn <- sum((X/fmax)^2, na.rm = T)
if (fmaxn > targetnorm) {
fmin <- fmax
fminn <- fmaxn
while (fminn > targetnorm) {
fmin <- fmin * 10
fminn <- sum((X/fmin)^2, na.rm = T)
}
}
else {
fmin <- fmax
fminn <- fmaxn
while (fmaxn < targetnorm) {
fmax <- fmax/10
fmaxn <- sum((X/fmax)^2, na.rm = T)
}
}
n <- fmaxn
while ((targetnorm - n)^2 > 1e-12) {
f <- (fmin + fmax)/2
n <- sum((X/f)^2, na.rm = T)
if (n > targetnorm)
fmax <- f
else fmin <- f
}
}
Xn <- X/f
list(Xscaled = Xn, f = f)
}
<bytecode: 0x563c16799070>
<environment: namespace:prospectr>
--- function search by body ---
Function blockNorm in namespace prospectr has this body.
----------- END OF FAILURE REPORT --------------
Error in if (!class(X) %in% c("matrix", "data.frame")) stop("X should be a matrix or data.frame") :
the condition has length > 1
Calls: blockNorm
Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 0.1.3
Check: re-building of vignette outputs
Result: WARN
Error(s) in re-building vignettes:
...
--- re-building ‘prospectr-intro.Rnw’ using knitr
Loading required package: RcppArmadillo
----------- FAILURE REPORT --------------
--- failure: the condition has length > 1 ---
--- srcref ---
:
--- package (from environment) ---
prospectr
--- call from context ---
standardNormalVariate(X = NIRsoil$spc)
--- call from argument ---
if (!class(X) %in% c("matrix", "data.frame")) stop("X should be a matrix or data.frame")
--- R stacktrace ---
where 1: standardNormalVariate(X = NIRsoil$spc)
where 2: eval(expr, envir, enclos)
where 3: eval(expr, envir, enclos)
where 4: withVisible(eval(expr, envir, enclos))
where 5: withCallingHandlers(withVisible(eval(expr, envir, enclos)), warning = wHandler,
error = eHandler, message = mHandler)
where 6: handle(ev <- withCallingHandlers(withVisible(eval(expr, envir,
enclos)), warning = wHandler, error = eHandler, message = mHandler))
where 7: timing_fn(handle(ev <- withCallingHandlers(withVisible(eval(expr,
envir, enclos)), warning = wHandler, error = eHandler, message = mHandler)))
where 8: evaluate_call(expr, parsed$src[[i]], envir = envir, enclos = enclos,
debug = debug, last = i == length(out), use_try = stop_on_error !=
2L, keep_warning = keep_warning, keep_message = keep_message,
output_handler = output_handler, include_timing = include_timing)
where 9: evaluate::evaluate(...)
where 10: evaluate(code, envir = env, new_device = FALSE, keep_warning = !isFALSE(options$warning),
keep_message = !isFALSE(options$message), stop_on_error = if (options$error &&
options$include) 0L else 2L, output_handler = knit_handlers(options$render,
options))
where 11: in_dir(input_dir(), evaluate(code, envir = env, new_device = FALSE,
keep_warning = !isFALSE(options$warning), keep_message = !isFALSE(options$message),
stop_on_error = if (options$error && options$include) 0L else 2L,
output_handler = knit_handlers(options$render, options)))
where 12: block_exec(params)
where 13: call_block(x)
where 14: process_group.block(group)
where 15: process_group(group)
where 16: withCallingHandlers(if (tangle) process_tangle(group) else process_group(group),
error = function(e) {
setwd(wd)
cat(res, sep = "\n", file = output %n% "")
message("Quitting from lines ", paste(current_lines(i),
collapse = "-"), " (", knit_concord$get("infile"),
") ")
})
where 17: process_file(text, output)
where 18: (if (grepl("\\.[Rr]md$", file)) knit2html_v1 else if (grepl("\\.[Rr]rst$",
file)) knit2pandoc else knit)(file, encoding = encoding,
quiet = quiet, envir = globalenv(), ...)
where 19: engine$weave(file, quiet = quiet, encoding = enc)
where 20: doTryCatch(return(expr), name, parentenv, handler)
where 21: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 22: tryCatchList(expr, classes, parentenv, handlers)
where 23: 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 24: tools:::buildVignettes(dir = "/home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/prospectr.Rcheck/vign_test/prospectr",
ser_elibs = "/home/hornik/tmp/scratch/RtmpFjqKbl/file206602a7b80.rds")
--- value of length: 2 type: logical ---
[1] FALSE TRUE
--- function from context ---
function (X)
{
if (!class(X) %in% c("matrix", "data.frame"))
stop("X should be a matrix or data.frame")
X <- sweep(X, 1, rowMeans(X, na.rm = T), "-")
X <- sweep(X, 1, apply(X, 1, sd, na.rm = T), "/")
return(X)
}
<bytecode: 0x557e2bedd720>
<environment: namespace:prospectr>
--- function search by body ---
Function standardNormalVariate in namespace prospectr has this body.
----------- END OF FAILURE REPORT --------------
Quitting from lines 250-251 (prospectr-intro.Rnw)
Error: processing vignette 'prospectr-intro.Rnw' failed with diagnostics:
the condition has length > 1
--- failed re-building ‘prospectr-intro.Rnw’
SUMMARY: processing the following file failed:
‘prospectr-intro.Rnw’
Error: Vignette re-building failed.
Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 0.1.3
Check: installed package size
Result: NOTE
installed size is 5.4Mb
sub-directories of 1Mb or more:
data 1.9Mb
libs 2.9Mb
Flavors: r-devel-linux-x86_64-fedora-clang, r-release-osx-x86_64
Version: 0.1.3
Check: compiled code
Result: NOTE
File ‘prospectr/libs/prospectr.so’:
Found no calls to: ‘R_registerRoutines’, ‘R_useDynamicSymbols’
It is good practice to register native routines and to disable symbol
search.
See ‘Writing portable packages’ in the ‘Writing R Extensions’ manual.
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc
Version: 0.1.3
Check: examples
Result: ERROR
Running examples in ‘prospectr-Ex.R’ failed
The error most likely occurred in:
> ### Name: blockNorm
> ### Title: Sum of squares block weighting
> ### Aliases: blockNorm
>
> ### ** Examples
>
> X <- matrix(rnorm(100),ncol=10)
> # Block normalize to sum of square = 1
> res <- blockNorm(X,1)
----------- FAILURE REPORT --------------
--- failure: the condition has length > 1 ---
--- srcref ---
:
--- package (from environment) ---
prospectr
--- call from context ---
blockNorm(X, 1)
--- call from argument ---
if (!class(X) %in% c("matrix", "data.frame")) stop("X should be a matrix or data.frame")
--- R stacktrace ---
where 1: blockNorm(X, 1)
--- value of length: 2 type: logical ---
[1] FALSE TRUE
--- function from context ---
function (X, targetnorm = 1)
{
if (!class(X) %in% c("matrix", "data.frame"))
stop("X should be a matrix or data.frame")
if (is.data.frame(X))
X <- as.matrix(X)
if (targetnorm == 1) {
f <- sum(X^2, na.rm = T)^0.5
}
else {
fmax <- sum(X^2, na.rm = T)
fmaxn <- sum((X/fmax)^2, na.rm = T)
if (fmaxn > targetnorm) {
fmin <- fmax
fminn <- fmaxn
while (fminn > targetnorm) {
fmin <- fmin * 10
fminn <- sum((X/fmin)^2, na.rm = T)
}
}
else {
fmin <- fmax
fminn <- fmaxn
while (fmaxn < targetnorm) {
fmax <- fmax/10
fmaxn <- sum((X/fmax)^2, na.rm = T)
}
}
n <- fmaxn
while ((targetnorm - n)^2 > 1e-12) {
f <- (fmin + fmax)/2
n <- sum((X/f)^2, na.rm = T)
if (n > targetnorm)
fmax <- f
else fmin <- f
}
}
Xn <- X/f
list(Xscaled = Xn, f = f)
}
<bytecode: 0x2e9c400>
<environment: namespace:prospectr>
--- function search by body ---
Function blockNorm in namespace prospectr has this body.
----------- END OF FAILURE REPORT --------------
Error in if (!class(X) %in% c("matrix", "data.frame")) stop("X should be a matrix or data.frame") :
the condition has length > 1
Calls: blockNorm
Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang
Version: 0.1.3
Check: re-building of vignette outputs
Result: WARN
Error(s) in re-building vignettes:
--- re-building ‘prospectr-intro.Rnw’ using knitr
Loading required package: RcppArmadillo
----------- FAILURE REPORT --------------
--- failure: the condition has length > 1 ---
--- srcref ---
:
--- package (from environment) ---
prospectr
--- call from context ---
standardNormalVariate(X = NIRsoil$spc)
--- call from argument ---
if (!class(X) %in% c("matrix", "data.frame")) stop("X should be a matrix or data.frame")
--- R stacktrace ---
where 1: standardNormalVariate(X = NIRsoil$spc)
where 2: eval(expr, envir, enclos)
where 3: eval(expr, envir, enclos)
where 4: withVisible(eval(expr, envir, enclos))
where 5: withCallingHandlers(withVisible(eval(expr, envir, enclos)), warning = wHandler,
error = eHandler, message = mHandler)
where 6: handle(ev <- withCallingHandlers(withVisible(eval(expr, envir,
enclos)), warning = wHandler, error = eHandler, message = mHandler))
where 7: timing_fn(handle(ev <- withCallingHandlers(withVisible(eval(expr,
envir, enclos)), warning = wHandler, error = eHandler, message = mHandler)))
where 8: evaluate_call(expr, parsed$src[[i]], envir = envir, enclos = enclos,
debug = debug, last = i == length(out), use_try = stop_on_error !=
2L, keep_warning = keep_warning, keep_message = keep_message,
output_handler = output_handler, include_timing = include_timing)
where 9: evaluate::evaluate(...)
where 10: evaluate(code, envir = env, new_device = FALSE, keep_warning = !isFALSE(options$warning),
keep_message = !isFALSE(options$message), stop_on_error = if (options$error &&
options$include) 0L else 2L, output_handler = knit_handlers(options$render,
options))
where 11: in_dir(input_dir(), evaluate(code, envir = env, new_device = FALSE,
keep_warning = !isFALSE(options$warning), keep_message = !isFALSE(options$message),
stop_on_error = if (options$error && options$include) 0L else 2L,
output_handler = knit_handlers(options$render, options)))
where 12: block_exec(params)
where 13: call_block(x)
where 14: process_group.block(group)
where 15: process_group(group)
where 16: withCallingHandlers(if (tangle) process_tangle(group) else process_group(group),
error = function(e) {
setwd(wd)
cat(res, sep = "\n", file = output %n% "")
message("Quitting from lines ", paste(current_lines(i),
collapse = "-"), " (", knit_concord$get("infile"),
") ")
})
where 17: process_file(text, output)
where 18: (if (grepl("\\.[Rr]md$", file)) knit2html_v1 else if (grepl("\\.[Rr]rst$",
file)) knit2pandoc else knit)(file, encoding = encoding,
quiet = quiet, envir = globalenv(), ...)
where 19: engine$weave(file, quiet = quiet, encoding = enc)
where 20: doTryCatch(return(expr), name, parentenv, handler)
where 21: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 22: tryCatchList(expr, classes, parentenv, handlers)
where 23: 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 24: tools:::buildVignettes(dir = "/data/gannet/ripley/R/packages/tests-clang/prospectr.Rcheck/vign_test/prospectr",
ser_elibs = "/tmp/RtmpI7S2dH/file4de71b2ce49c.rds")
--- value of length: 2 type: logical ---
[1] FALSE TRUE
--- function from context ---
function (X)
{
if (!class(X) %in% c("matrix", "data.frame"))
stop("X should be a matrix or data.frame")
X <- sweep(X, 1, rowMeans(X, na.rm = T), "-")
X <- sweep(X, 1, apply(X, 1, sd, na.rm = T), "/")
return(X)
}
<bytecode: 0x655dc48>
<environment: namespace:prospectr>
--- function search by body ---
Function standardNormalVariate in namespace prospectr has this body.
----------- END OF FAILURE REPORT --------------
Quitting from lines 250-251 (prospectr-intro.Rnw)
Error: processing vignette 'prospectr-intro.Rnw' failed with diagnostics:
the condition has length > 1
--- failed re-building ‘prospectr-intro.Rnw’
SUMMARY: processing the following file failed:
‘prospectr-intro.Rnw’
Error: Vignette re-building failed.
Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang
Version: 0.1.3
Check: examples
Result: ERROR
Running examples in ‘prospectr-Ex.R’ failed
The error most likely occurred in:
> ### Name: blockNorm
> ### Title: Sum of squares block weighting
> ### Aliases: blockNorm
>
> ### ** Examples
>
> X <- matrix(rnorm(100),ncol=10)
> # Block normalize to sum of square = 1
> res <- blockNorm(X,1)
----------- FAILURE REPORT --------------
--- failure: the condition has length > 1 ---
--- srcref ---
:
--- package (from environment) ---
prospectr
--- call from context ---
blockNorm(X, 1)
--- call from argument ---
if (!class(X) %in% c("matrix", "data.frame")) stop("X should be a matrix or data.frame")
--- R stacktrace ---
where 1: blockNorm(X, 1)
--- value of length: 2 type: logical ---
[1] FALSE TRUE
--- function from context ---
function (X, targetnorm = 1)
{
if (!class(X) %in% c("matrix", "data.frame"))
stop("X should be a matrix or data.frame")
if (is.data.frame(X))
X <- as.matrix(X)
if (targetnorm == 1) {
f <- sum(X^2, na.rm = T)^0.5
}
else {
fmax <- sum(X^2, na.rm = T)
fmaxn <- sum((X/fmax)^2, na.rm = T)
if (fmaxn > targetnorm) {
fmin <- fmax
fminn <- fmaxn
while (fminn > targetnorm) {
fmin <- fmin * 10
fminn <- sum((X/fmin)^2, na.rm = T)
}
}
else {
fmin <- fmax
fminn <- fmaxn
while (fmaxn < targetnorm) {
fmax <- fmax/10
fmaxn <- sum((X/fmax)^2, na.rm = T)
}
}
n <- fmaxn
while ((targetnorm - n)^2 > 1e-12) {
f <- (fmin + fmax)/2
n <- sum((X/f)^2, na.rm = T)
if (n > targetnorm)
fmax <- f
else fmin <- f
}
}
Xn <- X/f
list(Xscaled = Xn, f = f)
}
<bytecode: 0x3de6ea0>
<environment: namespace:prospectr>
--- function search by body ---
Function blockNorm in namespace prospectr has this body.
----------- END OF FAILURE REPORT --------------
Error in if (!class(X) %in% c("matrix", "data.frame")) stop("X should be a matrix or data.frame") :
the condition has length > 1
Calls: blockNorm
Execution halted
Flavor: r-devel-linux-x86_64-fedora-gcc
Version: 0.1.3
Check: re-building of vignette outputs
Result: WARN
Error(s) in re-building vignettes:
--- re-building ‘prospectr-intro.Rnw’ using knitr
Loading required package: RcppArmadillo
----------- FAILURE REPORT --------------
--- failure: the condition has length > 1 ---
--- srcref ---
:
--- package (from environment) ---
prospectr
--- call from context ---
standardNormalVariate(X = NIRsoil$spc)
--- call from argument ---
if (!class(X) %in% c("matrix", "data.frame")) stop("X should be a matrix or data.frame")
--- R stacktrace ---
where 1: standardNormalVariate(X = NIRsoil$spc)
where 2: eval(expr, envir, enclos)
where 3: eval(expr, envir, enclos)
where 4: withVisible(eval(expr, envir, enclos))
where 5: withCallingHandlers(withVisible(eval(expr, envir, enclos)), warning = wHandler,
error = eHandler, message = mHandler)
where 6: handle(ev <- withCallingHandlers(withVisible(eval(expr, envir,
enclos)), warning = wHandler, error = eHandler, message = mHandler))
where 7: timing_fn(handle(ev <- withCallingHandlers(withVisible(eval(expr,
envir, enclos)), warning = wHandler, error = eHandler, message = mHandler)))
where 8: evaluate_call(expr, parsed$src[[i]], envir = envir, enclos = enclos,
debug = debug, last = i == length(out), use_try = stop_on_error !=
2L, keep_warning = keep_warning, keep_message = keep_message,
output_handler = output_handler, include_timing = include_timing)
where 9: evaluate::evaluate(...)
where 10: evaluate(code, envir = env, new_device = FALSE, keep_warning = !isFALSE(options$warning),
keep_message = !isFALSE(options$message), stop_on_error = if (options$error &&
options$include) 0L else 2L, output_handler = knit_handlers(options$render,
options))
where 11: in_dir(input_dir(), evaluate(code, envir = env, new_device = FALSE,
keep_warning = !isFALSE(options$warning), keep_message = !isFALSE(options$message),
stop_on_error = if (options$error && options$include) 0L else 2L,
output_handler = knit_handlers(options$render, options)))
where 12: block_exec(params)
where 13: call_block(x)
where 14: process_group.block(group)
where 15: process_group(group)
where 16: withCallingHandlers(if (tangle) process_tangle(group) else process_group(group),
error = function(e) {
setwd(wd)
cat(res, sep = "\n", file = output %n% "")
message("Quitting from lines ", paste(current_lines(i),
collapse = "-"), " (", knit_concord$get("infile"),
") ")
})
where 17: process_file(text, output)
where 18: (if (grepl("\\.[Rr]md$", file)) knit2html_v1 else if (grepl("\\.[Rr]rst$",
file)) knit2pandoc else knit)(file, encoding = encoding,
quiet = quiet, envir = globalenv(), ...)
where 19: engine$weave(file, quiet = quiet, encoding = enc)
where 20: doTryCatch(return(expr), name, parentenv, handler)
where 21: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 22: tryCatchList(expr, classes, parentenv, handlers)
where 23: 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 24: tools:::buildVignettes(dir = "/data/gannet/ripley/R/packages/tests-devel/prospectr.Rcheck/vign_test/prospectr",
ser_elibs = "/tmp/Rtmp41drLE/file62bc44d9268a.rds")
--- value of length: 2 type: logical ---
[1] FALSE TRUE
--- function from context ---
function (X)
{
if (!class(X) %in% c("matrix", "data.frame"))
stop("X should be a matrix or data.frame")
X <- sweep(X, 1, rowMeans(X, na.rm = T), "-")
X <- sweep(X, 1, apply(X, 1, sd, na.rm = T), "/")
return(X)
}
<bytecode: 0x601f758>
<environment: namespace:prospectr>
--- function search by body ---
Function standardNormalVariate in namespace prospectr has this body.
----------- END OF FAILURE REPORT --------------
Quitting from lines 250-251 (prospectr-intro.Rnw)
Error: processing vignette 'prospectr-intro.Rnw' failed with diagnostics:
the condition has length > 1
--- failed re-building ‘prospectr-intro.Rnw’
SUMMARY: processing the following file failed:
‘prospectr-intro.Rnw’
Error: Vignette re-building failed.
Execution halted
Flavor: r-devel-linux-x86_64-fedora-gcc