Last updated on 2020-02-19 10:49:10 CET.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 0.2.2 | 12.46 | 111.20 | 123.66 | ERROR | |
| r-devel-linux-x86_64-debian-gcc | 0.2.2 | 11.89 | 85.45 | 97.34 | ERROR | |
| r-devel-linux-x86_64-fedora-clang | 0.2.2 | 152.13 | ERROR | |||
| r-devel-linux-x86_64-fedora-gcc | 0.2.2 | 146.77 | ERROR | |||
| r-devel-windows-ix86+x86_64 | 0.2.2 | 23.00 | 219.00 | 242.00 | OK | |
| r-devel-windows-ix86+x86_64-gcc8 | 0.2.2 | 36.00 | 215.00 | 251.00 | OK | |
| r-patched-linux-x86_64 | 0.2.2 | 10.34 | 129.54 | 139.88 | OK | |
| r-patched-solaris-x86 | 0.2.2 | 385.10 | OK | |||
| r-release-linux-x86_64 | 0.2.2 | 12.88 | 129.55 | 142.43 | OK | |
| r-release-windows-ix86+x86_64 | 0.2.2 | 21.00 | 202.00 | 223.00 | OK | |
| r-release-osx-x86_64 | 0.2.2 | OK | ||||
| r-oldrel-windows-ix86+x86_64 | 0.2.2 | 14.00 | 188.00 | 202.00 | OK | |
| r-oldrel-osx-x86_64 | 0.2.2 | OK |
Version: 0.2.2
Check: examples
Result: ERROR
Running examples in 'skyscapeR-Ex.R' failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: reduct.compass
> ### Title: Data reduction for compass measurements
> ### Aliases: reduct.compass
>
> ### ** Examples
>
> loc <- c(35,-7)
> mag.az <- c(89.5, 105, 109.5)
> data <- reduct.compass(loc, mag.az, "2016/04/02")
----------- FAILURE REPORT --------------
--- failure: the condition has length > 1 ---
--- srcref ---
:
--- package (from environment) ---
skyscapeR
--- call from context ---
mag.dec(loc, date)
--- call from argument ---
if (class(loc) == "skyscapeR.horizon") {
loc <- loc$georef
}
--- R stacktrace ---
where 1: mag.dec(loc, date)
where 2: reduct.compass(loc, mag.az, "2016/04/02")
--- value of length: 2 type: logical ---
[1] FALSE FALSE
--- function from context ---
function (loc, date)
{
if (class(loc) == "skyscapeR.horizon") {
loc <- loc$georef
}
if (is.null(dim(loc))) {
dim(loc) <- c(1, NROW(loc))
}
aux <- oce::magneticField(loc[, 2], loc[, 1], as.POSIXlt(date,
format = "%Y/%m/%d"))$declination
return(aux)
}
<bytecode: 0x6474688>
<environment: namespace:skyscapeR>
--- function search by body ---
Function mag.dec in namespace skyscapeR has this body.
----------- END OF FAILURE REPORT --------------
Error in if (class(loc) == "skyscapeR.horizon") { :
the condition has length > 1
Calls: reduct.compass -> mag.dec
Execution halted
Flavor: r-devel-linux-x86_64-debian-clang
Version: 0.2.2
Check: re-building of vignette outputs
Result: WARN
Error(s) in re-building vignettes:
...
--- re-building 'skyscapeR.Rmd' using knitr
----------- FAILURE REPORT --------------
--- failure: the condition has length > 1 ---
--- srcref ---
:
--- package (from environment) ---
skyscapeR
--- call from context ---
reduct.compass(loc = georef, mag.az = azimuths, date = "2017/06/13",
alt = altitudes)
--- call from argument ---
if (class(loc) == "skyscapeR.horizon") {
hor <- loc
loc <- loc$georef
} else {
hor <- NULL
}
--- R stacktrace ---
where 1: reduct.compass(loc = georef, mag.az = azimuths, date = "2017/06/13",
alt = altitudes)
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: knit(input, text = text, envir = envir, quiet = quiet)
where 19: knit2html(..., force_v1 = TRUE)
where 20: (if (grepl("\\.[Rr]md$", file)) knit2html_v1 else if (grepl("\\.[Rr]rst$",
file)) knit2pandoc else knit)(file, encoding = encoding,
quiet = quiet, envir = globalenv(), ...)
where 21: engine$weave(file, quiet = quiet, encoding = enc)
where 22: doTryCatch(return(expr), name, parentenv, handler)
where 23: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 24: tryCatchList(expr, classes, parentenv, handlers)
where 25: 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 26: tools:::buildVignettes(dir = "/home/hornik/tmp/R.check/r-devel-clang/Work/PKGS/skyscapeR.Rcheck/vign_test/skyscapeR",
ser_elibs = "/tmp/RtmpCZAFpw/file7f286ba051b.rds")
--- value of length: 2 type: logical ---
[1] FALSE FALSE
--- function from context ---
function (loc, mag.az, date, magdec, alt, name, ID, HWT.ID)
{
if (class(loc) == "skyscapeR.horizon") {
hor <- loc
loc <- loc$georef
}
else {
hor <- NULL
}
if (NROW(loc) < NROW(mag.az) * 2) {
loc <- matrix(loc, NROW(mag.az), 2, byrow = T)
}
if (!missing(date) & (NROW(date) < NROW(mag.az))) {
date <- matrix(date, NROW(mag.az), 1, byrow = T)
}
if (!missing(alt)) {
if (NROW(alt) < NROW(mag.az)) {
alt <- matrix(alt, NROW(mag.az), 1, byrow = T)
}
}
if (missing(magdec) & !missing(date)) {
magdec <- mag.dec(loc, date)
}
prec <- max(nchar(sub(".*\\.", "", as.character(mag.az))))
true.az <- round(mag.az + magdec, prec)
df <- c()
if (!missing(ID)) {
df$ID <- ID
}
if (!missing(name)) {
df$Name <- name
}
df$Latitude = loc[, 1]
df$Longitude = loc[, 2]
df$Magnetic.Azimuth = mag.az
df$Date = date
df$Mag.Dec = magdec
df$True.Azimuth = true.az
if (!missing(HWT.ID)) {
df$HWT.ID <- HWT.ID
}
if (!missing(alt)) {
message("Altitude values found. Calculating declination...")
dec <- az2dec(true.az, loc, alt)
df$Altitude = alt
df$Declination <- dec
}
else if (class(hor) == "skyscapeR.horizon") {
message("Horizon profile found. Obtaining altitude values and calculating declination...")
dec <- az2dec(true.az, hor)
df$Altitude <- hor2alt(hor, true.az)
df$Declination <- dec
}
else {
message("No altitude values or horizon profile found. Declination values were not calculated.")
}
df <- as.data.frame(df)
return(df)
}
<bytecode: 0x7b9b678>
<environment: namespace:skyscapeR>
--- function search by body ---
Function reduct.compass in namespace skyscapeR has this body.
----------- END OF FAILURE REPORT --------------
Quitting from lines 103-109 (skyscapeR.Rmd)
Error: processing vignette 'skyscapeR.Rmd' failed with diagnostics:
the condition has length > 1
--- failed re-building 'skyscapeR.Rmd'
SUMMARY: processing the following file failed:
'skyscapeR.Rmd'
Error: Vignette re-building failed.
Execution halted
Flavor: r-devel-linux-x86_64-debian-clang
Version: 0.2.2
Check: for non-standard things in the check directory
Result: NOTE
Found the following files/directories:
'Test-horizon.zip'
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
Version: 0.2.2
Check: examples
Result: ERROR
Running examples in ‘skyscapeR-Ex.R’ failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: reduct.compass
> ### Title: Data reduction for compass measurements
> ### Aliases: reduct.compass
>
> ### ** Examples
>
> loc <- c(35,-7)
> mag.az <- c(89.5, 105, 109.5)
> data <- reduct.compass(loc, mag.az, "2016/04/02")
----------- FAILURE REPORT --------------
--- failure: the condition has length > 1 ---
--- srcref ---
:
--- package (from environment) ---
skyscapeR
--- call from context ---
mag.dec(loc, date)
--- call from argument ---
if (class(loc) == "skyscapeR.horizon") {
loc <- loc$georef
}
--- R stacktrace ---
where 1: mag.dec(loc, date)
where 2: reduct.compass(loc, mag.az, "2016/04/02")
--- value of length: 2 type: logical ---
[1] FALSE FALSE
--- function from context ---
function (loc, date)
{
if (class(loc) == "skyscapeR.horizon") {
loc <- loc$georef
}
if (is.null(dim(loc))) {
dim(loc) <- c(1, NROW(loc))
}
aux <- oce::magneticField(loc[, 2], loc[, 1], as.POSIXlt(date,
format = "%Y/%m/%d"))$declination
return(aux)
}
<bytecode: 0x5582fab3f710>
<environment: namespace:skyscapeR>
--- function search by body ---
Function mag.dec in namespace skyscapeR has this body.
----------- END OF FAILURE REPORT --------------
Error in if (class(loc) == "skyscapeR.horizon") { :
the condition has length > 1
Calls: reduct.compass -> mag.dec
Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 0.2.2
Check: re-building of vignette outputs
Result: WARN
Error(s) in re-building vignettes:
...
--- re-building ‘skyscapeR.Rmd’ using knitr
----------- FAILURE REPORT --------------
--- failure: the condition has length > 1 ---
--- srcref ---
:
--- package (from environment) ---
skyscapeR
--- call from context ---
reduct.compass(loc = georef, mag.az = azimuths, date = "2017/06/13",
alt = altitudes)
--- call from argument ---
if (class(loc) == "skyscapeR.horizon") {
hor <- loc
loc <- loc$georef
} else {
hor <- NULL
}
--- R stacktrace ---
where 1: reduct.compass(loc = georef, mag.az = azimuths, date = "2017/06/13",
alt = altitudes)
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: knit(input, text = text, envir = envir, quiet = quiet)
where 19: knit2html(..., force_v1 = TRUE)
where 20: (if (grepl("\\.[Rr]md$", file)) knit2html_v1 else if (grepl("\\.[Rr]rst$",
file)) knit2pandoc else knit)(file, encoding = encoding,
quiet = quiet, envir = globalenv(), ...)
where 21: engine$weave(file, quiet = quiet, encoding = enc)
where 22: doTryCatch(return(expr), name, parentenv, handler)
where 23: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 24: tryCatchList(expr, classes, parentenv, handlers)
where 25: 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 26: tools:::buildVignettes(dir = "/home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/skyscapeR.Rcheck/vign_test/skyscapeR",
ser_elibs = "/home/hornik/tmp/scratch/Rtmpp5Ubos/file6bc94d6c9063.rds")
--- value of length: 2 type: logical ---
[1] FALSE FALSE
--- function from context ---
function (loc, mag.az, date, magdec, alt, name, ID, HWT.ID)
{
if (class(loc) == "skyscapeR.horizon") {
hor <- loc
loc <- loc$georef
}
else {
hor <- NULL
}
if (NROW(loc) < NROW(mag.az) * 2) {
loc <- matrix(loc, NROW(mag.az), 2, byrow = T)
}
if (!missing(date) & (NROW(date) < NROW(mag.az))) {
date <- matrix(date, NROW(mag.az), 1, byrow = T)
}
if (!missing(alt)) {
if (NROW(alt) < NROW(mag.az)) {
alt <- matrix(alt, NROW(mag.az), 1, byrow = T)
}
}
if (missing(magdec) & !missing(date)) {
magdec <- mag.dec(loc, date)
}
prec <- max(nchar(sub(".*\\.", "", as.character(mag.az))))
true.az <- round(mag.az + magdec, prec)
df <- c()
if (!missing(ID)) {
df$ID <- ID
}
if (!missing(name)) {
df$Name <- name
}
df$Latitude = loc[, 1]
df$Longitude = loc[, 2]
df$Magnetic.Azimuth = mag.az
df$Date = date
df$Mag.Dec = magdec
df$True.Azimuth = true.az
if (!missing(HWT.ID)) {
df$HWT.ID <- HWT.ID
}
if (!missing(alt)) {
message("Altitude values found. Calculating declination...")
dec <- az2dec(true.az, loc, alt)
df$Altitude = alt
df$Declination <- dec
}
else if (class(hor) == "skyscapeR.horizon") {
message("Horizon profile found. Obtaining altitude values and calculating declination...")
dec <- az2dec(true.az, hor)
df$Altitude <- hor2alt(hor, true.az)
df$Declination <- dec
}
else {
message("No altitude values or horizon profile found. Declination values were not calculated.")
}
df <- as.data.frame(df)
return(df)
}
<bytecode: 0x5576365cb888>
<environment: namespace:skyscapeR>
--- function search by body ---
Function reduct.compass in namespace skyscapeR has this body.
----------- END OF FAILURE REPORT --------------
Quitting from lines 103-109 (skyscapeR.Rmd)
Error: processing vignette 'skyscapeR.Rmd' failed with diagnostics:
the condition has length > 1
--- failed re-building ‘skyscapeR.Rmd’
SUMMARY: processing the following file failed:
‘skyscapeR.Rmd’
Error: Vignette re-building failed.
Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 0.2.2
Check: examples
Result: ERROR
Running examples in ‘skyscapeR-Ex.R’ failed
The error most likely occurred in:
> ### Name: reduct.compass
> ### Title: Data reduction for compass measurements
> ### Aliases: reduct.compass
>
> ### ** Examples
>
> loc <- c(35,-7)
> mag.az <- c(89.5, 105, 109.5)
> data <- reduct.compass(loc, mag.az, "2016/04/02")
----------- FAILURE REPORT --------------
--- failure: the condition has length > 1 ---
--- srcref ---
:
--- package (from environment) ---
skyscapeR
--- call from context ---
mag.dec(loc, date)
--- call from argument ---
if (class(loc) == "skyscapeR.horizon") {
loc <- loc$georef
}
--- R stacktrace ---
where 1: mag.dec(loc, date)
where 2: reduct.compass(loc, mag.az, "2016/04/02")
--- value of length: 2 type: logical ---
[1] FALSE FALSE
--- function from context ---
function (loc, date)
{
if (class(loc) == "skyscapeR.horizon") {
loc <- loc$georef
}
if (is.null(dim(loc))) {
dim(loc) <- c(1, NROW(loc))
}
aux <- oce::magneticField(loc[, 2], loc[, 1], as.POSIXlt(date,
format = "%Y/%m/%d"))$declination
return(aux)
}
<bytecode: 0x76746d0>
<environment: namespace:skyscapeR>
--- function search by body ---
Function mag.dec in namespace skyscapeR has this body.
----------- END OF FAILURE REPORT --------------
Error in if (class(loc) == "skyscapeR.horizon") { :
the condition has length > 1
Calls: reduct.compass -> mag.dec
Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang
Version: 0.2.2
Check: re-building of vignette outputs
Result: WARN
Error(s) in re-building vignettes:
--- re-building ‘skyscapeR.Rmd’ using knitr
----------- FAILURE REPORT --------------
--- failure: the condition has length > 1 ---
--- srcref ---
:
--- package (from environment) ---
skyscapeR
--- call from context ---
reduct.compass(loc = georef, mag.az = azimuths, date = "2017/06/13",
alt = altitudes)
--- call from argument ---
if (class(loc) == "skyscapeR.horizon") {
hor <- loc
loc <- loc$georef
} else {
hor <- NULL
}
--- R stacktrace ---
where 1: reduct.compass(loc = georef, mag.az = azimuths, date = "2017/06/13",
alt = altitudes)
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: knit(input, text = text, envir = envir, quiet = quiet)
where 19: knit2html(..., force_v1 = TRUE)
where 20: (if (grepl("\\.[Rr]md$", file)) knit2html_v1 else if (grepl("\\.[Rr]rst$",
file)) knit2pandoc else knit)(file, encoding = encoding,
quiet = quiet, envir = globalenv(), ...)
where 21: engine$weave(file, quiet = quiet, encoding = enc)
where 22: doTryCatch(return(expr), name, parentenv, handler)
where 23: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 24: tryCatchList(expr, classes, parentenv, handlers)
where 25: 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 26: tools:::buildVignettes(dir = "/data/gannet/ripley/R/packages/tests-clang/skyscapeR.Rcheck/vign_test/skyscapeR",
ser_elibs = "/tmp/Rtmp8mRnth/fileaa344d0e8dca.rds")
--- value of length: 2 type: logical ---
[1] FALSE FALSE
--- function from context ---
function (loc, mag.az, date, magdec, alt, name, ID, HWT.ID)
{
if (class(loc) == "skyscapeR.horizon") {
hor <- loc
loc <- loc$georef
}
else {
hor <- NULL
}
if (NROW(loc) < NROW(mag.az) * 2) {
loc <- matrix(loc, NROW(mag.az), 2, byrow = T)
}
if (!missing(date) & (NROW(date) < NROW(mag.az))) {
date <- matrix(date, NROW(mag.az), 1, byrow = T)
}
if (!missing(alt)) {
if (NROW(alt) < NROW(mag.az)) {
alt <- matrix(alt, NROW(mag.az), 1, byrow = T)
}
}
if (missing(magdec) & !missing(date)) {
magdec <- mag.dec(loc, date)
}
prec <- max(nchar(sub(".*\\.", "", as.character(mag.az))))
true.az <- round(mag.az + magdec, prec)
df <- c()
if (!missing(ID)) {
df$ID <- ID
}
if (!missing(name)) {
df$Name <- name
}
df$Latitude = loc[, 1]
df$Longitude = loc[, 2]
df$Magnetic.Azimuth = mag.az
df$Date = date
df$Mag.Dec = magdec
df$True.Azimuth = true.az
if (!missing(HWT.ID)) {
df$HWT.ID <- HWT.ID
}
if (!missing(alt)) {
message("Altitude values found. Calculating declination...")
dec <- az2dec(true.az, loc, alt)
df$Altitude = alt
df$Declination <- dec
}
else if (class(hor) == "skyscapeR.horizon") {
message("Horizon profile found. Obtaining altitude values and calculating declination...")
dec <- az2dec(true.az, hor)
df$Altitude <- hor2alt(hor, true.az)
df$Declination <- dec
}
else {
message("No altitude values or horizon profile found. Declination values were not calculated.")
}
df <- as.data.frame(df)
return(df)
}
<bytecode: 0x7063af8>
<environment: namespace:skyscapeR>
--- function search by body ---
Function reduct.compass in namespace skyscapeR has this body.
----------- END OF FAILURE REPORT --------------
Quitting from lines 103-109 (skyscapeR.Rmd)
Error: processing vignette 'skyscapeR.Rmd' failed with diagnostics:
the condition has length > 1
--- failed re-building ‘skyscapeR.Rmd’
SUMMARY: processing the following file failed:
‘skyscapeR.Rmd’
Error: Vignette re-building failed.
Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang
Version: 0.2.2
Check: examples
Result: ERROR
Running examples in ‘skyscapeR-Ex.R’ failed
The error most likely occurred in:
> ### Name: reduct.compass
> ### Title: Data reduction for compass measurements
> ### Aliases: reduct.compass
>
> ### ** Examples
>
> loc <- c(35,-7)
> mag.az <- c(89.5, 105, 109.5)
> data <- reduct.compass(loc, mag.az, "2016/04/02")
----------- FAILURE REPORT --------------
--- failure: the condition has length > 1 ---
--- srcref ---
:
--- package (from environment) ---
skyscapeR
--- call from context ---
mag.dec(loc, date)
--- call from argument ---
if (class(loc) == "skyscapeR.horizon") {
loc <- loc$georef
}
--- R stacktrace ---
where 1: mag.dec(loc, date)
where 2: reduct.compass(loc, mag.az, "2016/04/02")
--- value of length: 2 type: logical ---
[1] FALSE FALSE
--- function from context ---
function (loc, date)
{
if (class(loc) == "skyscapeR.horizon") {
loc <- loc$georef
}
if (is.null(dim(loc))) {
dim(loc) <- c(1, NROW(loc))
}
aux <- oce::magneticField(loc[, 2], loc[, 1], as.POSIXlt(date,
format = "%Y/%m/%d"))$declination
return(aux)
}
<bytecode: 0x6f43220>
<environment: namespace:skyscapeR>
--- function search by body ---
Function mag.dec in namespace skyscapeR has this body.
----------- END OF FAILURE REPORT --------------
Error in if (class(loc) == "skyscapeR.horizon") { :
the condition has length > 1
Calls: reduct.compass -> mag.dec
Execution halted
Flavor: r-devel-linux-x86_64-fedora-gcc
Version: 0.2.2
Check: re-building of vignette outputs
Result: WARN
Error(s) in re-building vignettes:
--- re-building ‘skyscapeR.Rmd’ using knitr
----------- FAILURE REPORT --------------
--- failure: the condition has length > 1 ---
--- srcref ---
:
--- package (from environment) ---
skyscapeR
--- call from context ---
reduct.compass(loc = georef, mag.az = azimuths, date = "2017/06/13",
alt = altitudes)
--- call from argument ---
if (class(loc) == "skyscapeR.horizon") {
hor <- loc
loc <- loc$georef
} else {
hor <- NULL
}
--- R stacktrace ---
where 1: reduct.compass(loc = georef, mag.az = azimuths, date = "2017/06/13",
alt = altitudes)
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: knit(input, text = text, envir = envir, quiet = quiet)
where 19: knit2html(..., force_v1 = TRUE)
where 20: (if (grepl("\\.[Rr]md$", file)) knit2html_v1 else if (grepl("\\.[Rr]rst$",
file)) knit2pandoc else knit)(file, encoding = encoding,
quiet = quiet, envir = globalenv(), ...)
where 21: engine$weave(file, quiet = quiet, encoding = enc)
where 22: doTryCatch(return(expr), name, parentenv, handler)
where 23: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 24: tryCatchList(expr, classes, parentenv, handlers)
where 25: 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 26: tools:::buildVignettes(dir = "/data/gannet/ripley/R/packages/tests-devel/skyscapeR.Rcheck/vign_test/skyscapeR",
ser_elibs = "/tmp/RtmpXpGO9z/file23b840abe223.rds")
--- value of length: 2 type: logical ---
[1] FALSE FALSE
--- function from context ---
function (loc, mag.az, date, magdec, alt, name, ID, HWT.ID)
{
if (class(loc) == "skyscapeR.horizon") {
hor <- loc
loc <- loc$georef
}
else {
hor <- NULL
}
if (NROW(loc) < NROW(mag.az) * 2) {
loc <- matrix(loc, NROW(mag.az), 2, byrow = T)
}
if (!missing(date) & (NROW(date) < NROW(mag.az))) {
date <- matrix(date, NROW(mag.az), 1, byrow = T)
}
if (!missing(alt)) {
if (NROW(alt) < NROW(mag.az)) {
alt <- matrix(alt, NROW(mag.az), 1, byrow = T)
}
}
if (missing(magdec) & !missing(date)) {
magdec <- mag.dec(loc, date)
}
prec <- max(nchar(sub(".*\\.", "", as.character(mag.az))))
true.az <- round(mag.az + magdec, prec)
df <- c()
if (!missing(ID)) {
df$ID <- ID
}
if (!missing(name)) {
df$Name <- name
}
df$Latitude = loc[, 1]
df$Longitude = loc[, 2]
df$Magnetic.Azimuth = mag.az
df$Date = date
df$Mag.Dec = magdec
df$True.Azimuth = true.az
if (!missing(HWT.ID)) {
df$HWT.ID <- HWT.ID
}
if (!missing(alt)) {
message("Altitude values found. Calculating declination...")
dec <- az2dec(true.az, loc, alt)
df$Altitude = alt
df$Declination <- dec
}
else if (class(hor) == "skyscapeR.horizon") {
message("Horizon profile found. Obtaining altitude values and calculating declination...")
dec <- az2dec(true.az, hor)
df$Altitude <- hor2alt(hor, true.az)
df$Declination <- dec
}
else {
message("No altitude values or horizon profile found. Declination values were not calculated.")
}
df <- as.data.frame(df)
return(df)
}
<bytecode: 0x8550c00>
<environment: namespace:skyscapeR>
--- function search by body ---
Function reduct.compass in namespace skyscapeR has this body.
----------- END OF FAILURE REPORT --------------
Quitting from lines 103-109 (skyscapeR.Rmd)
Error: processing vignette 'skyscapeR.Rmd' failed with diagnostics:
the condition has length > 1
--- failed re-building ‘skyscapeR.Rmd’
SUMMARY: processing the following file failed:
‘skyscapeR.Rmd’
Error: Vignette re-building failed.
Execution halted
Flavor: r-devel-linux-x86_64-fedora-gcc