* using log directory ‘/data/blackswan/ripley/R/packages/tests-devel/vmdTDNN.Rcheck’ * using R Under development (unstable) (2022-03-11 r81877) * using platform: x86_64-pc-linux-gnu (64-bit) * using session charset: UTF-8 * checking for file ‘vmdTDNN/DESCRIPTION’ ... OK * checking extension type ... Package * this is package ‘vmdTDNN’ version ‘0.1.0’ * package encoding: UTF-8 * checking package namespace information ... OK * checking package dependencies ... OK * checking if this is a source package ... OK * checking if there is a namespace ... OK * checking for executable files ... OK * checking for hidden files and directories ... OK * checking for portable file names ... OK * checking for sufficient/correct file permissions ... OK * checking whether package ‘vmdTDNN’ can be installed ... [11s/11s] OK * checking package directory ... OK * checking DESCRIPTION meta-information ... OK * checking top-level files ... OK * checking for left-over files ... OK * checking index information ... OK * checking package subdirectories ... OK * checking R files for non-ASCII characters ... OK * checking R files for syntax errors ... OK * checking whether the package can be loaded ... OK * checking whether the package can be loaded with stated dependencies ... OK * checking whether the package can be unloaded cleanly ... OK * checking whether the namespace can be loaded with stated dependencies ... OK * checking whether the namespace can be unloaded cleanly ... OK * checking loading without being on the library search path ... OK * checking dependencies in R code ... OK * checking S3 generic/method consistency ... OK * checking replacement functions ... OK * checking foreign function calls ... OK * checking R code for possible problems ... [14s/15s] OK * checking Rd files ... OK * checking Rd metadata ... OK * checking Rd line widths ... OK * checking Rd cross-references ... OK * checking for missing documentation entries ... OK * checking for code/documentation mismatches ... OK * checking Rd \usage sections ... OK * checking Rd contents ... OK * checking for unstated dependencies in examples ... OK * checking contents of ‘data’ directory ... OK * checking data for non-ASCII characters ... OK * checking LazyData ... OK * checking data for ASCII and uncompressed saves ... OK * checking examples ... OK * checking examples with --run-donttest ... ERROR Running examples in ‘vmdTDNN-Ex.R’ failed The error most likely occurred in: > ### Name: VMDARIMA > ### Title: Variational Mode Decomposition Based Autoregressive Integrated > ### Moving Average Model > ### Aliases: VMDARIMA > ### Keywords: VMD > > ### ** Examples > > ## No test: > data("Data_Maize") > VMDARIMA(Data_Maize) ----------- FAILURE REPORT -------------- --- failure: length > 1 in coercion to logical --- --- srcref --- : --- package (from environment) --- vmd --- call from context --- self$checkNotNullOrNA(valid, objnm = objnm) --- call from argument --- is.null(x) || is.na(x) --- R stacktrace --- where 1: self$checkNotNullOrNA(valid, objnm = objnm) where 2: self$checkIsIn(op, c("==", ">", "<", ">=", "<=")) where 3: private$check$checkLength(signal, 2, op = ">=") where 4: self$setSignal(signal) where 5: initialize(...) where 6: (function (...) { inherit <- get_inherit() if (!is.null(inherit)) { if (!inherits(inherit, "R6ClassGenerator")) stop("`inherit` must be a R6ClassGenerator.") if (!identical(portable, inherit$portable)) stop("Sub and superclass must both be portable or non-portable.") recursive_merge <- function(obj, which) { if (is.null(obj)) return(NULL) merge_vectors(recursive_merge(obj$get_inherit(), which), obj[[which]]) } public_fields <- merge_vectors(recursive_merge(inherit, "public_fields"), public_fields) private_fields <- merge_vectors(recursive_merge(inherit, "private_fields"), private_fields) } if (class) { classes <- c(classname, get_superclassnames(inherit), "R6") } else { classes <- NULL } has_priv <- has_private() if (portable) { if (has_priv) private_bind_env <- new.env(parent = emptyenv(), hash = FALSE) else private_bind_env <- NULL public_bind_env <- new.env(parent = emptyenv(), hash = FALSE) enclos_env <- new.env(parent = parent_env, hash = FALSE) } else { if (has_priv) { private_bind_env <- new.env(parent = parent_env, hash = FALSE) public_bind_env <- new.env(parent = private_bind_env, hash = FALSE) } else { private_bind_env <- NULL public_bind_env <- new.env(parent = parent_env, hash = FALSE) } enclos_env <- public_bind_env } enclos_env$self <- public_bind_env if (has_priv) enclos_env$private <- private_bind_env public_methods <- assign_func_envs(public_methods, enclos_env) if (has_priv) private_methods <- assign_func_envs(private_methods, enclos_env) if (!is.null(active)) active <- assign_func_envs(active, enclos_env) if (length(debug_names) > 0) { lapply(public_methods[names(public_methods) %in% debug_names], base::debug) lapply(private_methods[names(private_methods) %in% debug_names], base::debug) lapply(active[names(active) %in% debug_names], base::debug) } if (!is.null(inherit)) { if (portable) { super_struct <- create_super_env(inherit, public_bind_env, private_bind_env, portable = TRUE, cloneable = cloneable) } else { super_struct <- create_super_env(inherit, public_bind_env, portable = FALSE, cloneable = cloneable) } enclos_env$super <- super_struct$bind_env public_methods <- merge_vectors(super_struct$public_methods, public_methods) private_methods <- merge_vectors(super_struct$private_methods, private_methods) active <- merge_vectors(super_struct$active, active) } list2env2(public_methods, envir = public_bind_env) list2env2(public_fields, envir = public_bind_env) if (has_priv) { list2env2(private_methods, envir = private_bind_env) list2env2(private_fields, envir = private_bind_env) } if (!is.null(active)) { for (name in names(active)) { makeActiveBinding(name, active[[name]], public_bind_env) } enclos_env$.__active__ <- active } public_bind_env$.__enclos_env__ <- enclos_env if (lock_objects) { if (has_priv) lockEnvironment(private_bind_env) lockEnvironment(public_bind_env) } if (has_priv) { for (name in names(private_methods)) lockBinding(name, private_bind_env) } for (name in names(public_methods)) lockBinding(name, public_bind_env) class(public_bind_env) <- classes initialize <- .subset2(public_bind_env, "initialize") if (is.function(initialize)) { initialize(...) } else if (length(list(...)) != 0) { stop("Called new() with arguments, but there is no initialize method.") } if (is.function(.subset2(public_bind_env, "finalize"))) { finalizer_wrapper <- function(e) { .subset2(e, "finalize")() } environment(finalizer_wrapper) <- baseenv() reg.finalizer(public_bind_env, finalizer_wrapper, onexit = TRUE) } if (has_priv) { if (is.function(.subset2(private_bind_env, "finalize"))) { finalizer_wrapper <- function(e) { .subset2(e, ".__enclos_env__")$private$finalize() } environment(finalizer_wrapper) <- baseenv() reg.finalizer(public_bind_env, finalizer_wrapper, onexit = TRUE) } } public_bind_env })(signal = c(167.314, 161.80248, 159.04672, 157.07832, 163.3772, 152.74784, 163.75682, 175.58128, 205.89464, 235.81432, 238.1764, 250.38048, 264.94664, 292.89792, 290.53584, 319.27448, 307.85776, 310.61352, 300.77152, 310.21984, 295.26, 274.78864, 274.39496, 258.64776, 272.844845, 279.458669, 280.69384, 274.00128, 269.27712, 267.30872, 333.05328, 331.9920557, 320.8492, 321.24288, 321.63656, 308.64512, 303.1336, 302.73992, 309.0388, 279.90648, 295.5375444, 298.40944, 279.5128, 238.7356045, 207.405387, 201.7252109, 199.13474, 197.391152, 198.0643448, 209.3235928, 222.33078, 222.3583376, 217.2956128, 202.3948248, 182.726572, 176.4237552, 163.0583192, 163.121308, 178.7425304, 178.7346568, 174.7073104, 173.6955528, 174.2270208, 172.0539072, 166.2943688, 166.7195432, 179.596816, 162.5937768, 165.621176, 171.388588, 166.1565808, 163.948036, 161.0269304, 159.676608, 159.1372664, 164.4125784, 168.9556456, 179.872392, 161.7591752, 150.1534888, 148.4252336, 152.2596768, 151.803008, 152.4486432, 159.9876152, 162.8575424, 158.9640472, 156.4405584, 158.5900512, 157.9326056, 157.511368, 148.496096, 147.2914352, 148.6220736, 148.7047464, 148.9803224, 155.838228, 163.357516, 171.998792, 175.6049008, 179.085032, 165.070024, 156.4602424, 162.373316, 154.8028496, 160.2553176, 160.6883656, 167.4399776, 166.743164, 169.5225448, 166.2235064, 161.487536, 171.0815176, 195.0802504, 189.419132, 163.5858504, 157.2594128, 167.1486544, 166.3337368, 166.9557512, 171.7862048, 168.711564, 162.4205576, 146.9095656, 143.9057872, 147.9882488), alpha = 2000, tau = 0, K = 4, DC = TRUE, init = 0, tol = 1e-06, orderModes = TRUE) where 7: do.call(R6Vmd$new, args = args) where 8: vmd(data, alpha = 2000, tau = 0, K = nIMF, orderModes = TRUE) where 9: VMDARIMA(Data_Maize) --- value of length: 5 type: logical --- [1] FALSE FALSE FALSE FALSE FALSE --- function from context --- function (x, objnm = deparse(substitute(x))) { if (is.null(x) || is.na(x)) stop(sprintf("'%s' must not be NULL or NA", objnm), call. = FALSE) else invisible(x) } --- function search by body --- ----------- END OF FAILURE REPORT -------------- Fatal error: length > 1 in coercion to logical * checking for unstated dependencies in ‘tests’ ... OK * checking tests ... Running ‘testthat.R’ OK * checking PDF version of manual ... OK * checking for non-standard things in the check directory ... OK * checking for detritus in the temp directory ... OK * checking for new files in some other directories ... OK * DONE Status: 1 ERROR See ‘/data/blackswan/ripley/R/packages/tests-devel/vmdTDNN.Rcheck/00check.log’ for details. Command exited with non-zero status 1 Time 1:35.30, 82.18 + 11.37