Hello Posit Community!
I am urgently looking for someone who can help me with an error I am experiencing when trying to use the "ricu" package in R.
I successfully installed and loaded the package "ricu", however once I try to use its basic commands (e.g., concept_availability( )) I always get the same error: Error in metadata_fst(path, old_format) : It seems the file header was damaged or incomplete
explain_dictionary()
#> Error in explain_dictionary(): could not find function "explain_dictionary"
The traceback( ) is the following
32: stop(metadata)
31: metadata_fst(path, old_format)
30: FUN(X[[i]], ...)
29: lapply(files, fst::fst)
28: eval(assertion, env)
27: eval(assertion, env)
26: doTryCatch(return(expr), name, parentenv, handler)
25: tryCatchOne(expr, names, parentenv, handlers[[1L]])
24: tryCatchList(expr, classes, parentenv, handlers)
23: tryCatch({
eval(assertion, env)
}, assertError = function(e) {
structure(FALSE, msg = e$message)
})
22: see_if(..., env = env, msg = msg)
21: assert_that(is.list(x), all(vapply(x, inherits, logical(1L),
"fst_table")))
20: make_prt(lapply(files, fst::fst))
19: prt::new_prt(files)
18: new_src_tbl(fil, col, tbl, src_prefix(src), env)
17: (function (value)
{
if (!missing(value)) {
if (is.null(value)) {
src_tbl_cache <<- NULL
}
else {
warn_ricu("Cannot update read-only table `{tbl_name(tbl)}` of data\n source `{src_name(src)}`.",
"assign_src_tbl")
}
}
if (all(file.exists(fil))) {
if (is.null(src_tbl_cache)) {
src_tbl_cache <<- new_src_tbl(fil, col, tbl, src_prefix(src),
env)
}
return(src_tbl_cache)
}
msg_ricu("Data for `{src_name(src)}` is missing", "miss_tbl_msg",
tbl_cfg = tbl)
...
16: get0(x, envir = env, inherits = FALSE)
15: doTryCatch(return(expr), name, parentenv, handler)
14: tryCatchOne(expr, names, parentenv, handlers[[1L]])
13: tryCatchList(expr, classes, parentenv, handlers)
12: tryCatch(get0(x, envir = env, inherits = FALSE), miss_tbl_msg = function(msg) msg[["tbl_cfg"]])
11: safe_tbl_get(tbl, env)
10: is_src_tbl(safe_tbl_get(tbl, env))
9: FUN(X[[i]], ...)
8: vapply(x, fun, logical(length), ..., USE.NAMES = use_names)
7: lgl_ply(tbls, is_tbl_avail, env, use_names = TRUE)
6: FUN(X[[i]], ...)
5: lapply(src, src_tbl_avail)
4: src_data_avail(src)
3: is_data_avail(attached_srcs())
2: load_dictionary(...)
1: explain_dictionary( )
I am new to R and I already tried to solve this issue for several hours now, I would be super thankful if someone could help me out!
