─ Test failures ─────────────────────── testthat ────

> desc_path <- list.files("../","^DESCRIPTION$",
+                         full.names = TRUE, recursive = TRUE)[1]
> pkg <- read.dcf(desc_path, fields = "Package")[1]
> library(testthat)
> library(pkg, character.only = TRUE)
> 
> test_check(pkg)
Loading required namespace: pkgnet
Generating `pkgnet` package report.
INFO [2022-11-12 03:01:52] Creating package report for package echolocatoR with reporters: SummaryReporter, DependencyReporter, FunctionReporter
INFO [2022-11-12 03:01:53] Rendering package report...
INFO [2022-11-12 03:02:05] Done creating package report! It is available at /var/folders/zq/h7mtybc533b1qzkys_ttgpth0000gn/T//Rtmpv6Wp7q/working_dir/RtmpkJtSMV/echolocatoR8345953adf3.html
Constructing dependency subgraph.
Adding all echoverse modules to metadata search.
Collecting metadata for 13 packages
- echolocatoR
 ----------- FAILURE REPORT -------------- 
 --- failure: length > 1 in coercion to logical ---
 --- srcref --- 
: 
 --- package (from environment) --- 
echodeps
 --- call from context --- 
doTryCatch(return(expr), name, parentenv, handler)
 --- call from argument --- 
!methods::is(d, "data.frame") && is.na(d)
 --- R stacktrace ---
where 1: doTryCatch(return(expr), name, parentenv, handler)
where 2: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 3: tryCatchList(expr, classes, parentenv, handlers)
where 4: tryCatch({
    messager("-", pkg, v = verbose)
    d <- utils::packageDescription(pkg)
    if (!methods::is(d, "data.frame") && is.na(d)) {
        return(NULL)
    }
    data.table::data.table(t(`names<-`(lapply(fields, function(x) {
        if (is.null(d[[x]])) return(NA)
        parse_deps(d = d, field = x, split = if (x %in% c("Title", 
            "Description")) "______" else ",")
    }), fields)))
}, error = function(e) {
    warning(e)
    NULL
})
where 5: FUN(X[[i]], ...)
where 6: lapply(pkgs, function(pkg) {
    tryCatch({
        messager("-", pkg, v = verbose)
        d <- utils::packageDescription(pkg)
        if (!methods::is(d, "data.frame") && is.na(d)) {
            return(NULL)
        }
        data.table::data.table(t(`names<-`(lapply(fields, function(x) {
            if (is.null(d[[x]])) return(NA)
            parse_deps(d = d, field = x, split = if (x %in% c("Title", 
                "Description")) "______" else ",")
        }), fields)))
    }, error = function(e) {
        warning(e)
        NULL
    })
})
where 7: data.table::rbindlist(lapply(pkgs, function(pkg) {
    tryCatch({
        messager("-", pkg, v = verbose)
        d <- utils::packageDescription(pkg)
        if (!methods::is(d, "data.frame") && is.na(d)) {
            return(NULL)
        }
        data.table::data.table(t(`names<-`(lapply(fields, function(x) {
            if (is.null(d[[x]])) return(NA)
            parse_deps(d = d, field = x, split = if (x %in% c("Title", 
                "Description")) "______" else ",")
        }), fields)))
    }, error = function(e) {
        warning(e)
        NULL
    })
}))
where 8: package_metadata(pkgs = c(pkg_name, deps))
where 9: dep_graph_create(pkg_name = pkg_name, deps = deps, verbose = verbose)
where 10 at test-dep_graph.R#13: echodeps::dep_graph()
where 11: eval(code, test_env)
where 12: eval(code, test_env)
where 13: withCallingHandlers({
    eval(code, test_env)
    if (!handled && !is.null(test)) {
        skip_empty()
    }
}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, 
    message = handle_message, error = handle_error)
where 14: doTryCatch(return(expr), name, parentenv, handler)
where 15: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 16: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
where 17: doTryCatch(return(expr), name, parentenv, handler)
where 18: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), 
    names[nh], parentenv, handlers[[nh]])
where 19: tryCatchList(expr, classes, parentenv, handlers)
where 20: tryCatch(withCallingHandlers({
    eval(code, test_env)
    if (!handled && !is.null(test)) {
        skip_empty()
    }
}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, 
    message = handle_message, error = handle_error), error = handle_fatal, 
    skip = function(e) {
    })
where 21: test_code(desc, code, env = parent.frame(), reporter = reporter)
where 22 at test-dep_graph.R#1: test_that("dep_graph works", {
    run_tests <- function(res, pkg_name) {
        testthat::expect_true(methods::is(res$plot, "visNetwork"))
        testthat::expect_true(methods::is(res$metadata, "data.frame"))
        testthat::expect_true(methods::is(res$graph, "igraph"))
        testthat::expect_true(methods::is(res$subgraph, "igraph"))
        testthat::expect_true(methods::is(res$pkgnet_report, 
            "PackageReport"))
        testthat::expect_equal(res$pkg_name, pkg_name)
    }
    res <- echodeps::dep_graph()
    run_tests(res = res, pkg_name = "echolocatoR")
    res2 <- echodeps::dep_graph(pkg_name = "dplyr", shape = "hexagon", 
        layout = function(graph, pkg_name) {
            visNetwork::visIgraphLayout(graph = graph, layout = "layout_nicely")
        })
    run_tests(res = res2, pkg_name = "dplyr")
})
where 23: eval(code, test_env)
where 24: eval(code, test_env)
where 25: withCallingHandlers({
    eval(code, test_env)
    if (!handled && !is.null(test)) {
        skip_empty()
    }
}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, 
    message = handle_message, error = handle_error)
where 26: doTryCatch(return(expr), name, parentenv, handler)
where 27: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 28: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
where 29: doTryCatch(return(expr), name, parentenv, handler)
where 30: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), 
    names[nh], parentenv, handlers[[nh]])
where 31: tryCatchList(expr, classes, parentenv, handlers)
where 32: tryCatch(withCallingHandlers({
    eval(code, test_env)
    if (!handled && !is.null(test)) {
        skip_empty()
    }
}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, 
    message = handle_message, error = handle_error), error = handle_fatal, 
    skip = function(e) {
    })
where 33: test_code(NULL, exprs, env)
where 34: source_file(path, child_env(env), wrap = wrap)
where 35: FUN(X[[i]], ...)
where 36: lapply(test_paths, test_one_file, env = env, wrap = wrap)
where 37: doTryCatch(return(expr), name, parentenv, handler)
where 38: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 39: tryCatchList(expr, classes, parentenv, handlers)
where 40: tryCatch(code, testthat_abort_reporter = function(cnd) {
    cat(conditionMessage(cnd), "\n")
    NULL
})
where 41: with_reporter(reporters$multi, lapply(test_paths, test_one_file, 
    env = env, wrap = wrap))
where 42: test_files_serial(test_dir = test_dir, test_package = test_package, 
    test_paths = test_paths, load_helpers = load_helpers, reporter = reporter, 
    env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning, 
    wrap = wrap, load_package = load_package)
where 43: test_files(test_dir = path, test_paths = test_paths, test_package = package, 
    reporter = reporter, load_helpers = load_helpers, env = env, 
    stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning, 
    wrap = wrap, load_package = load_package, parallel = parallel)
where 44: test_dir("testthat", package = package, reporter = reporter, 
    ..., load_package = "installed")
where 45: test_check(pkg)

 --- value of length: 21 type: logical ---
                Package                    Type                   Title 
                  FALSE                   FALSE                   FALSE 
                Version               Authors@R             Description 
                  FALSE                   FALSE                   FALSE 
                License                     URL              BugReports 
                  FALSE                   FALSE                   FALSE 
               Encoding                 Depends               biocViews 
                  FALSE                   FALSE                   FALSE 
                Imports                Suggests                 Remotes 
                  FALSE                   FALSE                   FALSE 
            RoxygenNote         VignetteBuilder Config/testthat/edition 
                  FALSE                   FALSE                   FALSE 
                 Author              Maintainer                   Built 
                  FALSE                   FALSE                   FALSE 
 --- function from context --- 
function (expr, name, parentenv, handler) 
{
    .Internal(.addCondHands(name, list(handler), parentenv, environment(), 
        FALSE))
    expr
}
<bytecode: 0x7fcf6f074ab8>
<environment: 0x7fcf7c4c23a0>
 --- function search by body ---
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: length > 1 in coercion to logical