Last updated on 2025-12-08 11:50:59 CET.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 0.3.3 | 16.87 | 208.55 | 225.42 | OK | |
| r-devel-linux-x86_64-debian-gcc | 0.3.3 | 11.19 | 146.14 | 157.33 | OK | |
| r-devel-linux-x86_64-fedora-clang | 0.3.3 | 49.00 | 235.17 | 284.17 | ERROR | |
| r-devel-linux-x86_64-fedora-gcc | 0.3.3 | 65.00 | 292.85 | 357.85 | OK | |
| r-devel-windows-x86_64 | 0.3.3 | 18.00 | 184.00 | 202.00 | OK | |
| r-patched-linux-x86_64 | 0.3.3 | 14.38 | 196.36 | 210.74 | OK | |
| r-release-linux-x86_64 | 0.3.3 | 13.41 | 195.52 | 208.93 | OK | |
| r-release-macos-arm64 | 0.3.3 | OK | ||||
| r-release-macos-x86_64 | 0.3.3 | 14.00 | 98.00 | 112.00 | OK | |
| r-release-windows-x86_64 | 0.3.3 | 17.00 | 183.00 | 200.00 | OK | |
| r-oldrel-macos-arm64 | 0.3.3 | OK | ||||
| r-oldrel-macos-x86_64 | 0.3.3 | 13.00 | 105.00 | 118.00 | OK | |
| r-oldrel-windows-x86_64 | 0.3.3 | 25.00 | 248.00 | 273.00 | OK |
Version: 0.3.3
Check: examples
Result: ERROR
Running examples in ‘tern.mmrm-Ex.R’ failed
The error most likely occurred in:
> ### Name: g_mmrm_lsmeans
> ### Title: Plot LS means for MMRM
> ### Aliases: g_mmrm_lsmeans
>
> ### ** Examples
>
> library(dplyr)
Attaching package: ‘dplyr’
The following objects are masked from ‘package:stats’:
filter, lag
The following objects are masked from ‘package:base’:
intersect, setdiff, setequal, union
>
> mmrm_results <- fit_mmrm(
+ vars = list(
+ response = "FEV1",
+ covariates = c("RACE", "SEX"),
+ id = "USUBJID",
+ arm = "ARMCD",
+ visit = "AVISIT"
+ ),
+ data = mmrm_test_data,
+ cor_struct = "unstructured",
+ weights_emmeans = "equal"
+ )
> g_mmrm_lsmeans(mmrm_results, constant_baseline = c(BSL = 0))
Coordinate system already present.
ℹ Adding new coordinate system, which will replace the existing one.
> g_mmrm_lsmeans(
+ mmrm_results,
+ select = "estimates",
+ show_lines = TRUE,
+ xlab = "Visit"
+ )
> g_mmrm_lsmeans(
+ mmrm_results,
+ select = "contrasts",
+ titles = c(contrasts = "Contrasts of FKSI-FWB means"),
+ show_pval = TRUE,
+ show_lines = TRUE,
+ width = 0.8
+ )
Coordinate system already present.
ℹ Adding new coordinate system, which will replace the existing one.
>
> mmrm_test_data2 <- mmrm_test_data %>%
+ filter(ARMCD == "TRT")
>
> mmrm_results_no_arm <- fit_mmrm(
+ vars = list(
+ response = "FEV1",
+ covariates = c("RACE", "SEX"),
+ id = "USUBJID",
+ visit = "AVISIT"
+ ),
+ data = mmrm_test_data2,
+ cor_struct = "unstructured",
+ weights_emmeans = "equal"
+ )
>
> g_mmrm_lsmeans(mmrm_results_no_arm, select = "estimates")
> g_mmrm_lsmeans(
+ mmrm_results_no_arm,
+ select = c("estimates", "contrasts"),
+ titles = c(
+ estimates = "Adjusted mean of FKSI-FWB",
+ contrasts = "it will not be created"
+ ),
+ show_pval = TRUE,
+ width = 0.8
+ )
>
> g_mmrm_lsmeans(
+ mmrm_results_no_arm,
+ select = "estimates",
+ titles = c(estimates = "Adjusted mean of FKSI-FWB"),
+ show_pval = TRUE,
+ width = 0.8,
+ show_lines = TRUE
+ )
`geom_line()`: Each group consists of only one observation.
ℹ Do you need to adjust the group aesthetic?
>
> g_mmrm_lsmeans(
+ mmrm_results,
+ select = "estimates",
+ titles = c(estimates = "Adjusted mean of FKSI-FWB"),
+ table_stats = c("n", "ci")
+ )
Error in match.arg(round_type) : 'arg' must be of length 1
Calls: g_mmrm_lsmeans ... format_cell -> format_rcell -> format_value -> match.arg
Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang
Version: 0.3.3
Check: tests
Result: ERROR
Running ‘testthat.R’ [43s/44s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> pkg_name <- "tern.mmrm"
> library(testthat)
> is_on_ci <- isTRUE(as.logical(Sys.getenv("CI")))
> if (is_on_ci) {
+ reporter <- MultiReporter$new(list(
+ CheckReporter$new()
+ ))
+ test_results <- test_check(pkg_name, reporter = reporter)
+ saveRDS(test_results, "unit_testing_results.rds")
+ } else {
+ reporter <- ParallelProgressReporter$new()
+ test_check(pkg_name, reporter = reporter)
+ }
Loading required package: tern.mmrm
Loading required package: tern
Loading required package: rtables
Loading required package: formatters
Attaching package: 'formatters'
The following object is masked from 'package:base':
%||%
Loading required package: magrittr
Attaching package: 'magrittr'
The following objects are masked from 'package:testthat':
equals, is_less_than, not
Attaching package: 'rtables'
The following object is masked from 'package:utils':
str
✔ | F W S OK | Context
⠋ [ FAIL 0 | WARN 0 | SKIP 0 | PASS 0 ] Starting up...
✔ | 31 | assert_data [1.1s]
Attaching package: 'dplyr'
The following objects are masked from 'package:stats':
filter, lag
The following objects are masked from 'package:base':
intersect, setdiff, setequal, union
mmrm() registered as emmeans extension
✔ | 40 | fit_mmrm [8.3s]
✔ | 4 | formula
✖ | 5 11 15 | g_mmrm [15.3s]
────────────────────────────────────────────────────────────────────────────────
Error ('test-g_mmrm.R:163:3'): g_mmrm_lsmeans plots stats table for estimates as expected
Error in `match.arg(round_type)`: 'arg' must be of length 1
Backtrace:
▆
1. ├─testthat::expect_silent(...) at test-g_mmrm.R:163:3
2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
3. │ ├─testthat (local) .capture(...)
4. │ │ ├─withr::with_output_sink(...)
5. │ │ │ └─base::force(code)
6. │ │ ├─base::withCallingHandlers(...)
7. │ │ └─base::withVisible(code)
8. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
9. └─tern.mmrm::g_mmrm_lsmeans(...)
10. ├─base::cbind(...)
11. │ └─base::cbind(deparse.level, ...)
12. │ └─base::data.frame(..., check.names = FALSE)
13. └─tern::h_format_row(...)
14. ├─base::do.call(...)
15. └─base::lapply(...)
16. └─tern (local) FUN(X[[i]], ...)
17. └─tern (local) format_cell(x[[xn]], format = format[[xn]], label = labels[xn])
18. └─rtables::format_rcell(x = x, format = format)
19. └─formatters::format_value(...)
20. └─base::match.arg(round_type)
Error ('test-g_mmrm.R:176:3'): g_mmrm_lsmeans plots estimates stats table with custom settings
Error in `match.arg(round_type)`: 'arg' must be of length 1
Backtrace:
▆
1. ├─testthat::expect_silent(...) at test-g_mmrm.R:176:3
2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
3. │ ├─testthat (local) .capture(...)
4. │ │ ├─withr::with_output_sink(...)
5. │ │ │ └─base::force(code)
6. │ │ ├─base::withCallingHandlers(...)
7. │ │ └─base::withVisible(code)
8. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
9. └─tern.mmrm::g_mmrm_lsmeans(...)
10. ├─base::cbind(...)
11. │ └─base::cbind(deparse.level, ...)
12. │ └─base::data.frame(..., check.names = FALSE)
13. └─tern::h_format_row(...)
14. ├─base::do.call(...)
15. └─base::lapply(...)
16. └─tern (local) FUN(X[[i]], ...)
17. └─tern (local) format_cell(x[[xn]], format = format[[xn]], label = labels[xn])
18. └─rtables::format_rcell(x = x, format = format)
19. └─formatters::format_value(...)
20. └─base::match.arg(round_type)
Error ('test-g_mmrm.R:203:3'): g_mmrm_lsmeans plots estimates stats table also without arms
Error in `match.arg(round_type)`: 'arg' must be of length 1
Backtrace:
▆
1. ├─testthat::expect_silent(...) at test-g_mmrm.R:203:3
2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
3. │ ├─testthat (local) .capture(...)
4. │ │ ├─withr::with_output_sink(...)
5. │ │ │ └─base::force(code)
6. │ │ ├─base::withCallingHandlers(...)
7. │ │ └─base::withVisible(code)
8. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
9. └─tern.mmrm::g_mmrm_lsmeans(...)
10. ├─base::cbind(...)
11. │ └─base::cbind(deparse.level, ...)
12. │ └─base::data.frame(..., check.names = FALSE)
13. └─tern::h_format_row(...)
14. ├─base::do.call(...)
15. └─base::lapply(...)
16. └─tern (local) FUN(X[[i]], ...)
17. └─tern (local) format_cell(x[[xn]], format = format[[xn]], label = labels[xn])
18. └─rtables::format_rcell(x = x, format = format)
19. └─formatters::format_value(...)
20. └─base::match.arg(round_type)
Error ('test-g_mmrm.R:216:3'): g_mmrm_lsmeans plots estimates stats table also with constant baseline
Error in `match.arg(round_type)`: 'arg' must be of length 1
Backtrace:
▆
1. ├─testthat::expect_silent(...) at test-g_mmrm.R:216:3
2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
3. │ ├─testthat (local) .capture(...)
4. │ │ ├─withr::with_output_sink(...)
5. │ │ │ └─base::force(code)
6. │ │ ├─base::withCallingHandlers(...)
7. │ │ └─base::withVisible(code)
8. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
9. └─tern.mmrm::g_mmrm_lsmeans(...)
10. ├─base::cbind(...)
11. │ └─base::cbind(deparse.level, ...)
12. │ └─base::data.frame(..., check.names = FALSE)
13. └─tern::h_format_row(...)
14. ├─base::do.call(...)
15. └─base::lapply(...)
16. └─tern (local) FUN(X[[i]], ...)
17. └─tern (local) format_cell(x[[xn]], format = format[[xn]], label = labels[xn])
18. └─rtables::format_rcell(x = x, format = format)
19. └─formatters::format_value(...)
20. └─base::match.arg(round_type)
Error ('test-g_mmrm.R:231:3'): g_mmrm_lsmeans plots estimates stats table also with constant baseline and without arms
Error in `match.arg(round_type)`: 'arg' must be of length 1
Backtrace:
▆
1. ├─testthat::expect_silent(...) at test-g_mmrm.R:231:3
2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
3. │ ├─testthat (local) .capture(...)
4. │ │ ├─withr::with_output_sink(...)
5. │ │ │ └─base::force(code)
6. │ │ ├─base::withCallingHandlers(...)
7. │ │ └─base::withVisible(code)
8. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
9. └─tern.mmrm::g_mmrm_lsmeans(...)
10. ├─base::cbind(...)
11. │ └─base::cbind(deparse.level, ...)
12. │ └─base::data.frame(..., check.names = FALSE)
13. └─tern::h_format_row(...)
14. ├─base::do.call(...)
15. └─base::lapply(...)
16. └─tern (local) FUN(X[[i]], ...)
17. └─tern (local) format_cell(x[[xn]], format = format[[xn]], label = labels[xn])
18. └─rtables::format_rcell(x = x, format = format)
19. └─formatters::format_value(...)
20. └─base::match.arg(round_type)
────────────────────────────────────────────────────────────────────────────────
✔ | 10 | labels
✔ | 5 45 | lsmeans [2.3s]
✖ | 2 4 5 | subgroups [8.0s]
────────────────────────────────────────────────────────────────────────────────
Error ('test-subgroups.R:160:3'): tabulate_mmrm_subgroups works as expected
Error in `match.arg(round_type)`: 'arg' must be of length 1
Backtrace:
▆
1. ├─testthat::expect_silent(tab <- basic_table() %>% tabulate_mmrm_subgroups(df)) at test-subgroups.R:160:3
2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
3. │ ├─testthat (local) .capture(...)
4. │ │ ├─withr::with_output_sink(...)
5. │ │ │ └─base::force(code)
6. │ │ ├─base::withCallingHandlers(...)
7. │ │ └─base::withVisible(code)
8. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
9. ├─basic_table() %>% tabulate_mmrm_subgroups(df)
10. └─tern.mmrm::tabulate_mmrm_subgroups(., df)
11. └─rtables::build_table(lyt_estimates, df = df$estimates)
12. └─rtables::update_ref_indexing(tab)
13. ├─formatters::make_row_df(tt)
14. └─rtables::make_row_df(tt)
15. └─rtables (local) .local(...)
16. ├─formatters::make_row_df(...)
17. └─rtables::make_row_df(...)
18. └─rtables (local) .local(...)
19. ├─formatters::make_row_df(...)
20. └─rtables::make_row_df(...)
21. └─rtables (local) .local(...)
22. ├─formatters::make_row_df(...)
23. └─rtables::make_row_df(...)
24. └─rtables (local) .local(...)
25. ├─formatters::make_row_df(...)
26. └─rtables::make_row_df(...)
27. └─rtables (local) .local(...)
28. ├─formatters::pagdfrow(...)
29. │ └─base::data.frame(...)
30. ├─formatters::nlines(...)
31. └─rtables::nlines(...)
32. ├─base::as.vector(get_formatted_cells(x))
33. ├─rtables::get_formatted_cells(x)
34. └─rtables::get_formatted_cells(x)
35. ├─base::matrix(...)
36. ├─base::unlist(...)
37. └─base::Map(...)
38. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
39. └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
40. └─rtables::format_rcell(...)
41. └─formatters::format_value(...)
42. └─base::match.arg(round_type)
Error ('test-subgroups.R:181:3'): tabulate_mmrm_subgroups with custom settings works as expected
Error in `match.arg(round_type)`: 'arg' must be of length 1
Backtrace:
▆
1. ├─testthat::expect_silent(...) at test-subgroups.R:181:3
2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
3. │ ├─testthat (local) .capture(...)
4. │ │ ├─withr::with_output_sink(...)
5. │ │ │ └─base::force(code)
6. │ │ ├─base::withCallingHandlers(...)
7. │ │ └─base::withVisible(code)
8. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
9. ├─basic_table() %>% ...
10. └─tern.mmrm::tabulate_mmrm_subgroups(...)
11. └─rtables::build_table(lyt_contrasts, df = df$contrasts)
12. └─rtables::update_ref_indexing(tab)
13. ├─formatters::make_row_df(tt)
14. └─rtables::make_row_df(tt)
15. └─rtables (local) .local(...)
16. ├─formatters::make_row_df(...)
17. └─rtables::make_row_df(...)
18. └─rtables (local) .local(...)
19. ├─formatters::make_row_df(...)
20. └─rtables::make_row_df(...)
21. └─rtables (local) .local(...)
22. ├─formatters::make_row_df(...)
23. └─rtables::make_row_df(...)
24. └─rtables (local) .local(...)
25. ├─formatters::make_row_df(...)
26. └─rtables::make_row_df(...)
27. └─rtables (local) .local(...)
28. ├─formatters::pagdfrow(...)
29. │ └─base::data.frame(...)
30. ├─formatters::nlines(...)
31. └─rtables::nlines(...)
32. ├─base::as.vector(get_formatted_cells(x))
33. ├─rtables::get_formatted_cells(x)
34. └─rtables::get_formatted_cells(x)
35. ├─base::matrix(...)
36. ├─base::unlist(...)
37. └─base::Map(...)
38. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
39. └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
40. └─rtables::format_rcell(...)
41. └─formatters::format_value(...)
42. └─base::match.arg(round_type)
────────────────────────────────────────────────────────────────────────────────
⠙ [ FAIL 11 | WARN 0 | SKIP 20 | PASS 150 ] @ table_mmrmt01
────────────────────────────────────────────────────────────────────────────────
Error ('test-table_mmrmt01.R:22:3'): LS means table is produced correctly
Error in `match.arg(round_type)`: 'arg' must be of length 1
Backtrace:
▆
1. ├─... %>% build_table(df, alt_counts_df = mmrm_test_data) at test-table_mmrmt01.R:22:3
2. └─rtables::build_table(., df, alt_counts_df = mmrm_test_data)
3. └─rtables::update_ref_indexing(tab)
4. ├─formatters::make_row_df(tt)
5. └─rtables::make_row_df(tt)
6. └─rtables (local) .local(...)
7. ├─formatters::make_row_df(...)
8. └─rtables::make_row_df(...)
9. └─rtables (local) .local(...)
10. ├─formatters::make_row_df(...)
11. └─rtables::make_row_df(...)
12. └─rtables (local) .local(...)
13. ├─formatters::make_row_df(...)
14. └─rtables::make_row_df(...)
15. └─rtables (local) .local(...)
16. ├─formatters::pagdfrow(...)
17. │ └─base::data.frame(...)
18. ├─formatters::nlines(...)
19. └─rtables::nlines(...)
20. ├─base::as.vector(get_formatted_cells(x))
21. ├─rtables::get_formatted_cells(x)
22. └─rtables::get_formatted_cells(x)
23. ├─base::matrix(...)
24. ├─base::unlist(...)
25. └─base::Map(...)
26. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
27. └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
28. └─rtables::format_rcell(...)
29. └─formatters::format_value(...)
30. └─base::match.arg(round_type)
Error ('test-table_mmrmt01.R:46:3'): Fixed effects table is produced correctly
Error in `h(simpleError(msg, call))`: error in evaluating the argument 'x' in selecting a method for function 'toString': 'arg' must be of length 1
Backtrace:
▆
1. ├─testthat::expect_snapshot(result) at test-table_mmrmt01.R:46:3
2. │ └─testthat:::expect_snapshot_(...)
3. │ ├─testthat:::with_is_snapshotting(...)
4. │ └─testthat:::verify_exec(quo_get_expr(x), quo_get_env(x), replay)
5. │ └─evaluate::evaluate(source, envir = env, new_device = FALSE, output_handler = handler)
6. │ ├─base::withRestarts(...)
7. │ │ └─base (local) withRestartList(expr, restarts)
8. │ │ ├─base (local) withOneRestart(withRestartList(expr, restarts[-nr]), restarts[[nr]])
9. │ │ │ └─base (local) doWithOneRestart(return(expr), restart)
10. │ │ └─base (local) withRestartList(expr, restarts[-nr])
11. │ │ └─base (local) withOneRestart(expr, restarts[[1L]])
12. │ │ └─base (local) doWithOneRestart(return(expr), restart)
13. │ ├─evaluate:::with_handlers(...)
14. │ │ ├─base::eval(call)
15. │ │ │ └─base::eval(call)
16. │ │ └─base::withCallingHandlers(...)
17. │ └─watcher$print_value(ev$value, ev$visible, envir)
18. │ ├─base::withVisible(handle_value(handler, value, visible, envir))
19. │ └─evaluate:::handle_value(handler, value, visible, envir)
20. │ ├─handler$value(value)
21. │ └─testthat:::testthat_print.default(value)
22. │ ├─base::print(x)
23. │ └─base::print.default(x)
24. │ ├─methods (local) `<stndrdGn>`(`<ElmntryT[,5]>`)
25. │ └─rtables (local) `<stndrdGn>`(`<ElmntryT[,5]>`)
26. │ ├─base::cat(toString(object))
27. │ ├─base::toString(object)
28. │ └─rtables::toString(object)
29. │ └─rtables (local) .local(x, ...)
30. │ ├─base::toString(...)
31. │ ├─formatters::matrix_form(...)
32. │ └─rtables::matrix_form(...)
33. │ └─rtables:::.tbl_header_mat(obj)
34. │ ├─base::matrix(...)
35. │ └─base::rapply(...)
36. │ └─rtables (local) `<fn>`(X, ...)
37. │ ├─rtables::get_formatted_cells(x)
38. │ └─rtables::get_formatted_cells(x)
39. │ ├─base::matrix(...)
40. │ ├─base::unlist(...)
41. │ └─base::Map(...)
42. │ └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
43. │ └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
44. │ └─rtables::format_rcell(...)
45. │ └─formatters::format_value(...)
46. │ └─base::match.arg(round_type)
47. │ └─base::stop(gettextf("'%s' must be of length 1", "arg"), domain = NA)
48. └─base::.handleSimpleError(...)
49. └─base (local) h(simpleError(msg, call))
Error ('test-table_mmrmt01.R:51:3'): Covariance matrix table is produced correctly
Error in `h(simpleError(msg, call))`: error in evaluating the argument 'x' in selecting a method for function 'toString': 'arg' must be of length 1
Backtrace:
▆
1. ├─testthat::expect_snapshot(result) at test-table_mmrmt01.R:51:3
2. │ └─testthat:::expect_snapshot_(...)
3. │ ├─testthat:::with_is_snapshotting(...)
4. │ └─testthat:::verify_exec(quo_get_expr(x), quo_get_env(x), replay)
5. │ └─evaluate::evaluate(source, envir = env, new_device = FALSE, output_handler = handler)
6. │ ├─base::withRestarts(...)
7. │ │ └─base (local) withRestartList(expr, restarts)
8. │ │ ├─base (local) withOneRestart(withRestartList(expr, restarts[-nr]), restarts[[nr]])
9. │ │ │ └─base (local) doWithOneRestart(return(expr), restart)
10. │ │ └─base (local) withRestartList(expr, restarts[-nr])
11. │ │ └─base (local) withOneRestart(expr, restarts[[1L]])
12. │ │ └─base (local) doWithOneRestart(return(expr), restart)
13. │ ├─evaluate:::with_handlers(...)
14. │ │ ├─base::eval(call)
15. │ │ │ └─base::eval(call)
16. │ │ └─base::withCallingHandlers(...)
17. │ └─watcher$print_value(ev$value, ev$visible, envir)
18. │ ├─base::withVisible(handle_value(handler, value, visible, envir))
19. │ └─evaluate:::handle_value(handler, value, visible, envir)
20. │ ├─handler$value(value)
21. │ └─testthat:::testthat_print.default(value)
22. │ ├─base::print(x)
23. │ └─base::print.default(x)
24. │ ├─methods (local) `<stndrdGn>`(`<ElmntryT[,4]>`)
25. │ └─rtables (local) `<stndrdGn>`(`<ElmntryT[,4]>`)
26. │ ├─base::cat(toString(object))
27. │ ├─base::toString(object)
28. │ └─rtables::toString(object)
29. │ └─rtables (local) .local(x, ...)
30. │ ├─base::toString(...)
31. │ ├─formatters::matrix_form(...)
32. │ └─rtables::matrix_form(...)
33. │ └─rtables:::.tbl_header_mat(obj)
34. │ ├─base::matrix(...)
35. │ └─base::rapply(...)
36. │ └─rtables (local) `<fn>`(X, ...)
37. │ ├─rtables::get_formatted_cells(x)
38. │ └─rtables::get_formatted_cells(x)
39. │ ├─base::matrix(...)
40. │ ├─base::unlist(...)
41. │ └─base::Map(...)
42. │ └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
43. │ └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
44. │ └─rtables::format_rcell(...)
45. │ └─formatters::format_value(...)
46. │ └─base::match.arg(round_type)
47. │ └─base::stop(gettextf("'%s' must be of length 1", "arg"), domain = NA)
48. └─base::.handleSimpleError(...)
49. └─base (local) h(simpleError(msg, call))
Error ('test-table_mmrmt01.R:55:3'): Model diagnostics table is produced correctly
Error in `match.arg(round_type)`: 'arg' must be of length 1
Backtrace:
▆
1. ├─tern::as.rtable(mmrm_results, type = "diagnostic", format = "xx.xx") at test-table_mmrmt01.R:55:3
2. └─tern.mmrm:::as.rtable.tern_mmrm(...)
3. └─tern.mmrm::h_mmrm_diagnostic(x, ...)
4. └─rtables::build_table(lyt, df)
5. └─rtables::update_ref_indexing(tab)
6. ├─formatters::make_row_df(tt)
7. └─rtables::make_row_df(tt)
8. └─rtables (local) .local(...)
9. ├─formatters::make_row_df(...)
10. └─rtables::make_row_df(...)
11. └─rtables (local) .local(...)
12. ├─formatters::pagdfrow(...)
13. │ └─base::data.frame(...)
14. ├─formatters::nlines(...)
15. └─rtables::nlines(...)
16. ├─base::as.vector(get_formatted_cells(x))
17. ├─rtables::get_formatted_cells(x)
18. └─rtables::get_formatted_cells(x)
19. ├─base::matrix(...)
20. ├─base::unlist(...)
21. └─base::Map(...)
22. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
23. └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
24. └─rtables::format_rcell(...)
25. └─formatters::format_value(...)
26. └─base::match.arg(round_type)
Maximum number of failures exceeded; quitting.
ℹ Increase this number with (e.g.) `testthat::set_max_fails(Inf)`
Error:
! Test failures.
Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang