Last updated on 2026-01-19 13:49:48 CET.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 1.1.0 | 7.23 | 104.94 | 112.17 | OK | |
| r-devel-linux-x86_64-debian-gcc | 1.1.0 | 4.59 | 72.10 | 76.69 | OK | |
| r-devel-linux-x86_64-fedora-clang | 1.1.0 | 12.00 | 172.95 | 184.95 | OK | |
| r-devel-windows-x86_64 | 1.1.0 | 10.00 | 106.00 | 116.00 | OK | |
| r-patched-linux-x86_64 | 1.1.0 | 7.24 | 93.08 | 100.32 | OK | |
| r-release-linux-x86_64 | 1.1.0 | 6.26 | 93.02 | 99.28 | OK | |
| r-release-macos-arm64 | 1.1.0 | 2.00 | 24.00 | 26.00 | ERROR | |
| r-release-macos-x86_64 | 1.1.0 | 5.00 | 96.00 | 101.00 | ERROR | |
| r-release-windows-x86_64 | 1.1.0 | 10.00 | 107.00 | 117.00 | OK | |
| r-oldrel-macos-arm64 | 1.1.0 | 2.00 | 28.00 | 30.00 | ERROR | |
| r-oldrel-macos-x86_64 | 1.1.0 | 5.00 | 173.00 | 178.00 | ERROR | |
| r-oldrel-windows-x86_64 | 1.1.0 | 11.00 | 136.00 | 147.00 | OK |
Version: 1.1.0
Check: examples
Result: ERROR
Running examples in ‘eudract-Ex.R’ failed
The error most likely occurred in:
> ### Name: clintrials_gov_convert
> ### Title: applies a conversion using xslt from a simple xml file to a
> ### ClinicalTrials.gov compatible file, and checks against the schema
> ### Aliases: clintrials_gov_convert
>
> ### ** Examples
>
> safety_statistics <- safety_summary(safety,
+ exposed=c("Experimental"=60,"Control"=67))
> simple <- tempfile(fileext = ".xml")
> eudract <- tempfile(fileext = ".xml")
> ct <- tempfile(fileext = ".xml")
> simple_safety_xml(safety_statistics, simple)
'/Volumes/Temp/tmp/RtmpvLuwxx/file119c253efea0e.xml' is created or modified
> eudract_convert(input=simple,
+ output=eudract)
'/Volumes/Temp/tmp/RtmpvLuwxx/file119c22bef682f.xml' is created or modified
Please email cuh.cctu@nhs.net to tell us if you have successfully uploaded a study to EudraCT.
This is to allow us to measure the impact of this tool.
> clintrials_gov_convert(input=simple,
+ original=system.file("extdata", "1234.xml", package ="eudract"),
+ output=ct)
'/Volumes/Temp/tmp/RtmpvLuwxx/file119c272a0fc31.xml' is created or modified
*** caught segfault ***
address 0x9a2d39346048, cause 'invalid permissions'
Traceback:
1: xml_validate.xml_document(safety, schema_results)
2: xml2::xml_validate(safety, schema_results)
3: clintrials_gov_convert(input = simple, original = system.file("extdata", "1234.xml", package = "eudract"), output = ct)
An irrecoverable exception occurred. R is aborting now ...
Flavor: r-release-macos-arm64
Version: 1.1.0
Check: tests
Result: ERROR
Running ‘testthat.R’ [1s/1s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library(testthat)
> library(eudract)
>
> test_check("eudract")
*** caught segfault ***
address 0xf5c91e37e048, cause 'invalid permissions'
Traceback:
1: xml_validate.xml_document(safety, schema_results)
2: xml2::xml_validate(safety, schema_results)
3: clintrials_gov_convert(input = file.path(path, "simple.xml"), original = file.path(original_path, "1234.xml"), output = file.path(path, "table_ct.xml"))
4: eval(code, test_env)
5: eval(code, test_env)
6: 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)
7: doTryCatch(return(expr), name, parentenv, handler)
8: tryCatchOne(expr, names, parentenv, handlers[[1L]])
9: tryCatchList(expr, classes, parentenv, handlers)
10: 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)
11: doWithOneRestart(return(expr), restart)
12: withOneRestart(expr, restarts[[1L]])
13: 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() { })
14: test_code(code, parent.frame())
15: test_that("convert to ClinicalTrials.Gov", { clintrials_gov_convert(input = file.path(path, "simple.xml"), original = file.path(original_path, "1234.xml"), output = file.path(path, "table_ct.xml")) new <- read_xml(file.path(path, "table_ct.xml")) ref <- read_xml(file.path(reference_path, "table_ct.xml")) expect_equal(new, ref) if (Sys.getenv("ct_user") == "" | Sys.getenv("ct_pass") == "") { skip("Need to have the userid/password as environment variables") } output <- clintrials_gov_upload(input = file.path(path, "simple.xml"), backup = file.path(path, "bak_study_file.xml"), output = file.path(path, "study_file.xml"), orgname = "AddenbrookesH", username = Sys.getenv("ct_user"), password = Sys.getenv("ct_pass"), studyid = "1234", url = "https://prstest.clinicaltrials.gov/") expect_equal(names(output), c("download", "upload"))})
16: eval(code, test_env)
17: eval(code, test_env)
18: 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)
19: doTryCatch(return(expr), name, parentenv, handler)
20: tryCatchOne(expr, names, parentenv, handlers[[1L]])
21: tryCatchList(expr, classes, parentenv, handlers)
22: 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)
23: doWithOneRestart(return(expr), restart)
24: withOneRestart(expr, restarts[[1L]])
25: 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() { })
26: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new())
27: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call)
28: FUN(X[[i]], ...)
29: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)
30: doTryCatch(return(expr), name, parentenv, handler)
31: tryCatchOne(expr, names, parentenv, handlers[[1L]])
32: tryCatchList(expr, classes, parentenv, handlers)
33: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL})
34: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call))
35: 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)
36: 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)
37: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed")
38: test_check("eudract")
An irrecoverable exception occurred. R is aborting now ...
Flavor: r-release-macos-arm64
Version: 1.1.0
Check: re-building of vignette outputs
Result: ERROR
Error(s) in re-building vignettes:
sh: line 1: 74973 Segmentation fault: 11 '/Library/Frameworks/R.framework/Resources/bin/R' --vanilla --no-echo > '/Volumes/Temp/tmp/RtmpavI3Lc/file11f6f343e5eab' 2>&1 < '/Volumes/Temp/tmp/RtmpavI3Lc/file11f6f6ab94758'
--- re-building ‘eudract.Rmd’ using rmarkdown
*** caught segfault ***
address 0x728477c932a8, cause 'invalid permissions'
Traceback:
1: xml_validate.xml_document(safety, schema_results)
2: xml2::xml_validate(safety, schema_results)
3: clintrials_gov_convert(input = simple, original = system.file("extdata", "1234.xml", package = "eudract"), output = ct_upload_file)
4: eval(expr, envir)
5: eval(expr, envir)
6: withVisible(eval(expr, envir))
7: withCallingHandlers(code, error = function (e) rlang::entrace(e), message = function (cnd) { watcher$capture_plot_and_output() if (on_message$capture) { watcher$push(cnd) } if (on_message$silence) { invokeRestart("muffleMessage") }}, warning = function (cnd) { if (getOption("warn") >= 2 || getOption("warn") < 0) { return() } watcher$capture_plot_and_output() if (on_warning$capture) { cnd <- sanitize_call(cnd) watcher$push(cnd) } if (on_warning$silence) { invokeRestart("muffleWarning") }}, error = function (cnd) { watcher$capture_plot_and_output() cnd <- sanitize_call(cnd) watcher$push(cnd) switch(on_error, continue = invokeRestart("eval_continue"), stop = invokeRestart("eval_stop"), error = NULL)})
8: eval(call)
9: eval(call)
10: with_handlers({ for (expr in tle$exprs) { ev <- withVisible(eval(expr, envir)) watcher$capture_plot_and_output() watcher$print_value(ev$value, ev$visible, envir) } TRUE}, handlers)
11: doWithOneRestart(return(expr), restart)
12: withOneRestart(expr, restarts[[1L]])
13: withRestartList(expr, restarts[-nr])
14: doWithOneRestart(return(expr), restart)
15: withOneRestart(withRestartList(expr, restarts[-nr]), restarts[[nr]])
16: withRestartList(expr, restarts)
17: withRestarts(with_handlers({ for (expr in tle$exprs) { ev <- withVisible(eval(expr, envir)) watcher$capture_plot_and_output() watcher$print_value(ev$value, ev$visible, envir) } TRUE}, handlers), eval_continue = function() TRUE, eval_stop = function() FALSE)
18: evaluate::evaluate(...)
19: evaluate(code, envir = env, new_device = FALSE, keep_warning = if (is.numeric(options$warning)) TRUE else options$warning, keep_message = if (is.numeric(options$message)) TRUE else options$message, stop_on_error = if (is.numeric(options$error)) options$error else { if (options$error && options$include) 0L else 2L }, output_handler = knit_handlers(options$render, options))
20: in_dir(input_dir(), expr)
21: in_input_dir(evaluate(code, envir = env, new_device = FALSE, keep_warning = if (is.numeric(options$warning)) TRUE else options$warning, keep_message = if (is.numeric(options$message)) TRUE else options$message, stop_on_error = if (is.numeric(options$error)) options$error else { if (options$error && options$include) 0L else 2L }, output_handler = knit_handlers(options$render, options)))
22: eng_r(options)
23: block_exec(params)
24: call_block(x)
25: process_group(group)
26: withCallingHandlers(if (tangle) process_tangle(group) else process_group(group), error = function(e) { if (progress && is.function(pb$interrupt)) pb$interrupt() if (is_R_CMD_build() || is_R_CMD_check()) error <<- format(e) })
27: with_options(withCallingHandlers(if (tangle) process_tangle(group) else process_group(group), error = function(e) { if (progress && is.function(pb$interrupt)) pb$interrupt() if (is_R_CMD_build() || is_R_CMD_check()) error <<- format(e) }), list(rlang_trace_top_env = knit_global()))
28: xfun:::handle_error(with_options(withCallingHandlers(if (tangle) process_tangle(group) else process_group(group), error = function(e) { if (progress && is.function(pb$interrupt)) pb$interrupt() if (is_R_CMD_build() || is_R_CMD_check()) error <<- format(e) }), list(rlang_trace_top_env = knit_global())), function(loc) { setwd(wd) write_utf8(res, output %n% stdout()) paste0("\nQuitting from ", loc, if (!is.null(error)) paste0("\n", rule(), error, "\n", rule()))}, if (labels[i] != "") sprintf(" [%s]", labels[i]), get_loc)
29: process_file(text, output)
30: knitr::knit(knit_input, knit_output, envir = envir, quiet = quiet)
31: rmarkdown::render(file, encoding = encoding, quiet = quiet, envir = globalenv(), output_dir = getwd(), ...)
32: vweave_rmarkdown(...)
33: engine$weave(file, quiet = quiet, encoding = enc)
34: doTryCatch(return(expr), name, parentenv, handler)
35: tryCatchOne(expr, names, parentenv, handlers[[1L]])
36: tryCatchList(expr, classes, parentenv, handlers)
37: tryCatch({ engine$weave(file, quiet = quiet, encoding = enc) setwd(startdir) output <- find_vignette_product(name, by = "weave", engine = engine) if (!have.makefile && vignette_is_tex(output)) { texi2pdf(file = output, clean = FALSE, quiet = quiet) output <- find_vignette_product(name, by = "texi2pdf", engine = engine) }}, error = function(e) { OK <<- FALSE message(gettextf("Error: processing vignette '%s' failed with diagnostics:\n%s", file, conditionMessage(e)))})
38: tools:::.buildOneVignette("eudract.Rmd", "/Volumes/Builds/packages/big-sur-arm64/results/4.5/eudract.Rcheck/vign_test/eudract", TRUE, FALSE, "eudract", "UTF-8", "/Volumes/Temp/tmp/RtmpavI3Lc/file11f6f773eaeae.rds")
An irrecoverable exception occurred. R is aborting now ...
--- re-building ‘standard_reporting.Rmd’ using rmarkdown
2026-01-19 23:44:42.523 R[75102:716537] XType: Using static font registry.
--- finished re-building ‘standard_reporting.Rmd’
SUMMARY: processing the following file failed:
‘eudract.Rmd’
Error: Vignette re-building failed.
Execution halted
Flavor: r-release-macos-arm64
Version: 1.1.0
Check: examples
Result: ERROR
Running examples in ‘eudract-Ex.R’ failed
The error most likely occurred in:
> ### Name: clintrials_gov_convert
> ### Title: applies a conversion using xslt from a simple xml file to a
> ### ClinicalTrials.gov compatible file, and checks against the schema
> ### Aliases: clintrials_gov_convert
>
> ### ** Examples
>
> safety_statistics <- safety_summary(safety,
+ exposed=c("Experimental"=60,"Control"=67))
> simple <- tempfile(fileext = ".xml")
> eudract <- tempfile(fileext = ".xml")
> ct <- tempfile(fileext = ".xml")
> simple_safety_xml(safety_statistics, simple)
'/Volumes/Temp/tmp/RtmprXzkrq/file15d237a9fff93.xml' is created or modified
> eudract_convert(input=simple,
+ output=eudract)
'/Volumes/Temp/tmp/RtmprXzkrq/file15d231e444aca.xml' is created or modified
Please email cuh.cctu@nhs.net to tell us if you have successfully uploaded a study to EudraCT.
This is to allow us to measure the impact of this tool.
> clintrials_gov_convert(input=simple,
+ original=system.file("extdata", "1234.xml", package ="eudract"),
+ output=ct)
'/Volumes/Temp/tmp/RtmprXzkrq/file15d23158a234c.xml' is created or modified
*** caught segfault ***
address 0x150880e40668, cause 'memory not mapped'
Traceback:
1: xml_validate.xml_document(safety, schema_results)
2: xml2::xml_validate(safety, schema_results)
3: clintrials_gov_convert(input = simple, original = system.file("extdata", "1234.xml", package = "eudract"), output = ct)
An irrecoverable exception occurred. R is aborting now ...
Flavor: r-release-macos-x86_64
Version: 1.1.0
Check: tests
Result: ERROR
Running ‘testthat.R’ [2s/3s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library(testthat)
> library(eudract)
>
> test_check("eudract")
*** caught segfault ***
address 0x0, cause 'unknown'
Traceback:
1: xml_validate.xml_document(safety, schema_results)
2: xml2::xml_validate(safety, schema_results)
3: clintrials_gov_convert(input = file.path(path, "simple.xml"), original = file.path(original_path, "1234.xml"), output = file.path(path, "table_ct.xml"))
4: eval(code, test_env)
5: eval(code, test_env)
6: 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)
7: doTryCatch(return(expr), name, parentenv, handler)
8: tryCatchOne(expr, names, parentenv, handlers[[1L]])
9: tryCatchList(expr, classes, parentenv, handlers)
10: 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)
11: doWithOneRestart(return(expr), restart)
12: withOneRestart(expr, restarts[[1L]])
13: 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() { })
14: test_code(code, parent.frame())
15: test_that("convert to ClinicalTrials.Gov", { clintrials_gov_convert(input = file.path(path, "simple.xml"), original = file.path(original_path, "1234.xml"), output = file.path(path, "table_ct.xml")) new <- read_xml(file.path(path, "table_ct.xml")) ref <- read_xml(file.path(reference_path, "table_ct.xml")) expect_equal(new, ref) if (Sys.getenv("ct_user") == "" | Sys.getenv("ct_pass") == "") { skip("Need to have the userid/password as environment variables") } output <- clintrials_gov_upload(input = file.path(path, "simple.xml"), backup = file.path(path, "bak_study_file.xml"), output = file.path(path, "study_file.xml"), orgname = "AddenbrookesH", username = Sys.getenv("ct_user"), password = Sys.getenv("ct_pass"), studyid = "1234", url = "https://prstest.clinicaltrials.gov/") expect_equal(names(output), c("download", "upload"))})
16: eval(code, test_env)
17: eval(code, test_env)
18: 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)
19: doTryCatch(return(expr), name, parentenv, handler)
20: tryCatchOne(expr, names, parentenv, handlers[[1L]])
21: tryCatchList(expr, classes, parentenv, handlers)
22: 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)
23: doWithOneRestart(return(expr), restart)
24: withOneRestart(expr, restarts[[1L]])
25: 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() { })
26: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new())
27: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call)
28: FUN(X[[i]], ...)
29: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)
30: doTryCatch(return(expr), name, parentenv, handler)
31: tryCatchOne(expr, names, parentenv, handlers[[1L]])
32: tryCatchList(expr, classes, parentenv, handlers)
33: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL})
34: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call))
35: 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)
36: 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)
37: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed")
38: test_check("eudract")
An irrecoverable exception occurred. R is aborting now ...
Flavor: r-release-macos-x86_64
Version: 1.1.0
Check: re-building of vignette outputs
Result: ERROR
Error(s) in re-building vignettes:
sh: line 1: 93232 Segmentation fault: 11 '/Library/Frameworks/R.framework/Resources/bin/R' --vanilla --no-echo > '/Volumes/Temp/tmp/Rtmp6UrWaS/file1645a74dc185b' 2>&1 < '/Volumes/Temp/tmp/Rtmp6UrWaS/file1645a1dc33a4d'
--- re-building ‘eudract.Rmd’ using rmarkdown
*** caught segfault ***
address 0x303d985e4d28, cause 'memory not mapped'
Traceback:
1: xml_validate.xml_document(safety, schema_results)
2: xml2::xml_validate(safety, schema_results)
3: clintrials_gov_convert(input = simple, original = system.file("extdata", "1234.xml", package = "eudract"), output = ct_upload_file)
4: eval(expr, envir)
5: eval(expr, envir)
6: withVisible(eval(expr, envir))
7: withCallingHandlers(code, error = function (e) rlang::entrace(e), message = function (cnd) { watcher$capture_plot_and_output() if (on_message$capture) { watcher$push(cnd) } if (on_message$silence) { invokeRestart("muffleMessage") }}, warning = function (cnd) { if (getOption("warn") >= 2 || getOption("warn") < 0) { return() } watcher$capture_plot_and_output() if (on_warning$capture) { cnd <- sanitize_call(cnd) watcher$push(cnd) } if (on_warning$silence) { invokeRestart("muffleWarning") }}, error = function (cnd) { watcher$capture_plot_and_output() cnd <- sanitize_call(cnd) watcher$push(cnd) switch(on_error, continue = invokeRestart("eval_continue"), stop = invokeRestart("eval_stop"), error = NULL)})
8: eval(call)
9: eval(call)
10: with_handlers({ for (expr in tle$exprs) { ev <- withVisible(eval(expr, envir)) watcher$capture_plot_and_output() watcher$print_value(ev$value, ev$visible, envir) } TRUE}, handlers)
11: doWithOneRestart(return(expr), restart)
12: withOneRestart(expr, restarts[[1L]])
13: withRestartList(expr, restarts[-nr])
14: doWithOneRestart(return(expr), restart)
15: withOneRestart(withRestartList(expr, restarts[-nr]), restarts[[nr]])
16: withRestartList(expr, restarts)
17: withRestarts(with_handlers({ for (expr in tle$exprs) { ev <- withVisible(eval(expr, envir)) watcher$capture_plot_and_output() watcher$print_value(ev$value, ev$visible, envir) } TRUE}, handlers), eval_continue = function() TRUE, eval_stop = function() FALSE)
18: evaluate::evaluate(...)
19: evaluate(code, envir = env, new_device = FALSE, keep_warning = if (is.numeric(options$warning)) TRUE else options$warning, keep_message = if (is.numeric(options$message)) TRUE else options$message, stop_on_error = if (is.numeric(options$error)) options$error else { if (options$error && options$include) 0L else 2L }, output_handler = knit_handlers(options$render, options))
20: in_dir(input_dir(), expr)
21: in_input_dir(evaluate(code, envir = env, new_device = FALSE, keep_warning = if (is.numeric(options$warning)) TRUE else options$warning, keep_message = if (is.numeric(options$message)) TRUE else options$message, stop_on_error = if (is.numeric(options$error)) options$error else { if (options$error && options$include) 0L else 2L }, output_handler = knit_handlers(options$render, options)))
22: eng_r(options)
23: block_exec(params)
24: call_block(x)
25: process_group(group)
26: withCallingHandlers(if (tangle) process_tangle(group) else process_group(group), error = function(e) { if (progress && is.function(pb$interrupt)) pb$interrupt() if (is_R_CMD_build() || is_R_CMD_check()) error <<- format(e) })
27: with_options(withCallingHandlers(if (tangle) process_tangle(group) else process_group(group), error = function(e) { if (progress && is.function(pb$interrupt)) pb$interrupt() if (is_R_CMD_build() || is_R_CMD_check()) error <<- format(e) }), list(rlang_trace_top_env = knit_global()))
28: xfun:::handle_error(with_options(withCallingHandlers(if (tangle) process_tangle(group) else process_group(group), error = function(e) { if (progress && is.function(pb$interrupt)) pb$interrupt() if (is_R_CMD_build() || is_R_CMD_check()) error <<- format(e) }), list(rlang_trace_top_env = knit_global())), function(loc) { setwd(wd) write_utf8(res, output %n% stdout()) paste0("\nQuitting from ", loc, if (!is.null(error)) paste0("\n", rule(), error, "\n", rule()))}, if (labels[i] != "") sprintf(" [%s]", labels[i]), get_loc)
29: process_file(text, output)
30: knitr::knit(knit_input, knit_output, envir = envir, quiet = quiet)
31: rmarkdown::render(file, encoding = encoding, quiet = quiet, envir = globalenv(), output_dir = getwd(), ...)
32: vweave_rmarkdown(...)
33: engine$weave(file, quiet = quiet, encoding = enc)
34: doTryCatch(return(expr), name, parentenv, handler)
35: tryCatchOne(expr, names, parentenv, handlers[[1L]])
36: tryCatchList(expr, classes, parentenv, handlers)
37: tryCatch({ engine$weave(file, quiet = quiet, encoding = enc) setwd(startdir) output <- find_vignette_product(name, by = "weave", engine = engine) if (!have.makefile && vignette_is_tex(output)) { texi2pdf(file = output, clean = FALSE, quiet = quiet) output <- find_vignette_product(name, by = "texi2pdf", engine = engine) }}, error = function(e) { OK <<- FALSE message(gettextf("Error: processing vignette '%s' failed with diagnostics:\n%s", file, conditionMessage(e)))})
38: tools:::.buildOneVignette("eudract.Rmd", "/Volumes/Builds/packages/big-sur-x86_64/results/4.5/eudract.Rcheck/vign_test/eudract", TRUE, FALSE, "eudract", "UTF-8", "/Volumes/Temp/tmp/Rtmp6UrWaS/file1645a287664ed.rds")
An irrecoverable exception occurred. R is aborting now ...
--- re-building ‘standard_reporting.Rmd’ using rmarkdown
--- finished re-building ‘standard_reporting.Rmd’
SUMMARY: processing the following file failed:
‘eudract.Rmd’
Error: Vignette re-building failed.
Execution halted
Flavor: r-release-macos-x86_64
Version: 1.1.0
Check: examples
Result: ERROR
Running examples in ‘eudract-Ex.R’ failed
The error most likely occurred in:
> ### Name: clintrials_gov_convert
> ### Title: applies a conversion using xslt from a simple xml file to a
> ### ClinicalTrials.gov compatible file, and checks against the schema
> ### Aliases: clintrials_gov_convert
>
> ### ** Examples
>
> safety_statistics <- safety_summary(safety,
+ exposed=c("Experimental"=60,"Control"=67))
> simple <- tempfile(fileext = ".xml")
> eudract <- tempfile(fileext = ".xml")
> ct <- tempfile(fileext = ".xml")
> simple_safety_xml(safety_statistics, simple)
'/Volumes/Temp/tmp/Rtmpn7aJTr/fileb2b497a580f.xml' is created or modified
> eudract_convert(input=simple,
+ output=eudract)
'/Volumes/Temp/tmp/Rtmpn7aJTr/fileb2b7f2b6678.xml' is created or modified
Please email cuh.cctu@nhs.net to tell us if you have successfully uploaded a study to EudraCT.
This is to allow us to measure the impact of this tool.
> clintrials_gov_convert(input=simple,
+ original=system.file("extdata", "1234.xml", package ="eudract"),
+ output=ct)
'/Volumes/Temp/tmp/Rtmpn7aJTr/fileb2b7a549181.xml' is created or modified
*** caught segfault ***
address 0x2d347bd7e048, cause 'invalid permissions'
Traceback:
1: xml_validate.xml_document(safety, schema_results)
2: xml2::xml_validate(safety, schema_results)
3: clintrials_gov_convert(input = simple, original = system.file("extdata", "1234.xml", package = "eudract"), output = ct)
An irrecoverable exception occurred. R is aborting now ...
Flavor: r-oldrel-macos-arm64
Version: 1.1.0
Check: tests
Result: ERROR
Running ‘testthat.R’ [1s/1s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library(testthat)
> library(eudract)
>
> test_check("eudract")
*** caught segfault ***
address 0x4eceb7c56048, cause 'invalid permissions'
Traceback:
1: xml_validate.xml_document(safety, schema_results)
2: xml2::xml_validate(safety, schema_results)
3: clintrials_gov_convert(input = file.path(path, "simple.xml"), original = file.path(original_path, "1234.xml"), output = file.path(path, "table_ct.xml"))
4: eval(code, test_env)
5: eval(code, test_env)
6: 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)
7: doTryCatch(return(expr), name, parentenv, handler)
8: tryCatchOne(expr, names, parentenv, handlers[[1L]])
9: tryCatchList(expr, classes, parentenv, handlers)
10: 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)
11: doWithOneRestart(return(expr), restart)
12: withOneRestart(expr, restarts[[1L]])
13: 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() { })
14: test_code(code, parent.frame())
15: test_that("convert to ClinicalTrials.Gov", { clintrials_gov_convert(input = file.path(path, "simple.xml"), original = file.path(original_path, "1234.xml"), output = file.path(path, "table_ct.xml")) new <- read_xml(file.path(path, "table_ct.xml")) ref <- read_xml(file.path(reference_path, "table_ct.xml")) expect_equal(new, ref) if (Sys.getenv("ct_user") == "" | Sys.getenv("ct_pass") == "") { skip("Need to have the userid/password as environment variables") } output <- clintrials_gov_upload(input = file.path(path, "simple.xml"), backup = file.path(path, "bak_study_file.xml"), output = file.path(path, "study_file.xml"), orgname = "AddenbrookesH", username = Sys.getenv("ct_user"), password = Sys.getenv("ct_pass"), studyid = "1234", url = "https://prstest.clinicaltrials.gov/") expect_equal(names(output), c("download", "upload"))})
16: eval(code, test_env)
17: eval(code, test_env)
18: 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)
19: doTryCatch(return(expr), name, parentenv, handler)
20: tryCatchOne(expr, names, parentenv, handlers[[1L]])
21: tryCatchList(expr, classes, parentenv, handlers)
22: 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)
23: doWithOneRestart(return(expr), restart)
24: withOneRestart(expr, restarts[[1L]])
25: 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() { })
26: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new())
27: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call)
28: FUN(X[[i]], ...)
29: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)
30: doTryCatch(return(expr), name, parentenv, handler)
31: tryCatchOne(expr, names, parentenv, handlers[[1L]])
32: tryCatchList(expr, classes, parentenv, handlers)
33: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL})
34: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call))
35: 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)
36: 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)
37: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed")
38: test_check("eudract")
An irrecoverable exception occurred. R is aborting now ...
Flavor: r-oldrel-macos-arm64
Version: 1.1.0
Check: re-building of vignette outputs
Result: ERROR
Error(s) in re-building vignettes:
sh: line 1: 3764 Segmentation fault: 11 '/Library/Frameworks/R.framework/Resources/bin/R' --vanilla --no-echo > '/Volumes/Temp/tmp/Rtmpgc4AMU/fileca035b5fa3d' 2>&1 < '/Volumes/Temp/tmp/Rtmpgc4AMU/fileca03e3fd657'
--- re-building ‘eudract.Rmd’ using rmarkdown
*** caught segfault ***
address 0x103f4e013068, cause 'invalid permissions'
Traceback:
1: xml_validate.xml_document(safety, schema_results)
2: xml2::xml_validate(safety, schema_results)
3: clintrials_gov_convert(input = simple, original = system.file("extdata", "1234.xml", package = "eudract"), output = ct_upload_file)
4: eval(expr, envir)
5: eval(expr, envir)
6: withVisible(eval(expr, envir))
7: withCallingHandlers(code, error = function (e) rlang::entrace(e), message = function (cnd) { watcher$capture_plot_and_output() if (on_message$capture) { watcher$push(cnd) } if (on_message$silence) { invokeRestart("muffleMessage") }}, warning = function (cnd) { if (getOption("warn") >= 2 || getOption("warn") < 0) { return() } watcher$capture_plot_and_output() if (on_warning$capture) { cnd <- sanitize_call(cnd) watcher$push(cnd) } if (on_warning$silence) { invokeRestart("muffleWarning") }}, error = function (cnd) { watcher$capture_plot_and_output() cnd <- sanitize_call(cnd) watcher$push(cnd) switch(on_error, continue = invokeRestart("eval_continue"), stop = invokeRestart("eval_stop"), error = NULL)})
8: eval(call)
9: eval(call)
10: with_handlers({ for (expr in tle$exprs) { ev <- withVisible(eval(expr, envir)) watcher$capture_plot_and_output() watcher$print_value(ev$value, ev$visible, envir) } TRUE}, handlers)
11: doWithOneRestart(return(expr), restart)
12: withOneRestart(expr, restarts[[1L]])
13: withRestartList(expr, restarts[-nr])
14: doWithOneRestart(return(expr), restart)
15: withOneRestart(withRestartList(expr, restarts[-nr]), restarts[[nr]])
16: withRestartList(expr, restarts)
17: withRestarts(with_handlers({ for (expr in tle$exprs) { ev <- withVisible(eval(expr, envir)) watcher$capture_plot_and_output() watcher$print_value(ev$value, ev$visible, envir) } TRUE}, handlers), eval_continue = function() TRUE, eval_stop = function() FALSE)
18: evaluate::evaluate(...)
19: evaluate(code, envir = env, new_device = FALSE, keep_warning = if (is.numeric(options$warning)) TRUE else options$warning, keep_message = if (is.numeric(options$message)) TRUE else options$message, stop_on_error = if (is.numeric(options$error)) options$error else { if (options$error && options$include) 0L else 2L }, output_handler = knit_handlers(options$render, options))
20: in_dir(input_dir(), expr)
21: in_input_dir(evaluate(code, envir = env, new_device = FALSE, keep_warning = if (is.numeric(options$warning)) TRUE else options$warning, keep_message = if (is.numeric(options$message)) TRUE else options$message, stop_on_error = if (is.numeric(options$error)) options$error else { if (options$error && options$include) 0L else 2L }, output_handler = knit_handlers(options$render, options)))
22: eng_r(options)
23: block_exec(params)
24: call_block(x)
25: process_group(group)
26: withCallingHandlers(if (tangle) process_tangle(group) else process_group(group), error = function(e) { if (progress && is.function(pb$interrupt)) pb$interrupt() if (is_R_CMD_build() || is_R_CMD_check()) error <<- format(e) })
27: with_options(withCallingHandlers(if (tangle) process_tangle(group) else process_group(group), error = function(e) { if (progress && is.function(pb$interrupt)) pb$interrupt() if (is_R_CMD_build() || is_R_CMD_check()) error <<- format(e) }), list(rlang_trace_top_env = knit_global()))
28: xfun:::handle_error(with_options(withCallingHandlers(if (tangle) process_tangle(group) else process_group(group), error = function(e) { if (progress && is.function(pb$interrupt)) pb$interrupt() if (is_R_CMD_build() || is_R_CMD_check()) error <<- format(e) }), list(rlang_trace_top_env = knit_global())), function(loc) { setwd(wd) write_utf8(res, output %n% stdout()) paste0("\nQuitting from ", loc, if (!is.null(error)) paste0("\n", rule(), error, "\n", rule()))}, if (labels[i] != "") sprintf(" [%s]", labels[i]), get_loc)
29: process_file(text, output)
30: knitr::knit(knit_input, knit_output, envir = envir, quiet = quiet)
31: rmarkdown::render(file, encoding = encoding, quiet = quiet, envir = globalenv(), output_dir = getwd(), ...)
32: vweave_rmarkdown(...)
33: engine$weave(file, quiet = quiet, encoding = enc)
34: doTryCatch(return(expr), name, parentenv, handler)
35: tryCatchOne(expr, names, parentenv, handlers[[1L]])
36: tryCatchList(expr, classes, parentenv, handlers)
37: tryCatch({ engine$weave(file, quiet = quiet, encoding = enc) setwd(startdir) output <- find_vignette_product(name, by = "weave", engine = engine) if (!have.makefile && vignette_is_tex(output)) { texi2pdf(file = output, clean = FALSE, quiet = quiet) output <- find_vignette_product(name, by = "texi2pdf", engine = engine) }}, error = function(e) { OK <<- FALSE message(gettextf("Error: processing vignette '%s' failed with diagnostics:\n%s", file, conditionMessage(e)))})
38: tools:::.buildOneVignette("eudract.Rmd", "/Volumes/Builds/packages/big-sur-arm64/results/4.4/eudract.Rcheck/vign_test/eudract", TRUE, FALSE, "eudract", "UTF-8", "/Volumes/Temp/tmp/Rtmpgc4AMU/fileca05bdda9c9.rds")
An irrecoverable exception occurred. R is aborting now ...
--- re-building ‘standard_reporting.Rmd’ using rmarkdown
2026-01-19 23:34:51.315 R[4759:309453] XType: Using static font registry.
--- finished re-building ‘standard_reporting.Rmd’
SUMMARY: processing the following file failed:
‘eudract.Rmd’
Error: Vignette re-building failed.
Execution halted
Flavor: r-oldrel-macos-arm64
Version: 1.1.0
Check: examples
Result: ERROR
Running examples in ‘eudract-Ex.R’ failed
The error most likely occurred in:
> ### Name: clintrials_gov_convert
> ### Title: applies a conversion using xslt from a simple xml file to a
> ### ClinicalTrials.gov compatible file, and checks against the schema
> ### Aliases: clintrials_gov_convert
>
> ### ** Examples
>
> safety_statistics <- safety_summary(safety,
+ exposed=c("Experimental"=60,"Control"=67))
> simple <- tempfile(fileext = ".xml")
> eudract <- tempfile(fileext = ".xml")
> ct <- tempfile(fileext = ".xml")
> simple_safety_xml(safety_statistics, simple)
'/Volumes/Temp/tmp/Rtmp42yBYk/file74a87b2bc716.xml' is created or modified
> eudract_convert(input=simple,
+ output=eudract)
'/Volumes/Temp/tmp/Rtmp42yBYk/file74a8771bb486.xml' is created or modified
Please email cuh.cctu@nhs.net to tell us if you have successfully uploaded a study to EudraCT.
This is to allow us to measure the impact of this tool.
> clintrials_gov_convert(input=simple,
+ original=system.file("extdata", "1234.xml", package ="eudract"),
+ output=ct)
'/Volumes/Temp/tmp/Rtmp42yBYk/file74a83be90681.xml' is created or modified
*** caught segfault ***
address 0x0, cause 'unknown'
Traceback:
1: xml_validate.xml_document(safety, schema_results)
2: xml2::xml_validate(safety, schema_results)
3: clintrials_gov_convert(input = simple, original = system.file("extdata", "1234.xml", package = "eudract"), output = ct)
An irrecoverable exception occurred. R is aborting now ...
Flavor: r-oldrel-macos-x86_64
Version: 1.1.0
Check: tests
Result: ERROR
Running ‘testthat.R’ [2s/7s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library(testthat)
> library(eudract)
>
> test_check("eudract")
*** caught segfault ***
address 0x0, cause 'unknown'
Traceback:
1: xml_validate.xml_document(safety, schema_results)
2: xml2::xml_validate(safety, schema_results)
3: clintrials_gov_convert(input = file.path(path, "simple.xml"), original = file.path(original_path, "1234.xml"), output = file.path(path, "table_ct.xml"))
4: eval(code, test_env)
5: eval(code, test_env)
6: 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)
7: doTryCatch(return(expr), name, parentenv, handler)
8: tryCatchOne(expr, names, parentenv, handlers[[1L]])
9: tryCatchList(expr, classes, parentenv, handlers)
10: 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)
11: doWithOneRestart(return(expr), restart)
12: withOneRestart(expr, restarts[[1L]])
13: 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() { })
14: test_code(code, parent.frame())
15: test_that("convert to ClinicalTrials.Gov", { clintrials_gov_convert(input = file.path(path, "simple.xml"), original = file.path(original_path, "1234.xml"), output = file.path(path, "table_ct.xml")) new <- read_xml(file.path(path, "table_ct.xml")) ref <- read_xml(file.path(reference_path, "table_ct.xml")) expect_equal(new, ref) if (Sys.getenv("ct_user") == "" | Sys.getenv("ct_pass") == "") { skip("Need to have the userid/password as environment variables") } output <- clintrials_gov_upload(input = file.path(path, "simple.xml"), backup = file.path(path, "bak_study_file.xml"), output = file.path(path, "study_file.xml"), orgname = "AddenbrookesH", username = Sys.getenv("ct_user"), password = Sys.getenv("ct_pass"), studyid = "1234", url = "https://prstest.clinicaltrials.gov/") expect_equal(names(output), c("download", "upload"))})
16: eval(code, test_env)
17: eval(code, test_env)
18: 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)
19: doTryCatch(return(expr), name, parentenv, handler)
20: tryCatchOne(expr, names, parentenv, handlers[[1L]])
21: tryCatchList(expr, classes, parentenv, handlers)
22: 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)
23: doWithOneRestart(return(expr), restart)
24: withOneRestart(expr, restarts[[1L]])
25: 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() { })
26: test_code(code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new())
27: source_file(path, env = env(env), desc = desc, shuffle = shuffle, error_call = error_call)
28: FUN(X[[i]], ...)
29: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call)
30: doTryCatch(return(expr), name, parentenv, handler)
31: tryCatchOne(expr, names, parentenv, handlers[[1L]])
32: tryCatchList(expr, classes, parentenv, handlers)
33: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL})
34: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle, error_call = error_call))
35: 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)
36: 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)
37: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed")
38: test_check("eudract")
An irrecoverable exception occurred. R is aborting now ...
Flavor: r-oldrel-macos-x86_64
Version: 1.1.0
Check: re-building of vignette outputs
Result: ERROR
Error(s) in re-building vignettes:
sh: line 1: 31083 Segmentation fault: 11 '/Library/Frameworks/R.framework/Resources/bin/R' --vanilla --no-echo > '/Volumes/Temp/tmp/Rtmpbw5QeB/file762a21e7f826' 2>&1 < '/Volumes/Temp/tmp/Rtmpbw5QeB/file762a454982e'
--- re-building ‘eudract.Rmd’ using rmarkdown
*** caught segfault ***
address 0x0, cause 'unknown'
Traceback:
1: xml_validate.xml_document(safety, schema_results)
2: xml2::xml_validate(safety, schema_results)
3: clintrials_gov_convert(input = simple, original = system.file("extdata", "1234.xml", package = "eudract"), output = ct_upload_file)
4: eval(expr, envir)
5: eval(expr, envir)
6: withVisible(eval(expr, envir))
7: withCallingHandlers(code, error = function (e) rlang::entrace(e), message = function (cnd) { watcher$capture_plot_and_output() if (on_message$capture) { watcher$push(cnd) } if (on_message$silence) { invokeRestart("muffleMessage") }}, warning = function (cnd) { if (getOption("warn") >= 2 || getOption("warn") < 0) { return() } watcher$capture_plot_and_output() if (on_warning$capture) { cnd <- sanitize_call(cnd) watcher$push(cnd) } if (on_warning$silence) { invokeRestart("muffleWarning") }}, error = function (cnd) { watcher$capture_plot_and_output() cnd <- sanitize_call(cnd) watcher$push(cnd) switch(on_error, continue = invokeRestart("eval_continue"), stop = invokeRestart("eval_stop"), error = NULL)})
8: eval(call)
9: eval(call)
10: with_handlers({ for (expr in tle$exprs) { ev <- withVisible(eval(expr, envir)) watcher$capture_plot_and_output() watcher$print_value(ev$value, ev$visible, envir) } TRUE}, handlers)
11: doWithOneRestart(return(expr), restart)
12: withOneRestart(expr, restarts[[1L]])
13: withRestartList(expr, restarts[-nr])
14: doWithOneRestart(return(expr), restart)
15: withOneRestart(withRestartList(expr, restarts[-nr]), restarts[[nr]])
16: withRestartList(expr, restarts)
17: withRestarts(with_handlers({ for (expr in tle$exprs) { ev <- withVisible(eval(expr, envir)) watcher$capture_plot_and_output() watcher$print_value(ev$value, ev$visible, envir) } TRUE}, handlers), eval_continue = function() TRUE, eval_stop = function() FALSE)
18: evaluate::evaluate(...)
19: evaluate(code, envir = env, new_device = FALSE, keep_warning = if (is.numeric(options$warning)) TRUE else options$warning, keep_message = if (is.numeric(options$message)) TRUE else options$message, stop_on_error = if (is.numeric(options$error)) options$error else { if (options$error && options$include) 0L else 2L }, output_handler = knit_handlers(options$render, options))
20: in_dir(input_dir(), expr)
21: in_input_dir(evaluate(code, envir = env, new_device = FALSE, keep_warning = if (is.numeric(options$warning)) TRUE else options$warning, keep_message = if (is.numeric(options$message)) TRUE else options$message, stop_on_error = if (is.numeric(options$error)) options$error else { if (options$error && options$include) 0L else 2L }, output_handler = knit_handlers(options$render, options)))
22: eng_r(options)
23: block_exec(params)
24: call_block(x)
25: process_group(group)
26: withCallingHandlers(if (tangle) process_tangle(group) else process_group(group), error = function(e) { if (progress && is.function(pb$interrupt)) pb$interrupt() if (is_R_CMD_build() || is_R_CMD_check()) error <<- format(e) })
27: with_options(withCallingHandlers(if (tangle) process_tangle(group) else process_group(group), error = function(e) { if (progress && is.function(pb$interrupt)) pb$interrupt() if (is_R_CMD_build() || is_R_CMD_check()) error <<- format(e) }), list(rlang_trace_top_env = knit_global()))
28: xfun:::handle_error(with_options(withCallingHandlers(if (tangle) process_tangle(group) else process_group(group), error = function(e) { if (progress && is.function(pb$interrupt)) pb$interrupt() if (is_R_CMD_build() || is_R_CMD_check()) error <<- format(e) }), list(rlang_trace_top_env = knit_global())), function(loc) { setwd(wd) write_utf8(res, output %n% stdout()) paste0("\nQuitting from ", loc, if (!is.null(error)) paste0("\n", rule(), error, "\n", rule()))}, if (labels[i] != "") sprintf(" [%s]", labels[i]), get_loc)
29: process_file(text, output)
30: knitr::knit(knit_input, knit_output, envir = envir, quiet = quiet)
31: rmarkdown::render(file, encoding = encoding, quiet = quiet, envir = globalenv(), output_dir = getwd(), ...)
32: vweave_rmarkdown(...)
33: engine$weave(file, quiet = quiet, encoding = enc)
34: doTryCatch(return(expr), name, parentenv, handler)
35: tryCatchOne(expr, names, parentenv, handlers[[1L]])
36: tryCatchList(expr, classes, parentenv, handlers)
37: tryCatch({ engine$weave(file, quiet = quiet, encoding = enc) setwd(startdir) output <- find_vignette_product(name, by = "weave", engine = engine) if (!have.makefile && vignette_is_tex(output)) { texi2pdf(file = output, clean = FALSE, quiet = quiet) output <- find_vignette_product(name, by = "texi2pdf", engine = engine) }}, error = function(e) { OK <<- FALSE message(gettextf("Error: processing vignette '%s' failed with diagnostics:\n%s", file, conditionMessage(e)))})
38: tools:::.buildOneVignette("eudract.Rmd", "/Volumes/Builds/packages/big-sur-x86_64/results/4.4/eudract.Rcheck/vign_test/eudract", TRUE, FALSE, "eudract", "UTF-8", "/Volumes/Temp/tmp/Rtmpbw5QeB/file762a28427080.rds")
An irrecoverable exception occurred. R is aborting now ...
--- re-building ‘standard_reporting.Rmd’ using rmarkdown
--- finished re-building ‘standard_reporting.Rmd’
SUMMARY: processing the following file failed:
‘eudract.Rmd’
Error: Vignette re-building failed.
Execution halted
Flavor: r-oldrel-macos-x86_64
These binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.
Health stats visible at Monitor.