Running ‘spelling.R’ [0s/1s]
  Running ‘testthat.R’ [33s/54s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(injurytools)
  > 
  > test_check("injurytools")
  [ FAIL 3 | WARN 0 | SKIP 1 | PASS 79 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (1)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-gg_injprev_polar.R:3:3'): gg_injprev_polar works ───────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─injurytools::gg_injprev_polar(...) at test-gg_injprev_polar.R:3:2
    2. │ └─injurytools::injprev(injd, by, var_type_injury)
    3. │   ├─... %>% dplyr::ungroup()
    4. │   ├─dplyr::right_join(...)
    5. │   └─dplyr:::right_join.data.frame(...)
    6. │     └─dplyr:::join_mutate(...)
    7. │       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,3]>`)
    8. │       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,3]>`)
    9. │         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   10. │           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   11. │             ├─base::withCallingHandlers(...)
   12. │             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   13. ├─dplyr::ungroup(.)
   14. ├─base::unique(.)
   15. ├─dplyr::group_by(., season, month, type_injury, player)
   16. └─dplyr::mutate(...)
  ── Error ('test-helpers.R:33:3'): validate_injd works ──────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. ├─base::`[<-`(`*tmp*`, 1, "t0", value = `<date>`) at test-helpers.R:33:2
   2. └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, "t0", value = `<date>`) at test-helpers.R:33:2
   3.   └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   4.     └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   5.       ├─base::withCallingHandlers(...)
   6.       └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-injprev.R:3:3'): injprev works ─────────────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─injurytools::injprev(injd, by = "monthly", var_type_injury = "injury_type") at test-injprev.R:3:2
    2. │ ├─... %>% dplyr::ungroup()
    3. │ ├─dplyr::right_join(...)
    4. │ └─dplyr:::right_join.data.frame(...)
    5. │   └─dplyr:::join_mutate(...)
    6. │     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,3]>`)
    7. │     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,3]>`)
    8. │       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
    9. │         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   10. │           ├─base::withCallingHandlers(...)
   11. │           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   12. ├─dplyr::ungroup(.)
   13. ├─base::unique(.)
   14. ├─dplyr::group_by(., season, month, type_injury, player)
   15. └─dplyr::mutate(...)
  
  [ FAIL 3 | WARN 0 | SKIP 1 | PASS 79 ]
  Error: Test failures
  Execution halted