Running 'testthat.R' [17s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(arsenal)
  > 
  > test_check("arsenal")
  -- 1. Failure: offset() works (@test_modelsum.R#125)  --------------------------
  `summary(...)` threw an error.
  Message: subscript out of bounds
  Class:   simpleError/error/condition
  
  -- 2. Error: negbin works (@test_modelsum.R#204)  ------------------------------
  subscript out of bounds
  1: expect_identical(capture.kable(summary(modelsum(fu.time ~ sex, adjust = ~age + arm, 
         data = mockstudy, family = negbin), negbin.stats = c("estimate", "p.value", "theta"), 
         text = TRUE, digits = 5)), c("|                        |estimate |p.value |theta   |", 
         "|:-----------------------|:--------|:-------|:-------|", "|(Intercept)             |6.52819  |< 0.001 |1.84776 |", 
         "|sex Female              |-0.02370 |0.545   |        |", "|Age in Years            |-0.00342 |0.039   |        |", 
         "|Treatment Arm F: FOLFOX |0.28161  |< 0.001 |        |", "|Treatment Arm G: IROX   |0.09396  |0.071   |        |")) at testthat/test_modelsum.R:204
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: capture.kable(summary(modelsum(fu.time ~ sex, adjust = ~age + arm, data = mockstudy, 
         family = negbin), negbin.stats = c("estimate", "p.value", "theta"), text = TRUE, 
         digits = 5))
  5: capture.output(x) at d:\RCompile\CRANpkg\local\3.6\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(fu.time ~ sex, adjust = ~age + arm, data = mockstudy, family = negbin), 
         negbin.stats = c("estimate", "p.value", "theta"), text = TRUE, digits = 5)
  11: modelsum(fu.time ~ sex, adjust = ~age + arm, data = mockstudy, family = negbin)
  12: `[<-`(`*tmp*`, coeffRRTidy$term == "Intercept", -1, value = NA)
  13: `[<-.data.frame`(`*tmp*`, coeffRRTidy$term == "Intercept", -1, value = NA)
  
  -- 3. Error: 08/01/2017: Beth Atkinson's subset problem (@test_modelsum.R#306)  
  subscript out of bounds
  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:306
  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 d:\RCompile\CRANpkg\local\3.6\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: `[<-`(`*tmp*`, coeffORTidy$term == "Intercept", -1, value = NA)
  13: `[<-.data.frame`(`*tmp*`, coeffORTidy$term == "Intercept", -1, value = NA)
  
  == testthat results  ===========================================================
  OK: 223 SKIPPED: 11 FAILED: 3
  1. Failure: offset() works (@test_modelsum.R#125) 
  2. Error: negbin works (@test_modelsum.R#204) 
  3. Error: 08/01/2017: Beth Atkinson's subset problem (@test_modelsum.R#306) 
  
  Error: testthat unit tests failed
  Execution halted