Running ‘testthat.R’ [8s/12s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(arsenal)
  > 
  > test_check("arsenal")
  ── 1. Error: Keep labels in modelsum (@test_keep.labels.R#71)  ─────────────────
  there is no package called 'broom'
  1: expect_identical(capture.kable(summary(modelsum(age ~ sex + arm, data = mockstudy, 
         subset = age < 80), text = TRUE)), c("|                        |estimate |std.error |p.value |adj.r.squared |", 
         "|:-----------------------|:--------|:---------|:-------|:-------------|", "|(Intercept)             |59.850   |0.372     |< 0.001 |0.002         |", 
         "|sex Female              |-1.076   |0.595     |0.071   |              |", "|(Intercept)             |59.290   |0.542     |< 0.001 |-0.001        |", 
         "|Treatment Arm F: FOLFOX |0.340    |0.691     |0.623   |              |", "|Treatment Arm G: IROX   |-0.063   |0.792     |0.936   |              |")) at testthat/test_keep.labels.R:71
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: capture.kable(summary(modelsum(age ~ sex + arm, data = mockstudy, subset = age < 
         80), text = TRUE))
  5: capture.output(x) at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/arsenal.Rcheck/tests/testthat/helper-script.R:4
  6: evalVis(expr)
  7: withVisible(eval(expr, pf))
  8: eval(expr, pf)
  9: eval(expr, pf)
  10: summary(modelsum(age ~ sex + arm, data = mockstudy, subset = age < 80), text = TRUE)
  11: modelsum(age ~ sex + arm, data = mockstudy, subset = age < 80)
  12: broom::tidy
  13: getExportedValue(pkg, name)
  14: asNamespace(ns)
  15: getNamespace(ns)
  16: tryCatch(loadNamespace(name), error = function(e) stop(e))
  17: tryCatchList(expr, classes, parentenv, handlers)
  18: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  19: value[[3L]](cond)
  
  ── 2. Error: A basic modelsum call--no labels, no missings (@test_modelsum.R#13)
  there is no package called 'broom'
  1: expect_identical(capture.kable(summary(modelsum(Age ~ Sex + time, data = mdat), text = TRUE)), 
         c("|            |estimate |std.error |p.value |adj.r.squared |", "|:-----------|:--------|:---------|:-------|:-------------|", 
             "|(Intercept) |39.826   |0.779     |< 0.001 |-0.011        |", "|Sex Male    |-0.258   |1.115     |0.818   |              |", 
             "|(Intercept) |41.130   |1.197     |< 0.001 |0.009         |", "|time        |-0.371   |0.275     |0.182   |              |")) at testthat/test_modelsum.R:13
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: capture.kable(summary(modelsum(Age ~ Sex + time, data = mdat), text = TRUE))
  5: capture.output(x) at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/arsenal.Rcheck/tests/testthat/helper-script.R:4
  6: evalVis(expr)
  7: withVisible(eval(expr, pf))
  8: eval(expr, pf)
  9: eval(expr, pf)
  10: summary(modelsum(Age ~ Sex + time, data = mdat), text = TRUE)
  11: modelsum(Age ~ Sex + time, data = mdat)
  12: broom::tidy
  13: getExportedValue(pkg, name)
  14: asNamespace(ns)
  15: getNamespace(ns)
  16: tryCatch(loadNamespace(name), error = function(e) stop(e))
  17: tryCatchList(expr, classes, parentenv, handlers)
  18: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  19: value[[3L]](cond)
  
  ── 3. Error: A basic modelsum tableby call--labels, no missings (@test_modelsum.
  there is no package called 'broom'
  1: expect_identical(capture.kable(summary(modelsum(Age ~ Sex + trt, data = mdat), text = TRUE)), 
         c("|                |estimate |std.error |p.value |adj.r.squared |", "|:---------------|:--------|:---------|:-------|:-------------|", 
             "|(Intercept)     |39.826   |0.779     |< 0.001 |-0.011        |", "|Sex Male        |-0.258   |1.115     |0.818   |              |", 
             "|(Intercept)     |40.528   |0.874     |< 0.001 |0.006         |", "|Treatment Arm B |-1.380   |1.128     |0.225   |              |")) at testthat/test_modelsum.R:26
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: capture.kable(summary(modelsum(Age ~ Sex + trt, data = mdat), text = TRUE))
  5: capture.output(x) at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/arsenal.Rcheck/tests/testthat/helper-script.R:4
  6: evalVis(expr)
  7: withVisible(eval(expr, pf))
  8: eval(expr, pf)
  9: eval(expr, pf)
  10: summary(modelsum(Age ~ Sex + trt, data = mdat), text = TRUE)
  11: modelsum(Age ~ Sex + trt, data = mdat)
  12: broom::tidy
  13: getExportedValue(pkg, name)
  14: asNamespace(ns)
  15: getNamespace(ns)
  16: tryCatch(loadNamespace(name), error = function(e) stop(e))
  17: tryCatchList(expr, classes, parentenv, handlers)
  18: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  19: value[[3L]](cond)
  
  ── 4. Error: A basic modelsum call--adding adjustment (@test_modelsum.R#39)  ───
  there is no package called 'broom'
  1: expect_identical(capture.kable(summary(modelsum(Age ~ Sex + time, adjust = ~trt, 
         data = mdat), text = TRUE)), c("|                |estimate |std.error |p.value |adj.r.squared |", 
         "|:---------------|:--------|:---------|:-------|:-------------|", "|(Intercept)     |40.632   |1.024     |< 0.001 |-0.005        |", 
         "|Sex Male        |-0.221   |1.112     |0.843   |              |", "|Treatment Arm B |-1.373   |1.135     |0.229   |              |", 
         "|(Intercept)     |41.938   |1.366     |< 0.001 |0.014         |", "|time            |-0.368   |0.275     |0.184   |              |", 
         "|Treatment Arm B |-1.366   |1.123     |0.227   |              |")) at testthat/test_modelsum.R:39
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: capture.kable(summary(modelsum(Age ~ Sex + time, adjust = ~trt, data = mdat), text = TRUE))
  5: capture.output(x) at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/arsenal.Rcheck/tests/testthat/helper-script.R:4
  6: evalVis(expr)
  7: withVisible(eval(expr, pf))
  8: eval(expr, pf)
  9: eval(expr, pf)
  10: summary(modelsum(Age ~ Sex + time, adjust = ~trt, data = mdat), text = TRUE)
  11: modelsum(Age ~ Sex + time, adjust = ~trt, data = mdat)
  12: broom::tidy
  13: getExportedValue(pkg, name)
  14: asNamespace(ns)
  15: getNamespace(ns)
  16: tryCatch(loadNamespace(name), error = function(e) stop(e))
  17: tryCatchList(expr, classes, parentenv, handlers)
  18: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  19: value[[3L]](cond)
  
  ── 5. Error: A basic modelsum call--suppressing intercept and/or adjustment vars
  there is no package called 'broom'
  1: expect_identical(capture.kable(summary(modelsum(Age ~ Sex + time, adjust = ~trt, 
         data = mdat), text = TRUE, show.intercept = FALSE)), c("|                |estimate |std.error |p.value |adj.r.squared |", 
         "|:---------------|:--------|:---------|:-------|:-------------|", "|Sex Male        |-0.221   |1.112     |0.843   |-0.005        |", 
         "|Treatment Arm B |-1.373   |1.135     |0.229   |              |", "|time            |-0.368   |0.275     |0.184   |0.014         |", 
         "|Treatment Arm B |-1.366   |1.123     |0.227   |              |")) at testthat/test_modelsum.R:54
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: capture.kable(summary(modelsum(Age ~ Sex + time, adjust = ~trt, data = mdat), text = TRUE, 
         show.intercept = FALSE))
  5: capture.output(x) at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/arsenal.Rcheck/tests/testthat/helper-script.R:4
  6: evalVis(expr)
  7: withVisible(eval(expr, pf))
  8: eval(expr, pf)
  9: eval(expr, pf)
  10: summary(modelsum(Age ~ Sex + time, adjust = ~trt, data = mdat), text = TRUE, show.intercept = FALSE)
  11: modelsum(Age ~ Sex + time, adjust = ~trt, data = mdat)
  12: broom::tidy
  13: getExportedValue(pkg, name)
  14: asNamespace(ns)
  15: getNamespace(ns)
  16: tryCatch(loadNamespace(name), error = function(e) stop(e))
  17: tryCatchList(expr, classes, parentenv, handlers)
  18: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  19: value[[3L]](cond)
  
  ── 6. Error: Reordering variables (@test_modelsum.R#90)  ───────────────────────
  there is no package called 'broom'
  1: expect_identical(capture.kable(summary(modelsum(Age ~ Sex + Group + time, data = mdat)[c(3, 
         1, 2)], text = TRUE)), c("|            |estimate |std.error |p.value |adj.r.squared |", 
         "|:-----------|:--------|:---------|:-------|:-------------|", "|(Intercept) |41.130   |1.197     |< 0.001 |0.009         |", 
         "|time        |-0.371   |0.275     |0.182   |              |", "|(Intercept) |39.826   |0.779     |< 0.001 |-0.011        |", 
         "|Sex Male    |-0.258   |1.115     |0.818   |              |", "|(Intercept) |40.033   |0.970     |< 0.001 |-0.021        |", 
         "|Group Low   |-0.400   |1.372     |0.771   |              |", "|Group Med   |-0.600   |1.372     |0.663   |              |")) at testthat/test_modelsum.R:90
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: capture.kable(summary(modelsum(Age ~ Sex + Group + time, data = mdat)[c(3, 1, 2)], 
         text = TRUE))
  5: capture.output(x) at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/arsenal.Rcheck/tests/testthat/helper-script.R:4
  6: evalVis(expr)
  7: withVisible(eval(expr, pf))
  8: eval(expr, pf)
  9: eval(expr, pf)
  10: summary(modelsum(Age ~ Sex + Group + time, data = mdat)[c(3, 1, 2)], text = TRUE)
  11: modelsum(Age ~ Sex + Group + time, data = mdat)
  12: broom::tidy
  13: getExportedValue(pkg, name)
  14: asNamespace(ns)
  15: getNamespace(ns)
  16: tryCatch(loadNamespace(name), error = function(e) stop(e))
  17: tryCatchList(expr, classes, parentenv, handlers)
  18: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  19: value[[3L]](cond)
  
  ── 7. Failure: offset() works (@test_modelsum.R#125)  ──────────────────────────
  `summary(...)` threw an error.
  Message: there is no package called 'broom'
  Class:   simpleError/error/condition
  
  ── 8. Error: 01/26/2017: Brendan Broderick's Bold Text Wrapping Problem (@test_m
  there is no package called 'broom'
  1: expect_identical(capture.kable(summary(modelsum(short.name ~ really.long.name + as.long.as.this, 
         adjust = ~why.would.you.name.something, data = dat))), c("|                                 |estimate |std.error |p.value |adj.r.squared |", 
         "|:--------------------------------|:--------|:---------|:-------|:-------------|", 
         "|(Intercept)                      |0.035    |0.099     |0.721   |-0.001        |", 
         "|**really.long.name**             |0.099    |0.099     |0.319   |              |", 
         "|**why.would.you.name.something** |-0.083   |0.090     |0.361   |              |", 
         "|(Intercept)                      |0.048    |0.097     |0.624   |0.023         |", 
         "|**as.long.as.this**              |0.198    |0.106     |0.066   |              |", 
         "|**why.would.you.name.something** |-0.090   |0.089     |0.314   |              |")) at testthat/test_modelsum.R:140
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: capture.kable(summary(modelsum(short.name ~ really.long.name + as.long.as.this, adjust = ~why.would.you.name.something, 
         data = dat)))
  5: capture.output(x) at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/arsenal.Rcheck/tests/testthat/helper-script.R:4
  6: evalVis(expr)
  7: withVisible(eval(expr, pf))
  8: eval(expr, pf)
  9: eval(expr, pf)
  10: summary(modelsum(short.name ~ really.long.name + as.long.as.this, adjust = ~why.would.you.name.something, 
         data = dat))
  11: modelsum(short.name ~ really.long.name + as.long.as.this, adjust = ~why.would.you.name.something, 
         data = dat)
  12: broom::tidy
  13: getExportedValue(pkg, name)
  14: asNamespace(ns)
  15: getNamespace(ns)
  16: tryCatch(loadNamespace(name), error = function(e) stop(e))
  17: tryCatchList(expr, classes, parentenv, handlers)
  18: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  19: value[[3L]](cond)
  
  ── 9. Failure: 02/07/2017: Ryan Lennon's R Markdown spacing problem. Also 02/14/
  `capture.kable(...)` threw an error.
  Message: there is no package called 'broom'
  Class:   simpleError/error/condition
  
  ── 10. Error: 02/13/2017: Krista Goergen's survival subset and NA problems (@tes
  there is no package called 'broom'
  1: expect_identical(capture.kable(summary(modelsum(form, data = mdat.tmp, subset = Group == 
         "High", family = "survival"), text = TRUE)), capture.kable(summary(modelsum(form, 
         data = mdat.tmp[mdat.tmp$Group == "High", ], family = "survival"), text = TRUE))) at testthat/test_modelsum.R:170
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: capture.kable(summary(modelsum(form, data = mdat.tmp, subset = Group == "High", family = "survival"), 
         text = TRUE))
  5: capture.output(x) at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/arsenal.Rcheck/tests/testthat/helper-script.R:4
  6: evalVis(expr)
  7: withVisible(eval(expr, pf))
  8: eval(expr, pf)
  9: eval(expr, pf)
  10: summary(modelsum(form, data = mdat.tmp, subset = Group == "High", family = "survival"), 
         text = TRUE)
  11: modelsum(form, data = mdat.tmp, subset = Group == "High", family = "survival")
  12: broom::tidy
  13: getExportedValue(pkg, name)
  14: asNamespace(ns)
  15: getNamespace(ns)
  16: tryCatch(loadNamespace(name), error = function(e) stop(e))
  17: tryCatchList(expr, classes, parentenv, handlers)
  18: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  19: value[[3L]](cond)
  
  ── 11. Error: 04/12/2017: ... vs modelsum.control (@test_modelsum.R#198)  ──────
  there is no package called 'broom'
  1: expect_identical(capture.kable(summary(modelsum(Age ~ Sex + time, adjust = ~trt, 
         data = mdat, show.adjust = FALSE, control = modelsum.control()), text = TRUE)), 
         c("|            |estimate |std.error |p.value |adj.r.squared |", "|:-----------|:--------|:---------|:-------|:-------------|", 
             "|(Intercept) |40.632   |1.024     |< 0.001 |-0.005        |", "|Sex Male    |-0.221   |1.112     |0.843   |              |", 
             "|(Intercept) |41.938   |1.366     |< 0.001 |0.014         |", "|time        |-0.368   |0.275     |0.184   |              |")) at testthat/test_modelsum.R:198
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: capture.kable(summary(modelsum(Age ~ Sex + time, adjust = ~trt, data = mdat, show.adjust = FALSE, 
         control = modelsum.control()), text = TRUE))
  5: capture.output(x) at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/arsenal.Rcheck/tests/testthat/helper-script.R:4
  6: evalVis(expr)
  7: withVisible(eval(expr, pf))
  8: eval(expr, pf)
  9: eval(expr, pf)
  10: summary(modelsum(Age ~ Sex + time, adjust = ~trt, data = mdat, show.adjust = FALSE, 
         control = modelsum.control()), text = TRUE)
  11: modelsum(Age ~ Sex + time, adjust = ~trt, data = mdat, show.adjust = FALSE, control = modelsum.control())
  12: broom::tidy
  13: getExportedValue(pkg, name)
  14: asNamespace(ns)
  15: getNamespace(ns)
  16: tryCatch(loadNamespace(name), error = function(e) stop(e))
  17: tryCatchList(expr, classes, parentenv, handlers)
  18: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  19: value[[3L]](cond)
  
  ── 12. Error: 08/01/2017: Beth Atkinson's subset problem (@test_modelsum.R#216) 
  there is no package called 'pROC'
  1: expect_identical(capture.kable(summary(modelsum(form, data = mockstudy, subset = idx, 
         adjust = ~arm, family = "binomial"), text = TRUE)), capture.kable(summary(modelsum(form, 
         data = mockstudy, subset = sex == "Male", adjust = ~arm, family = "binomial"), 
         text = TRUE))) at testthat/test_modelsum.R:216
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: capture.kable(summary(modelsum(form, data = mockstudy, subset = idx, adjust = ~arm, 
         family = "binomial"), text = TRUE))
  5: capture.output(x) at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/arsenal.Rcheck/tests/testthat/helper-script.R:4
  6: evalVis(expr)
  7: withVisible(eval(expr, pf))
  8: eval(expr, pf)
  9: eval(expr, pf)
  10: summary(modelsum(form, data = mockstudy, subset = idx, adjust = ~arm, family = "binomial"), 
         text = TRUE)
  11: modelsum(form, data = mockstudy, subset = idx, adjust = ~arm, family = "binomial")
  12: pROC::roc
  13: getExportedValue(pkg, name)
  14: asNamespace(ns)
  15: getNamespace(ns)
  16: tryCatch(loadNamespace(name), error = function(e) stop(e))
  17: tryCatchList(expr, classes, parentenv, handlers)
  18: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  19: value[[3L]](cond)
  
  ── 13. Error: 07/27/2017: Too many adjustment vars in as.data.frame.modelsum (#1
  there is no package called 'broom'
  1: expect_equal(nrow(as.data.frame(modelsum(y ~ x1, adjust = ~x7 + x2 + x3 + x5 + x8, 
         data = df))), 10L) at testthat/test_modelsum.R:236
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: nrow(as.data.frame(modelsum(y ~ x1, adjust = ~x7 + x2 + x3 + x5 + x8, data = df)))
  5: as.data.frame(modelsum(y ~ x1, adjust = ~x7 + x2 + x3 + x5 + x8, data = df))
  6: modelsum(y ~ x1, adjust = ~x7 + x2 + x3 + x5 + x8, data = df)
  7: broom::tidy
  8: getExportedValue(pkg, name)
  9: asNamespace(ns)
  10: getNamespace(ns)
  11: tryCatch(loadNamespace(name), error = function(e) stop(e))
  12: tryCatchList(expr, classes, parentenv, handlers)
  13: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  14: value[[3L]](cond)
  
  ── 14. Error: 07/27/2017: modelsum labels (#13) (@test_modelsum.R#242)  ────────
  there is no package called 'broom'
  1: expect_identical(capture.kable(summary(modelsum(bmi ~ age, adjust = ~sex, data = mockstudy), 
         labelTranslations = list(sexFemale = "Female", age = "Age, yrs"), text = TRUE)), 
         c("|            |estimate |std.error |p.value |adj.r.squared |", "|:-----------|:--------|:---------|:-------|:-------------|", 
             "|(Intercept) |26.793   |0.766     |< 0.001 |0.004         |", "|Age, yrs    |0.012    |0.012     |0.348   |              |", 
             "|Female      |-0.718   |0.291     |0.014   |              |")) at testthat/test_modelsum.R:242
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: capture.kable(summary(modelsum(bmi ~ age, adjust = ~sex, data = mockstudy), labelTranslations = list(sexFemale = "Female", 
         age = "Age, yrs"), text = TRUE))
  5: capture.output(x) at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/arsenal.Rcheck/tests/testthat/helper-script.R:4
  6: evalVis(expr)
  7: withVisible(eval(expr, pf))
  8: eval(expr, pf)
  9: eval(expr, pf)
  10: summary(modelsum(bmi ~ age, adjust = ~sex, data = mockstudy), labelTranslations = list(sexFemale = "Female", 
         age = "Age, yrs"), text = TRUE)
  11: modelsum(bmi ~ age, adjust = ~sex, data = mockstudy)
  12: broom::tidy
  13: getExportedValue(pkg, name)
  14: asNamespace(ns)
  15: getNamespace(ns)
  16: tryCatch(loadNamespace(name), error = function(e) stop(e))
  17: tryCatchList(expr, classes, parentenv, handlers)
  18: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  19: value[[3L]](cond)
  
  ── 15. Error: 12/23/2017: non-syntactic names (#44, #45) (@test_modelsum.R#265) 
  there is no package called 'broom'
  1: expect_identical(capture.kable(summary(modelsum(y ~ x1x, data = dat))), c("|            |estimate |std.error |p.value |adj.r.squared |", 
         "|:-----------|:--------|:---------|:-------|:-------------|", "|(Intercept) |3.000    |0.707     |0.003   |0.727         |", 
         "|**x1x B**   |5.000    |1.000     |0.001   |              |")) at testthat/test_modelsum.R:265
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: capture.kable(summary(modelsum(y ~ x1x, data = dat)))
  5: capture.output(x) at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/arsenal.Rcheck/tests/testthat/helper-script.R:4
  6: evalVis(expr)
  7: withVisible(eval(expr, pf))
  8: eval(expr, pf)
  9: eval(expr, pf)
  10: summary(modelsum(y ~ x1x, data = dat))
  11: modelsum(y ~ x1x, data = dat)
  12: broom::tidy
  13: getExportedValue(pkg, name)
  14: asNamespace(ns)
  15: getNamespace(ns)
  16: tryCatch(loadNamespace(name), error = function(e) stop(e))
  17: tryCatchList(expr, classes, parentenv, handlers)
  18: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  19: value[[3L]](cond)
  
  ── 16. Error: 01/05/2018: leading/trailing whitespace (#48) (@test_modelsum.R#28
  there is no package called 'broom'
  1: expect_identical(capture.kable(summary(modelsum(age ~ arm, data = set_labels(mockstudy, 
         list(arm = " Arm "))))), c("|                   |estimate |std.error |p.value |adj.r.squared |", 
         "|:------------------|:--------|:---------|:-------|:-------------|", "|(Intercept)        |59.673   |0.557     |< 0.001 |-0.001        |", 
         "|**Arm  F: FOLFOX** |0.628    |0.709     |0.376   |              |", "|**Arm  G: IROX**   |0.090    |0.812     |0.912   |              |")) at testthat/test_modelsum.R:286
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: capture.kable(summary(modelsum(age ~ arm, data = set_labels(mockstudy, list(arm = " Arm ")))))
  5: capture.output(x) at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/arsenal.Rcheck/tests/testthat/helper-script.R:4
  6: evalVis(expr)
  7: withVisible(eval(expr, pf))
  8: eval(expr, pf)
  9: eval(expr, pf)
  10: summary(modelsum(age ~ arm, data = set_labels(mockstudy, list(arm = " Arm "))))
  11: modelsum(age ~ arm, data = set_labels(mockstudy, list(arm = " Arm ")))
  12: broom::tidy
  13: getExportedValue(pkg, name)
  14: asNamespace(ns)
  15: getNamespace(ns)
  16: tryCatch(loadNamespace(name), error = function(e) stop(e))
  17: tryCatchList(expr, classes, parentenv, handlers)
  18: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  19: value[[3L]](cond)
  
  ── 17. Error: 02/23/2018: wrapping long labels (#59) (@test_modelsum.R#312)  ───
  there is no package called 'broom'
  1: expect_identical(capture.kable(print(summary(modelsum(Age ~ Group + time + dt, data = set_labels(mdat, 
         labs)), text = TRUE), width = 30)), c("|                               |estimate |std.error |p.value |adj.r.squared |", 
         "|:------------------------------|:--------|:---------|:-------|:-------------|", 
         "|(Intercept)                    |40.033   |0.970     |< 0.001 |-0.021        |", 
         "|This is a really long label    |-0.400   |1.372     |0.771   |              |", 
         "|for the Group variable Low     |         |          |        |              |", 
         "|This is a really long label    |-0.600   |1.372     |0.663   |              |", 
         "|for the Group variable Med     |         |          |        |              |", 
         "|(Intercept)                    |41.130   |1.197     |< 0.001 |0.009         |", 
         "|Another really long label.     |-0.371   |0.275     |0.182   |              |", 
         "|Can you believe how long this  |         |          |        |              |", 
         "|is                             |         |          |        |              |", 
         "|(Intercept)                    |41.531   |2.017     |< 0.001 |-0.001        |", 
         "|ThisLabelHasNoSpacesSoLetsSeeH |0.000    |0.000     |0.348   |              |", 
         "|owItBehaves                    |         |          |        |              |")) at testthat/test_modelsum.R:312
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: capture.kable(print(summary(modelsum(Age ~ Group + time + dt, data = set_labels(mdat, 
         labs)), text = TRUE), width = 30))
  5: capture.output(x) at /home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/arsenal.Rcheck/tests/testthat/helper-script.R:4
  6: evalVis(expr)
  7: withVisible(eval(expr, pf))
  8: eval(expr, pf)
  9: eval(expr, pf)
  10: print(summary(modelsum(Age ~ Group + time + dt, data = set_labels(mdat, labs)), text = TRUE), 
         width = 30)
  11: summary(modelsum(Age ~ Group + time + dt, data = set_labels(mdat, labs)), text = TRUE)
  12: modelsum(Age ~ Group + time + dt, data = set_labels(mdat, labs))
  13: broom::tidy
  14: getExportedValue(pkg, name)
  15: asNamespace(ns)
  16: getNamespace(ns)
  17: tryCatch(loadNamespace(name), error = function(e) stop(e))
  18: tryCatchList(expr, classes, parentenv, handlers)
  19: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  20: value[[3L]](cond)
  
  ── 18. Error: write2.list (summary objects) -> PDF (@test_write2.R#50)  ────────
  there is no package called 'broom'
  1: summary(modelsum(age ~ sex, data = mockstudy), title = "A Title for modelsum") at testthat/test_write2.R:50
  2: modelsum(age ~ sex, data = mockstudy)
  3: broom::tidy
  4: getExportedValue(pkg, name)
  5: asNamespace(ns)
  6: getNamespace(ns)
  7: tryCatch(loadNamespace(name), error = function(e) stop(e))
  8: tryCatchList(expr, classes, parentenv, handlers)
  9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  10: value[[3L]](cond)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 158 SKIPPED: 10 FAILED: 18
  1. Error: Keep labels in modelsum (@test_keep.labels.R#71) 
  2. Error: A basic modelsum call--no labels, no missings (@test_modelsum.R#13) 
  3. Error: A basic modelsum tableby call--labels, no missings (@test_modelsum.R#26) 
  4. Error: A basic modelsum call--adding adjustment (@test_modelsum.R#39) 
  5. Error: A basic modelsum call--suppressing intercept and/or adjustment vars (@test_modelsum.R#54) 
  6. Error: Reordering variables (@test_modelsum.R#90) 
  7. Failure: offset() works (@test_modelsum.R#125) 
  8. Error: 01/26/2017: Brendan Broderick's Bold Text Wrapping Problem (@test_modelsum.R#140) 
  9. Failure: 02/07/2017: Ryan Lennon's R Markdown spacing problem. Also 02/14/2018 (#66) (@test_modelsum.R#158) 
  1. ...
  
  Error: testthat unit tests failed
  Execution halted