Running ‘testthat.R’ [16s/29s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(bupaR)
  
  Attaching package: 'bupaR'
  
  The following object is masked from 'package:stats':
  
      filter
  
  The following object is masked from 'package:utils':
  
      timestamp
  
  > library(eventdataR)
  > 
  > test_check("bupaR")
  [ FAIL 1 | WARN 4 | SKIP 10 | PASS 325 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (2)
  • TODO: rewrite ordered fails (1)
  • TODO: rewrite slice tests (2)
  • codes fails on ordered (1)
  • empty test (1)
  • grouped_activitylog not fully functional yet (2)
  • problem with grouped eventlogs (1)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test_sample_n.R:47:3'): test sample_n on grouped_eventlog ───────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─patients %>% group_by(.data[[activity_id(.)]]) %>% ... at test_sample_n.R:47:2
    2. ├─dplyr::sample_n(., size = 1)
    3. ├─bupaR:::sample_n.grouped_eventlog(., size = 1)
    4. │ └─... %>% return()
    5. ├─dplyr::group_by_at(., vars(one_of(paste(mapping$groups))))
    6. │ └─dplyr:::manip_at(...)
    7. │   └─dplyr:::tbl_at_syms(...)
    8. │     └─dplyr:::tbl_at_vars(...)
    9. │       └─dplyr::tbl_vars(tbl)
   10. │         ├─dplyr:::new_sel_vars(tbl_vars_dispatch(x), group_vars(x))
   11. │         │ └─base::structure(...)
   12. │         └─dplyr:::tbl_vars_dispatch(x)
   13. ├─bupaR::re_map(., mapping)
   14. │ └─bupaR::eventlog(...)
   15. ├─tidyr::unnest(., cols = data)
   16. ├─dplyr::mutate(...)
   17. ├─dplyr::mutate(., data = map(data, sample_n, size = size, replace = replace))
   18. ├─dplyr::mutate(., data = map(data, re_map, mapping))
   19. ├─dplyr::do(...)
   20. ├─dplyr:::do.grouped_df(...)
   21. │ └─rlang::eval_tidy(args[[j]], mask)
   22. └─dplyr (local) `<fn>`(base::quote(`<tibble[,2]>`))
   23.   ├─base::`[<-`(`*tmp*`, index[[`_i`]], , value = `<tibble[,2]>`)
   24.   └─tibble:::`[<-.tbl_df`(`*tmp*`, index[[`_i`]], , value = `<tibble[,2]>`)
   25.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   26.       └─tibble:::tbl_subassign_row(xo, i, value, i_arg, value_arg, call)
   27.         ├─base::withCallingHandlers(...)
   28.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  
  [ FAIL 1 | WARN 4 | SKIP 10 | PASS 325 ]
  Error: Test failures
  Execution halted