Running ‘testthat.R’ [6s/11s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(rbenvo)
  
  Attaching package: 'rbenvo'
  
  The following object is masked from 'package:testthat':
  
      matches
  
  The following object is masked from 'package:stats':
  
      filter
  
  > 
  > test_check("rbenvo")
  Subject Data:
  ---------------------------:
  Observations:  1000
  Columns:  3
  
  BEF Data:
  ---------------------------:
  Number of Features:  1
  Features: 
    Name Measures
  1  FFR Distance
  Subject Data:
  ---------------------------:
  Observations:  596
  Columns:  6
  Num Subjects:  1
  
  BEF Data:
  ---------------------------:
  Number of Features:  1
  Features: 
    Name      Measures
  1  HFS Distance-Time
  [ FAIL 3 | WARN 0 | SKIP 0 | PASS 40 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-aggregation.R:1:1'): (code run outside of `test_that()`) ───────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─base::matrix(1, nrow(joinvo(longitudinal_HFS, "HFS")), ncol = 1) at test-aggregation.R:1:0
    2. ├─base::nrow(joinvo(longitudinal_HFS, "HFS"))
    3. ├─rbenvo::joinvo(longitudinal_HFS, "HFS")
    4. ├─rbenvo:::joinvo.benvo(longitudinal_HFS, "HFS")
    5. │ ├─... %>% dplyr::arrange_at(id)
    6. │ ├─dplyr::right_join(x$sub_bef_data[[ix]], sdf, by = id)
    7. │ └─dplyr:::right_join.data.frame(x$sub_bef_data[[ix]], sdf, by = id)
    8. │   └─dplyr:::join_mutate(...)
    9. │     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   10. │     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   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]])
   15. └─dplyr::arrange_at(., id)
   16.   └─dplyr:::manip_at(...)
   17.     └─dplyr:::tbl_at_syms(...)
   18.       └─dplyr:::tbl_at_vars(...)
   19.         └─dplyr::tbl_vars(tbl)
   20.           ├─dplyr:::new_sel_vars(tbl_vars_dispatch(x), group_vars(x))
   21.           │ └─base::structure(...)
   22.           └─dplyr:::tbl_vars_dispatch(x)
  ── Error ('test-joinvo.R:2:3'): joinvo works ───────────────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_silent(joinvo(longitudinal_HFS, "HFS", "Time")) at test-joinvo.R:2: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. ├─rbenvo::joinvo(longitudinal_HFS, "HFS", "Time")
   10. ├─rbenvo:::joinvo.benvo(longitudinal_HFS, "HFS", "Time")
   11. │ ├─... %>% dplyr::arrange_at(id)
   12. │ ├─dplyr::right_join(x$sub_bef_data[[ix]], sdf, by = id)
   13. │ └─dplyr:::right_join.data.frame(x$sub_bef_data[[ix]], sdf, by = id)
   14. │   └─dplyr:::join_mutate(...)
   15. │     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   16. │     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   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]])
   21. └─dplyr::arrange_at(., id)
   22.   └─dplyr:::manip_at(...)
   23.     └─dplyr:::tbl_at_syms(...)
   24.       └─dplyr:::tbl_at_vars(...)
   25.         └─dplyr::tbl_vars(tbl)
   26.           ├─dplyr:::new_sel_vars(tbl_vars_dispatch(x), group_vars(x))
   27.           │ └─base::structure(...)
   28.           └─dplyr:::tbl_vars_dispatch(x)
  ── Error ('test-plot.R:2:3'): accurate plot works ──────────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_silent(plot(FFbenvo)) at test-plot.R:2: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. ├─base::plot(FFbenvo)
   10. ├─rbenvo:::plot.benvo(FFbenvo)
   11. │ └─rbenvo::plot_pointrange(x, ...)
   12. │   ├─rbenvo::joinvo(x, term, component)
   13. │   └─rbenvo:::joinvo.benvo(x, term, component)
   14. │     ├─... %>% dplyr::arrange_at(id)
   15. │     ├─dplyr::right_join(x$sub_bef_data[[ix]], sdf, by = id)
   16. │     └─dplyr:::right_join.data.frame(x$sub_bef_data[[ix]], sdf, by = id)
   17. │       └─dplyr:::join_mutate(...)
   18. │         ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   19. │         └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   20. │           └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   21. │             └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   22. │               ├─base::withCallingHandlers(...)
   23. │               └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   24. └─dplyr::arrange_at(., id)
   25.   └─dplyr:::manip_at(...)
   26.     └─dplyr:::tbl_at_syms(...)
   27.       └─dplyr:::tbl_at_vars(...)
   28.         └─dplyr::tbl_vars(tbl)
   29.           ├─dplyr:::new_sel_vars(tbl_vars_dispatch(x), group_vars(x))
   30.           │ └─base::structure(...)
   31.           └─dplyr:::tbl_vars_dispatch(x)
  
  [ FAIL 3 | WARN 0 | SKIP 0 | PASS 40 ]
  Error: Test failures
  Execution halted