Running examples in ‘rcdf-Ex.R’ failed
The error most likely occurred in:

> ### Name: merge_rcdf
> ### Title: Merge multiple RCDF files
> ### Aliases: merge_rcdf
> 
> ### ** Examples
> 
> dir <- system.file("extdata", package = "rcdf")
> 
> rcdf_path <- file.path(dir, 'mtcars-pw.rcdf')
> private_key <- file.path(dir, 'sample-private-key-pw.pem')
> pw <- '1234'
> 
> temp_dir <- tempdir()
> 
> data <- merge_rcdf(
+   rcdf_files = rcdf_path,
+   decryption_keys = private_key,
+   passwords = pw,
+   merged_file_path = file.path(temp_dir, "merged.rcdf")
+ )
ℹ Generatd new RSA keys in: /tmp/RtmpqfNc5S/working_dir/RtmpJt4i97
ℹ Password for decryption key: F?gdTwoIWkRrVL6KQ_aQA%MYx^Wh!wVy

 *** caught segfault ***
address 0x20, cause 'memory not mapped'

Traceback:
 1: rapi_execute(stmt, convert_opts)
 2: withCallingHandlers(expr, condition = function(cnd) {    {        .__handler_frame__. <- TRUE        .__setup_frame__. <- frame        if (inherits(cnd, "message")) {            except <- c("warning", "error")        }        else if (inherits(cnd, "warning")) {            except <- "error"        }        else {            except <- ""        }    }    while (!is_null(cnd)) {        if (inherits(cnd, "error")) {            out <- handlers[[1L]](cnd)            if (!inherits(out, "rlang_zap"))                 throw(out)        }        inherit <- .subset2(.subset2(cnd, "rlang"), "inherit")        if (is_false(inherit)) {            return()        }        cnd <- .subset2(cnd, "parent")    }})
 3: doTryCatch(return(expr), name, parentenv, handler)
 4: tryCatchOne(expr, names, parentenv, handlers[[1L]])
 5: tryCatchList(expr, classes, parentenv, handlers)
 6: tryCatch(withCallingHandlers(expr, condition = function(cnd) {    {        .__handler_frame__. <- TRUE        .__setup_frame__. <- frame        if (inherits(cnd, "message")) {            except <- c("warning", "error")        }        else if (inherits(cnd, "warning")) {            except <- "error"        }        else {            except <- ""        }    }    while (!is_null(cnd)) {        if (inherits(cnd, "error")) {            out <- handlers[[1L]](cnd)            if (!inherits(out, "rlang_zap"))                 throw(out)        }        inherit <- .subset2(.subset2(cnd, "rlang"), "inherit")        if (is_false(inherit)) {            return()        }        cnd <- .subset2(cnd, "parent")    }}), stackOverflowError = handlers[[1L]])
 7: rlang::try_fetch(rapi_execute(stmt, convert_opts), error = function(e) {    rethrow_error_from_rapi(e, call)})
 8: rethrow_rapi_execute(res@stmt_lst$ref, duckdb_convert_opts_impl(res@connection@convert_opts,     arrow = res@arrow))
 9: duckdb_execute(res)
10: duckdb_result(connection = conn, stmt_lst = stmt_lst, arrow = arrow)
11: .local(conn, statement, ...)
12: dbSendQuery(conn, statement, ...)
13: dbSendQuery(conn, statement, ...)
14: dbSendStatement(conn, statement, ...)
15: dbSendStatement(conn, statement, ...)
16: DBI::dbExecute(conn = pq_conn, statement = "LOAD httpfs")
17: DBI::dbExecute(conn = pq_conn, statement = "LOAD httpfs")
18: rcdf::write_parquet(data = dplyr::collect(data_i), path = file.path(path,     glue::glue("{record_i}.parquet")), ...)
19: write_rcdf_parquet(data = data, path = dir_temp, encryption_key = key,     parent_dir = "lineage", primary_key = metadata$primary_key,     ignore_duplicates = ignore_duplicates)
20: write_rcdf(data = as_rcdf(merged), path = merged_file_path, pub_key = pub_key,     metadata = list(dictionary = dcf, meta = meta$meta, area_names = meta$area_names))
21: merge_rcdf(rcdf_files = rcdf_path, decryption_keys = private_key,     passwords = pw, merged_file_path = file.path(temp_dir, "merged.rcdf"))
An irrecoverable exception occurred. R is aborting now ...