> traceback()
29: stop(fallback)
28: signal_abort(cnd, .file)
27: rlang::abort(message, ..., call = call, use_cli_format = TRUE,
.frame = .frame)
26: cli_abort("Failed to collect lazy table.", parent = cnd)
25: (function (cnd)
{
cli_abort("Failed to collect lazy table.", parent = cnd)
})(structure(list(message = structure("Arguments in `...` must be used.", names = ""),
trace = structure(list(call = list(celldex::DatabaseImmuneCellExpressionData(),
.create_se("dice", version, assays = "logcounts", rm.NA = "none",
has.rowdata = FALSE, has.coldata = TRUE), .ExperimentHub(),
ExperimentHub(), .Hub("ExperimentHub", hub, cache, proxy,
localHub, ask, ...), .create_cache(.class, url, cache,
proxy, localHub, ask), BiocFileCache(cache = cache,
ask = ask), .sql_create_db(bfc), .sql_validate_version(bfc),
.sql_schema_version(bfc), tryCatch({
info <- .sql_connect_RO(.sql_dbfile(bfc))
con <- info$con
src <- src_dbi(con)
tbl <- tbl(src, "metadata") %>% collect(Inf)
}, finally = {
.sql_disconnect(info)
}), tryCatchList(expr, classes, parentenv, handlers),
tbl(src, "metadata") %>% collect(Inf), collect(., Inf),
collect.tbl_sql(., Inf), withCallingHandlers(out <- db_collect(x$src$con,
sql, n = n, warn_incomplete = warn_incomplete, ...),
error = function(cnd) {
cli_abort("Failed to collect lazy table.", parent = cnd)
}), db_collect(x$src$con, sql, n = n, warn_incomplete = warn_incomplete,
...), `<fn>`(), check_dots(env, error, action, call),
action_dots(error = error, action = action, message = "Arguments in `...` must be used.",
note = c(i = "Did you misspell an argument name?"),
dots_i = unused, class = "rlib_error_dots_unused",
call = call, env = env), try_dots(action(c(message,
x = bullet_header, set_names(bullets, "*"), note),
class = c(class, "rlib_error_dots"), ...)), action(c(message,
x = bullet_header, set_names(bullets, "*"), note),
class = c(class, "rlib_error_dots"), ...)), parent = c(0L,
1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 10L, 0L, 0L,
15L, 15L, 17L, 18L, 19L, 20L, 20L), visible = c(TRUE, TRUE,
TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE,
TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE,
FALSE), namespace = c("celldex", "celldex", "celldex", "ExperimentHub",
"AnnotationHub", "AnnotationHub", "BiocFileCache", "BiocFileCache",
"BiocFileCache", "BiocFileCache", "base", "base", NA, "dplyr",
"dbplyr", "base", "dbplyr", "rlang", "rlang", "rlang", "base",
"rlang"), scope = c("::", ":::", ":::", "::", "::", ":::",
"::", ":::", ":::", ":::", "::", "local", NA, "::", ":::",
"::", "::", "local", ":::", ":::", "local", "local"), error_frame = c(FALSE,
FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,
FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE,
FALSE, FALSE, FALSE)), row.names = c(NA, -22L), version = 2L, class = c("rlang_trace",
"rlib_trace", "tbl", "data.frame")), parent = NULL, body = c(x = "Problematic argument:",
`*` = "..1 = Inf", i = "Did you misspell an argument name?"
), rlang = list(inherit = TRUE), call = db_collect(x$src$con,
sql, n = n, warn_incomplete = warn_incomplete, ...),
use_cli_format = TRUE), class = c("rlib_error_dots_unused",
"rlib_error_dots", "rlang_error", "error", "condition")))
24: signalCondition(cnd)
23: signal_abort(cnd, .file)
22: action(c(message, x = bullet_header, set_names(bullets, "*"),
note), class = c(class, "rlib_error_dots"), ...)
21: try_dots(action(c(message, x = bullet_header, set_names(bullets,
"*"), note), class = c(class, "rlib_error_dots"), ...))
20: action_dots(error = error, action = action, message = "Arguments in `...` must be used.",
note = c(i = "Did you misspell an argument name?"), dots_i = unused,
class = "rlib_error_dots_unused", call = call, env = env)
19: check_dots(env, error, action, call)
18: (function ()
check_dots(env, error, action, call))()
17: db_collect(x$src$con, sql, n = n, warn_incomplete = warn_incomplete,
...)
16: withCallingHandlers(out <- db_collect(x$src$con, sql, n = n,
warn_incomplete = warn_incomplete, ...), error = function(cnd) {
cli_abort("Failed to collect lazy table.", parent = cnd)
})
15: collect.tbl_sql(., Inf)
14: collect(., Inf)
13: tbl(src, "metadata") %>% collect(Inf)
12: tryCatchList(expr, classes, parentenv, handlers)
11: tryCatch({
info <- .sql_connect_RO(.sql_dbfile(bfc))
con <- info$con
src <- src_dbi(con)
tbl <- tbl(src, "metadata") %>% collect(Inf)
}, finally = {
.sql_disconnect(info)
})
10: .sql_schema_version(bfc)
9: .sql_validate_version(bfc)
8: .sql_create_db(bfc)
7: BiocFileCache(cache = cache, ask = ask)
6: .create_cache(.class, url, cache, proxy, localHub, ask)
5: .Hub("ExperimentHub", hub, cache, proxy, localHub, ask, ...)
4: ExperimentHub()
3: .ExperimentHub()
2: .create_se("dice", version, assays = "logcounts", rm.NA = "none",
has.rowdata = FALSE, has.coldata = TRUE)
1: celldex::DatabaseImmuneCellExpressionData()
