Last updated on 2026-10-24 01:51:29 CEST.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 1.0.13 | 12.03 | 309.93 | 321.96 | OK | |
| r-devel-linux-x86_64-debian-gcc | 1.0.13 | 8.47 | 161.05 | 169.52 | ERROR | |
| r-devel-linux-x86_64-fedora-clang | 1.0.13 | 7.73 | ERROR | |||
| r-devel-linux-x86_64-fedora-gcc | 1.0.13 | 9.00 | 210.47 | 219.47 | OK | |
| r-devel-windows-x86_64 | 1.0.13 | 16.00 | 450.00 | 466.00 | OK | |
| r-patched-linux-x86_64 | 1.0.13 | 21.31 | 296.66 | 317.97 | OK | |
| r-release-linux-x86_64 | 1.0.13 | 9.60 | 299.03 | 308.63 | OK | |
| r-release-macos-arm64 | 1.0.13 | 3.00 | 84.00 | 87.00 | OK | |
| r-release-macos-x86_64 | 1.0.13 | 9.00 | 288.00 | 297.00 | OK | |
| r-release-windows-x86_64 | 1.0.13 | 20.00 | 461.00 | 481.00 | OK | |
| r-oldrel-macos-arm64 | 1.0.13 | 3.00 | 92.00 | 95.00 | OK | |
| r-oldrel-macos-x86_64 | 1.0.13 | 9.00 | 250.00 | 259.00 | OK | |
| r-oldrel-windows-x86_64 | 1.0.13 | 25.00 | 584.00 | 609.00 | OK |
Version: 1.0.13
Check: examples
Result: ERROR
Running examples in ‘broom-Ex.R’ failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: glance.survfit
> ### Title: Glance at a(n) survfit object
> ### Aliases: glance.survfit
>
> ### ** Examples
>
> ## Don't show:
> if (rlang::is_installed(c("survival", "ggplot2"))) withAutoprint({ # examplesIf
+ ## End(Don't show)
+
+ # load libraries for models and data
+ library(survival)
+
+ # fit model
+ cfit <- coxph(Surv(time, status) ~ age + sex, lung)
+ sfit <- survfit(cfit)
+
+ # summarize model fit with tidiers + visualization
+ tidy(sfit)
+ glance(sfit)
+
+ library(ggplot2)
+
+ ggplot(tidy(sfit), aes(time, estimate)) +
+ geom_line() +
+ geom_ribbon(aes(ymin = conf.low, ymax = conf.high), alpha = .25)
+
+ # multi-state
+ fitCI <- survfit(Surv(stop, status * as.numeric(event), type = "mstate") ~ 1,
+ data = mgus1, subset = (start == 0)
+ )
+
+ td_multi <- tidy(fitCI)
+
+ td_multi
+
+ ggplot(td_multi, aes(time, estimate, group = state)) +
+ geom_line(aes(color = state)) +
+ geom_ribbon(aes(ymin = conf.low, ymax = conf.high), alpha = .25)
+ ## Don't show:
+ }) # examplesIf
> library(survival)
> cfit <- coxph(Surv(time, status) ~ age + sex, lung)
> sfit <- survfit(cfit)
Error in a$specials[[i]] : subscript out of bounds
Calls: withAutoprint ... survfit.coxph -> model.matrix.coxph -> delete.response -> off
Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 1.0.13
Check: tests
Result: ERROR
Running ‘spelling.R’ [0s/0s]
Running ‘testthat.R’ [14s/17s]
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(broom)
>
> test_check("broom")
Attaching package: 'modeldata'
The following object is masked from 'package:datasets':
penguins
Multiple parameters; naming those columns ndf and ddf.
Saving _problems/test-survival-coxph-84.R
Saving _problems/test-survival-coxph-84.R
[ FAIL 2 | WARN 1 | SKIP 99 | PASS 934 ]
══ Skipped tests (99) ══════════════════════════════════════════════════════════
• On CRAN (99): 'test-aer.R:1:1', 'test-auc.R:1:1', 'test-bbmle.R:1:1',
'test-betareg.R:1:1', 'test-biglm.R:1:1', 'test-bingroup.R:1:1',
'test-boot.R:1:1', 'test-btergm.R:1:1', 'test-car.R:1:1', 'test-caret.R:1:1',
'test-cluster.R:1:1', 'test-cmprsk.R:1:1', 'test-data-frame.R:1:1',
'test-drc.R:1:1', 'test-emmeans.R:1:1', 'test-epiR.R:1:1', 'test-ergm.R:1:1',
'test-fixest.R:1:1', 'test-gam.R:1:1', 'test-geepack.R:1:1',
'test-glmnetUtils.R:1:1', 'test-gmm.R:1:1', 'test-hmisc.R:1:1',
'test-joineRML.R:1:1', 'test-kendall.R:1:1', 'test-ks.R:1:1',
'test-lavaan.R:1:1', 'test-leaps.R:1:1', 'test-lfe.R:1:1',
'test-list-irlba.R:1:1', 'test-list-optim.R:1:1', 'test-list-svd.R:1:1',
'test-list-xyz.R:1:1', 'test-list.R:1:1', 'test-lmbeta-lm-beta.R:1:1',
'test-lmodel2.R:1:1', 'test-lmtest.R:1:1', 'test-maps.R:1:1',
'test-margins.R:1:1', 'test-mass-fitdistr.R:1:1', 'test-mass-polr.R:1:1',
'test-mass-ridgelm.R:1:1', 'test-mass-rlm.R:1:1', 'test-mclust.R:1:1',
'test-mediation.R:1:1', 'test-metafor.R:1:1', 'test-mfx.R:1:1',
'test-mgcv.R:1:1', 'test-mlogit.R:1:1', 'test-muhaz.R:1:1',
'test-multcomp.R:1:1', 'test-nnet.R:1:1', 'test-null-and-default.R:8:1',
'test-null-and-default.R:22:1', 'test-null-and-default.R:38:1',
'test-ordinal.R:1:1', 'test-plm.R:1:1', 'test-polca.R:1:1',
'test-psych.R:1:1', 'test-quantreg-nlrq.R:1:1', 'test-quantreg-rq.R:1:1',
'test-quantreg-rqs.R:1:1', 'test-robust-glmrob.R:1:1', 'test-robust.R:1:1',
'test-robustbase.R:1:1', 'test-spdep.R:1:1', 'test-speedglm-speedglm.R:1:1',
'test-speedglm-speedlm.R:1:1', 'test-stats-anova.R:19:1',
'test-stats-arima.R:1:1', 'test-stats-decompose.R:1:1',
'test-stats-factanal.R:1:1', 'test-stats-glm.R:78:1',
'test-stats-glm.R:85:1', 'test-stats-htest.R:18:1',
'test-stats-htest.R:84:1', 'test-stats-htest.R:130:1',
'test-stats-lm.R:28:1', 'test-stats-lm.R:67:1', 'test-stats-mlm.R:1:1',
'test-stats-nls.R:1:1', 'test-stats-prcomp.R:12:1', 'test-survey.R:1:1',
'test-survival-aareg.R:1:1', 'test-survival-cch.R:1:1',
'test-survival-pyears.R:1:1', 'test-survival-survdiff.R:1:1',
'test-survival-survexp.R:1:1', 'test-survival-survfit.R:1:1',
'test-survival-survreg.R:1:1', 'test-systemfit.R:1:1',
'test-utilities.R:4:1', 'test-utilities.R:22:1', 'test-utilities.R:28:1',
'test-utilities.R:194:1', 'test-utilities.R:214:1', 'test-utilities.R:233:1',
'test-vars.R:1:1', 'test-zoo.R:1:1'
══ Failed tests ════════════════════════════════════════════════════════════════
── Failure ('test-survival-coxph.R:79:3'): augment.coxph ───────────────────────
Expected `hd_list` to equal `purrr::map(au_list, head)`.
Differences:
`attr(actual[[1]], 'row.names')[4:228]`: 4 5 6 7 8 9 10 11 12 13 and 215 more...
`attr(expected[[1]], 'row.names')[4:6]`: 4 5 6 ...
actual[[1]] vs expected[[1]]
inst time status age sex ph.ecog ph.karno pat.karno meal.cal wt.loss .fitted
actual[[1]][4, ] 5 210 2 57 1 1 90 60 1150 11 0.109734054
actual[[1]][5, ] 1 883 2 60 1 0 100 90 NA 0 0.160870050
actual[[1]][6, ] 12 1022 1 74 1 1 50 80 513 0 0.399504696
- actual[[1]][7, ] 3 306 2 74 1 1 90 100 1175 NA -0.215985812
- actual[[1]][8, ] 3 455 2 68 1 0 90 90 1225 15 -0.164849817
- actual[[1]][9, ] 3 1010 1 56 1 0 90 90 NA 15 0.041552727
- actual[[1]][10, ] 5 210 2 57 1 1 90 60 1150 11 0.177915382
- actual[[1]][11, ] 1 883 2 60 1 0 100 90 NA 0 0.109734054
- actual[[1]][12, ] 12 1022 1 74 1 1 50 80 513 0 -0.215985812
- actual[[1]][13, ] 3 306 2 74 1 1 90 100 1175 NA -0.215985812
and 215 more ...
`actual[[1]]$inst[4:228]`: 5 1 12 3 3 3 5 1 12 3 and 215 more...
`expected[[1]]$inst[4:6]`: 5 1 12 ...
actual[[1]]$time | expected[[1]]$time
[4] 210 | 210 [4]
[5] 883 | 883 [5]
[6] 1022 | 1022 [6]
[7] 306 -
[8] 455 -
[9] 1010 -
[10] 210 -
[11] 883 -
[12] 1022 -
[13] 306 -
... ... ... and 215 more ...
`actual[[1]]$status[4:228]`: 2 2 1 2 2 1 2 2 1 2 and 215 more...
`expected[[1]]$status[4:6]`: 2 2 1 ...
`actual[[1]]$age[4:228]`: 57 60 74 74 68 56 57 60 74 74 and 215 more...
`expected[[1]]$age[4:6]`: 57 60 74 ...
`actual[[1]]$sex[4:228]`: 1 1 1 1 1 1 1 1 1 1 and 215 more...
`expected[[1]]$sex[4:6]`: 1 1 1 ...
`actual[[1]]$ph.ecog[4:228]`: 1 0 1 1 0 0 1 0 1 1 and 215 more...
`expected[[1]]$ph.ecog[4:6]`: 1 0 1 ...
`actual[[1]]$ph.karno[4:228]`: 90 100 50 90 90 90 90 100 50 90 and 215 more...
`expected[[1]]$ph.karno[4:6]`: 90 100 50 ...
`actual[[1]]$pat.karno[4:228]`: 60 90 80 100 90 90 60 90 80 100 and 215 more...
`expected[[1]]$pat.karno[4:6]`: 60 90 80 ...
actual[[1]]$meal.cal | expected[[1]]$meal.cal
[4] 1150 | 1150 [4]
[5] NA | NA [5]
[6] 513 | 513 [6]
[7] 1175 -
[8] 1225 -
[9] NA -
[10] 1150 -
[11] NA -
[12] 513 -
[13] 1175 -
... ... ... and 215 more ...
`actual[[1]]$wt.loss[4:228]`: 11 0 0 NA 15 15 11 0 0 NA and 215 more...
`expected[[1]]$wt.loss[4:6]`: 11 0 0 ...
actual[[1]]$.fitted | expected[[1]]$.fitted
[4] 0.109734054332253 | 0.109734054332253 [4]
[5] 0.160870049868487 | 0.160870049868487 [5]
[6] 0.399504695704246 | 0.399504695704246 [6]
[7] -0.215985812476607 -
[8] -0.164849816940373 -
[9] 0.0415527269506082 -
[10] 0.177915381713899 -
[11] 0.109734054332253 -
[12] -0.215985812476607 -
[13] -0.215985812476607 -
... ... ... and 215 more ...
`attr(actual[[2]], 'row.names')[4:228]`: 4 5 6 7 8 9 10 11 12 13 and 215 more...
`attr(expected[[2]], 'row.names')[4:6]`: 4 5 6 ...
actual[[2]] vs expected[[2]]
inst time status age sex ph.ecog ph.karno pat.karno meal.cal wt.loss .fitted
actual[[2]][4, ] 5 210 2 57 1 1 90 60 1150 11 0.109734054
actual[[2]][5, ] 1 883 2 60 1 0 100 90 NA 0 0.160870050
actual[[2]][6, ] 12 1022 1 74 1 1 50 80 513 0 0.399504696
- actual[[2]][7, ] 3 306 2 74 1 1 90 100 1175 NA -0.215985812
- actual[[2]][8, ] 3 455 2 68 1 0 90 90 1225 15 -0.164849817
- actual[[2]][9, ] 3 1010 1 56 1 0 90 90 NA 15 0.041552727
- actual[[2]][10, ] 5 210 2 57 1 1 90 60 1150 11 0.177915382
- actual[[2]][11, ] 1 883 2 60 1 0 100 90 NA 0 0.109734054
- actual[[2]][12, ] 12 1022 1 74 1 1 50 80 513 0 -0.215985812
- actual[[2]][13, ] 3 306 2 74 1 1 90 100 1175 NA -0.215985812
and 215 more ...
`actual[[2]]$inst[4:228]`: 5 1 12 3 3 3 5 1 12 3 and 215 more...
`expected[[2]]$inst[4:6]`: 5 1 12 ...
actual[[2]]$time | expected[[2]]$time
[4] 210 | 210 [4]
[5] 883 | 883 [5]
[6] 1022 | 1022 [6]
[7] 306 -
[8] 455 -
[9] 1010 -
[10] 210 -
[11] 883 -
[12] 1022 -
[13] 306 -
... ... ... and 215 more ...
`actual[[2]]$status[4:228]`: 2 2 1 2 2 1 2 2 1 2 and 215 more...
`expected[[2]]$status[4:6]`: 2 2 1 ...
`actual[[2]]$age[4:228]`: 57 60 74 74 68 56 57 60 74 74 and 215 more...
`expected[[2]]$age[4:6]`: 57 60 74 ...
`actual[[2]]$sex[4:228]`: 1 1 1 1 1 1 1 1 1 1 and 215 more...
`expected[[2]]$sex[4:6]`: 1 1 1 ...
`actual[[2]]$ph.ecog[4:228]`: 1 0 1 1 0 0 1 0 1 1 and 215 more...
`expected[[2]]$ph.ecog[4:6]`: 1 0 1 ...
`actual[[2]]$ph.karno[4:228]`: 90 100 50 90 90 90 90 100 50 90 and 215 more...
`expected[[2]]$ph.karno[4:6]`: 90 100 50 ...
`actual[[2]]$pat.karno[4:228]`: 60 90 80 100 90 90 60 90 80 100 and 215 more...
`expected[[2]]$pat.karno[4:6]`: 60 90 80 ...
actual[[2]]$meal.cal | expected[[2]]$meal.cal
[4] 1150 | 1150 [4]
[5] NA | NA [5]
[6] 513 | 513 [6]
[7] 1175 -
[8] 1225 -
[9] NA -
[10] 1150 -
[11] NA -
[12] 513 -
[13] 1175 -
... ... ... and 215 more ...
`actual[[2]]$wt.loss[4:228]`: 11 0 0 NA 15 15 11 0 0 NA and 215 more...
`expected[[2]]$wt.loss[4:6]`: 11 0 0 ...
actual[[2]]$.fitted | expected[[2]]$.fitted
[4] 0.109734054332253 | 0.109734054332253 [4]
[5] 0.160870049868487 | 0.160870049868487 [5]
[6] 0.399504695704246 | 0.399504695704246 [6]
[7] -0.215985812476607 -
[8] -0.164849816940373 -
[9] 0.0415527269506082 -
[10] 0.177915381713899 -
[11] 0.109734054332253 -
[12] -0.215985812476607 -
[13] -0.215985812476607 -
... ... ... and 215 more ...
`attr(actual[[3]], 'row.names')[4:228]`: 4 5 6 7 8 9 10 11 12 13 and 215 more...
`attr(expected[[3]], 'row.names')[4:6]`: 4 5 6 ...
actual[[3]] vs expected[[3]]
.rownames inst time status age sex ph.ecog ph.karno pat.karno meal.cal wt.loss .fitted
actual[[3]][4, ] obs4 5 210 2 57 1 1 90 60 1150 11 0.109734054
actual[[3]][5, ] obs5 1 883 2 60 1 0 100 90 NA 0 0.160870050
actual[[3]][6, ] obs6 12 1022 1 74 1 1 50 80 513 0 0.399504696
- actual[[3]][7, ] obs1 3 306 2 74 1 1 90 100 1175 NA -0.215985812
- actual[[3]][8, ] obs2 3 455 2 68 1 0 90 90 1225 15 -0.164849817
- actual[[3]][9, ] obs3 3 1010 1 56 1 0 90 90 NA 15 0.041552727
- actual[[3]][10, ] obs4 5 210 2 57 1 1 90 60 1150 11 0.177915382
- actual[[3]][11, ] obs5 1 883 2 60 1 0 100 90 NA 0 0.109734054
- actual[[3]][12, ] obs6 12 1022 1 74 1 1 50 80 513 0 -0.215985812
- actual[[3]][13, ] obs1 3 306 2 74 1 1 90 100 1175 NA -0.215985812
and 215 more ...
actual[[3]]$.rownames | expected[[3]]$.rownames
[4] "obs4" | "obs4" [4]
[5] "obs5" | "obs5" [5]
[6] "obs6" | "obs6" [6]
[7] "obs1" -
[8] "obs2" -
[9] "obs3" -
[10] "obs4" -
[11] "obs5" -
[12] "obs6" -
[13] "obs1" -
... ... ... and 215 more ...
`actual[[3]]$inst[4:228]`: 5 1 12 3 3 3 5 1 12 3 and 215 more...
`expected[[3]]$inst[4:6]`: 5 1 12 ...
actual[[3]]$time | expected[[3]]$time
[4] 210 | 210 [4]
[5] 883 | 883 [5]
[6] 1022 | 1022 [6]
[7] 306 -
[8] 455 -
[9] 1010 -
[10] 210 -
[11] 883 -
[12] 1022 -
[13] 306 -
... ... ... and 215 more ...
`actual[[3]]$status[4:228]`: 2 2 1 2 2 1 2 2 1 2 and 215 more...
`expected[[3]]$status[4:6]`: 2 2 1 ...
`actual[[3]]$age[4:228]`: 57 60 74 74 68 56 57 60 74 74 and 215 more...
`expected[[3]]$age[4:6]`: 57 60 74 ...
`actual[[3]]$sex[4:228]`: 1 1 1 1 1 1 1 1 1 1 and 215 more...
`expected[[3]]$sex[4:6]`: 1 1 1 ...
`actual[[3]]$ph.ecog[4:228]`: 1 0 1 1 0 0 1 0 1 1 and 215 more...
`expected[[3]]$ph.ecog[4:6]`: 1 0 1 ...
`actual[[3]]$ph.karno[4:228]`: 90 100 50 90 90 90 90 100 50 90 and 215 more...
`expected[[3]]$ph.karno[4:6]`: 90 100 50 ...
`actual[[3]]$pat.karno[4:228]`: 60 90 80 100 90 90 60 90 80 100 and 215 more...
`expected[[3]]$pat.karno[4:6]`: 60 90 80 ...
actual[[3]]$meal.cal | expected[[3]]$meal.cal
[4] 1150 | 1150 [4]
[5] NA | NA [5]
[6] 513 | 513 [6]
[7] 1175 -
[8] 1225 -
[9] NA -
[10] 1150 -
[11] NA -
[12] 513 -
[13] 1175 -
... ... ... and 215 more ...
`actual[[3]]$wt.loss[4:228]`: 11 0 0 NA 15 15 11 0 0 NA and 215 more...
`expected[[3]]$wt.loss[4:6]`: 11 0 0 ...
actual[[3]]$.fitted | expected[[3]]$.fitted
[4] 0.109734054332253 | 0.109734054332253 [4]
[5] 0.160870049868487 | 0.160870049868487 [5]
[6] 0.399504695704246 | 0.399504695704246 [6]
[7] -0.215985812476607 -
[8] -0.164849816940373 -
[9] 0.0415527269506082 -
[10] 0.177915381713899 -
[11] 0.109734054332253 -
[12] -0.215985812476607 -
[13] -0.215985812476607 -
... ... ... and 215 more ...
Subsetting data before vs after augmentation must not effect results.
i.e. we must have results(head(newdata)) == head(results(newdata))
Backtrace:
▆
1. └─modeltests::check_augment_function(...) at test-survival-coxph.R:79:3
2. └─modeltests:::check_augment_data_specification(...)
3. └─testthat::expect_equal(...)
── Error ('test-survival-coxph.R:79:3'): augment.coxph ─────────────────────────
Error in `data.frame(..., check.names = FALSE)`: arguments imply differing number of rows: 229, 228
Backtrace:
▆
1. └─modeltests::check_augment_function(...) at test-survival-coxph.R:79:3
2. └─modeltests:::check_augment_data_specification(...)
3. └─broom (local) aug(model, data = dl$tibble, newdata = new_dl$tibble)
4. └─broom::augment_columns(...)
5. ├─tibble::as_tibble(cbind(original, ret))
6. └─base::cbind(original, ret)
7. └─base::cbind(deparse.level, ...)
8. └─base::data.frame(..., check.names = FALSE)
[ FAIL 2 | WARN 1 | SKIP 99 | PASS 934 ]
Error:
! Test failures.
Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 1.0.13
Check: whether package can be installed
Result: ERROR
Installation failed.
Flavor: r-devel-linux-x86_64-fedora-clang