Running ‘testthat.R’ [29s/41s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(arsenal)
  > 
  > test_check("arsenal")
  [ FAIL 6 | WARN 0 | SKIP 12 | PASS 471 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (12)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure ('test_modelsum.R:125:3'): offset() works ───────────────────────────
  `summary(...)` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test_modelsum.R:125:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─base::summary(...)
    7. └─arsenal::modelsum(...)
    8.   └─arsenal:::modelsum_guts(...)
    9.     ├─base::`[<-`(`*tmp*`, coeffRRTidy$term == "Intercept", -1, value = `<lgl>`)
   10.     └─tibble:::`[<-.tbl_df`(...)
   11.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   12.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   13.           ├─base::withCallingHandlers(...)
   14.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test_modelsum.R:240:5'): ordinal works ──────────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_identical(...) at test_modelsum.R:240:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─arsenal:::capture.kable(...)
    5. │ └─utils::capture.output(x) at tests/testthat/helper-script.R:4:2
    6. │   └─base::withVisible(...elt(i))
    7. ├─base::summary(...)
    8. └─arsenal::modelsum(...)
    9.   └─arsenal:::modelsum_guts(...)
   10.     ├─base::`[<-`(...)
   11.     └─tibble:::`[<-.tbl_df`(...)
   12.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   13.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   14.           ├─base::withCallingHandlers(...)
   15.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test_modelsum.R:286:5'): negbin works ───────────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_identical(...) at test_modelsum.R:286:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─arsenal:::capture.kable(...)
    5. │ └─utils::capture.output(x) at tests/testthat/helper-script.R:4:2
    6. │   └─base::withVisible(...elt(i))
    7. ├─base::summary(...)
    8. └─arsenal::modelsum(...)
    9.   └─arsenal:::modelsum_guts(...)
   10.     ├─base::`[<-`(`*tmp*`, coeffRRTidy$term == "Intercept", -1, value = `<lgl>`)
   11.     └─tibble:::`[<-.tbl_df`(...)
   12.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   13.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   14.           ├─base::withCallingHandlers(...)
   15.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test_modelsum.R:386:3'): 08/01/2017: Beth Atkinson's subset problem ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_identical(...) at test_modelsum.R:386:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─arsenal:::capture.kable(...)
    5. │ └─utils::capture.output(x) at tests/testthat/helper-script.R:4:2
    6. │   └─base::withVisible(...elt(i))
    7. ├─base::summary(...)
    8. └─arsenal::modelsum(...)
    9.   └─arsenal:::modelsum_guts(...)
   10.     ├─base::`[<-`(`*tmp*`, coeffORTidy$term == "Intercept", -1, value = `<lgl>`)
   11.     └─tibble:::`[<-.tbl_df`(...)
   12.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   13.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   14.           ├─base::withCallingHandlers(...)
   15.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test_modelsum.R:680:3'): relrisk works (#279) ───────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_identical(...) at test_modelsum.R:680:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─arsenal:::capture.kable(...)
    5. │ └─utils::capture.output(x) at tests/testthat/helper-script.R:4:2
    6. │   └─base::withVisible(...elt(i))
    7. ├─base::summary(...)
    8. └─arsenal::modelsum(...)
    9.   └─arsenal:::modelsum_guts(...)
   10.     ├─base::`[<-`(`*tmp*`, coeffRRTidy$term == "Intercept", -1, value = `<lgl>`)
   11.     └─tibble:::`[<-.tbl_df`(...)
   12.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   13.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   14.           ├─base::withCallingHandlers(...)
   15.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test_modelsum.R:695:3'): Nevents works for binomial (#325) ──────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_identical(...) at test_modelsum.R:695:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─arsenal:::capture.kable(...)
    5. │ └─utils::capture.output(x) at tests/testthat/helper-script.R:4:2
    6. │   └─base::withVisible(...elt(i))
    7. ├─base::summary(...)
    8. └─arsenal::modelsum(...)
    9.   └─arsenal:::modelsum_guts(...)
   10.     ├─base::`[<-`(`*tmp*`, coeffORTidy$term == "Intercept", -1, value = `<lgl>`)
   11.     └─tibble:::`[<-.tbl_df`(...)
   12.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   13.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   14.           ├─base::withCallingHandlers(...)
   15.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  
  [ FAIL 6 | WARN 0 | SKIP 12 | PASS 471 ]
  Error: Test failures
  Execution halted