Running ‘testthat.R’ [15s/25s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(adepro)
  Loading required package: shinyBS
  Loading required package: seriation
  > 
  > test_check("adepro")
  [ FAIL 3 | WARN 3 | SKIP 0 | PASS 51 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test_code_func.R:88:3'): bar_chart ──────────────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_silent(...) at test_code_func.R:88:2
    2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ ├─withr::with_output_sink(...)
    5. │   │ │ └─base::force(code)
    6. │   │ ├─base::withCallingHandlers(...)
    7. │   │ └─base::withVisible(code)
    8. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. ├─adepro:::bar_chart(...)
   10. │ └─... %>% na.omit()
   11. ├─stats::na.omit(.)
   12. ├─dplyr::right_join(...)
   13. └─dplyr:::right_join.data.frame(...)
   14.   └─dplyr:::join_mutate(...)
   15.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   16.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   17.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   18.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   19.           ├─base::withCallingHandlers(...)
   20.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test_code_func.R:100:3'): count_event ───────────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% dplyr::filter(ae %in% vars) at test_code_func.R:100:2
    2. ├─dplyr::filter(., ae %in% vars)
    3. ├─dplyr::right_join(...)
    4. └─dplyr:::right_join.data.frame(...)
    5.   └─dplyr:::join_mutate(...)
    6.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
    7.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
    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]])
  ── Error ('test_code_func.R:117:3'): order_patient ─────────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─adepro:::order_patient(...) at test_code_func.R:117:2
    2. │ └─tmp3 %>% ...
    3. ├─dplyr::right_join(...)
    4. └─dplyr:::right_join.data.frame(...)
    5.   └─dplyr:::join_mutate(...)
    6.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
    7.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
    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]])
  
  [ FAIL 3 | WARN 3 | SKIP 0 | PASS 51 ]
  Error: Test failures
  Execution halted