CRAN Package Check Results for Maintainer ‘Bhas Abdulsamad <aeabdulsamad at gmail.com>’

Last updated on 2026-04-17 11:54:17 CEST.

Package	ERROR	NOTE	OK
mpindex		11	3
phscs			14
rcdf	1		13
tsg			14

Package mpindex

Current CRAN status: NOTE: 11, OK: 3

Version: 0.2.1
Check: DESCRIPTION meta-information
Result: NOTE Missing dependency on R >= 4.1.0 because package code uses the pipe |> or function shorthand \(...) syntax added in R 4.1.0. File(s) using such syntax: ‘compute-contribution.R’ ‘compute-headcount-ratio-adjusted.R’ ‘compute-headcount-ratio.R’ ‘compute-mpi.R’ ‘compute_mpi.Rd’ ‘create-deprivation-matrix.R’ ‘define-deprivation.R’ ‘define-mpi-specs.R’ ‘define_deprivation.Rd’ ‘define_mpi_specs.Rd’ ‘helpers.R’ ‘save_mpi.R’ ‘write-as-excel.R’ Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-devel-macos-arm64, r-devel-windows-x86_64, r-patched-linux-x86_64, r-release-linux-x86_64, r-release-macos-arm64, r-release-windows-x86_64

Version: 0.2.1
Check: DESCRIPTION meta-information
Result: NOTE Missing dependency on R >= 4.1.0 because package code uses the pipe |> or function shorthand \(...) syntax added in R 4.1.0. File(s) using such syntax: ‘compute-contribution.R’ ‘compute-headcount-ratio-adjusted.R’ ‘compute-headcount-ratio.R’ ‘compute-mpi.R’ ‘create-deprivation-matrix.R’ ‘define-deprivation.R’ ‘define-mpi-specs.R’ ‘helpers.R’ ‘save_mpi.R’ ‘write-as-excel.R’ Flavor: r-release-macos-x86_64

Package phscs

Current CRAN status: OK: 14

Package rcdf

Current CRAN status: ERROR: 1, OK: 13

Version: 0.1.5
Check: examples
Result: ERROR Running examples in ‘rcdf-Ex.R’ failed The error most likely occurred in: > ### Name: write_rcdf_csv > ### Title: Write RCDF data to CSV files > ### Aliases: write_rcdf_csv > > ### ** Examples > > dir <- system.file("extdata", package = "rcdf") > rcdf_path <- file.path(dir, 'mtcars.rcdf') > private_key <- file.path(dir, 'sample-private-key-pw.pem') > > rcdf_data <- read_rcdf(path = rcdf_path, decryption_key = private_key, password = '1234') *** caught segfault *** address (nil), cause 'unknown' Traceback: 1: rapi_prepare(conn, query, env) 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_prepare(conn, query, env), error = function(e) { rethrow_error_from_rapi(e, call)}) 8: rethrow_rapi_prepare(conn@conn_ref, statement, env) 9: .local(conn, statement, ...) 10: dbSendQuery(conn, statement, ...) 11: dbSendQuery(conn, statement, ...) 12: dbSendStatement(conn, statement, ...) 13: dbSendStatement(conn, statement, ...) 14: DBI::dbExecute(conn, glue::glue_sql("CREATE TABLE {`record`} AS\n SELECT * FROM read_parquet({pq_file},\n encryption_config = {{ footer_key: {secret$key} }});", .con = conn)) 15: DBI::dbExecute(conn, glue::glue_sql("CREATE TABLE {`record`} AS\n SELECT * FROM read_parquet({pq_file},\n encryption_config = {{ footer_key: {secret$key} }});", .con = conn)) 16: process_parquet_file(conn, pq_file, secret, pk) 17: process_rcdf_file(conn = conn, rcdf_file = rcdf_files[i], key = creds$keys[i], password = creds$passwords[i], metadata = metadata, ignore_duplicates = ignore_duplicates) 18: read_rcdf(path = rcdf_path, decryption_key = private_key, password = "1234") An irrecoverable exception occurred. R is aborting now ... Flavor: r-devel-linux-x86_64-fedora-clang

Version: 0.1.5
Check: tests
Result: ERROR Running ‘testthat.R’ [6s/23s] Running the tests in ‘tests/testthat.R’ failed. Complete output: > # This file is part of the standard setup for testthat. > # It is recommended that you do not modify it. > # > # Where should you do additional test configuration? > # Learn more about the roles of various files in: > # * https://r-pkgs.org/testing-design.html#sec-tests-files-overview > # * https://testthat.r-lib.org/articles/special-files.html > > library(testthat) > library(rcdf) > > test_check("rcdf") *** caught segfault *** address 0xf8, 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: write_parquet(data, temp_file, encryption_key = mock_key_legacy) 19: eval(code, test_env) 20: eval(code, test_env) 21: withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt) 22: doTryCatch(return(expr), name, parentenv, handler) 23: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 24: tryCatchList(expr, classes, parentenv, handlers) 25: tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt), error = handle_fatal) 26: doWithOneRestart(return(expr), restart) 27: withOneRestart(expr, restarts[[1L]]) 28: withRestarts(tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt), error = handle_fatal), end_test = function() { }) 29: test_code(code, parent.frame()) 30: test_that("read_parquet reads encrypted Parquet file with decryption (legacy)", { data <- tibble::tibble(a = 1:5, b = letters[1:5]) temp_file <- tempfile(fileext = ".parquet") mock_key_legacy <- list(aes_key = "3e5bdf7031653ddcffca50831f6d9822f73cce44948c5a0861540cfb5620a633", aes_iv = "9A5D8517510F8E26C564C6C8DD39EA68") write_parquet(data, temp_file, encryption_key = mock_key_legacy) result <- read_parquet(temp_file, decryption_key = mock_key_legacy) expect_true(inherits(result, "data.frame")) expect_equal(nrow(result), 5) expect_equal(ncol(result), 2) unlink(temp_file, recursive = TRUE, force = TRUE) }) 31: eval(code, test_env) 32: eval(code, test_env) 33: withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt) 34: doTryCatch(return(expr), name, parentenv, handler) 35: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 36: tryCatchList(expr, classes, parentenv, handlers) 37: tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt), error = handle_fatal) 38: doWithOneRestart(return(expr), restart) 39: withOneRestart(expr, restarts[[1L]]) 40: withRestarts(tryCatch(withCallingHandlers({ eval(code, test_env) new_expectations <- the$test_expectations > starting_expectations if (snapshot_skipped) { skip("On CRAN") } else if (!new_expectations && skip_on_empty) { skip_empty() }}, expectation = handle_expectation, packageNotFoundError = function(e) { if (on_cran()) { skip(paste0("{", e$package, "} is not installed.")) }}, snapshot_on_cran = function(cnd) { snapshot_skipped <<- TRUE invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error, interrupt = handle_interrupt), error = handle_fatal), end_test = function() { }) 41: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new()) 42: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call) 43: FUN(X[[i]], ...) 44: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call) 45: doTryCatch(return(expr), name, parentenv, handler) 46: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 47: tryCatchList(expr, classes, parentenv, handlers) 48: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL}) 49: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)) 50: 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, desc = desc, load_package = load_package, shuffle = shuffle, error_call = error_call) 51: 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, load_package = load_package, parallel = parallel, shuffle = shuffle) 52: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed") 53: test_check("rcdf") An irrecoverable exception occurred. R is aborting now ... Flavor: r-devel-linux-x86_64-fedora-clang

Package tsg

Current CRAN status: OK: 14