Running ‘spelling.R’ [0s/1s]
  Running ‘testthat.R’ [60s/91s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(simaerep)
  Loading required package: ggplot2
  > 
  > test_check("simaerep")
  [ FAIL 21 | WARN 427 | SKIP 4 | PASS 44 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (4)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test_S3_simaerep.R:18:3'): plot.simaerep with what='ur' ─────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_s3_class(...) at test_S3_simaerep.R:18:2
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─base::plot(aerep_test, what = "ur", study = "A")
    5. ├─simaerep:::plot.simaerep(aerep_test, what = "ur", study = "A")
    6. │ └─simaerep (local) .f(df_visit, x, study, n_sites, ...)
    7. │   └─simaerep::plot_study(...)
    8. │     └─simaerep::check_df_visit(df_visit)
    9. │       └─simaerep::exp_implicit_missing_visits(df_visit)
   10. │         └─... %>% ...
   11. ├─dplyr::arrange(...)
   12. ├─dplyr::select(...)
   13. ├─dplyr::mutate(., n_ae = ifelse(is.na(.data$n_ae), 0, .data$n_ae))
   14. ├─dplyr::filter(...)
   15. ├─dplyr::ungroup(.)
   16. ├─dplyr::mutate(...)
   17. ├─dplyr::group_by(., .data$study_id)
   18. ├─dplyr::mutate(...)
   19. ├─tidyr::fill(., .data$n_ae, .direction = "down")
   20. ├─dplyr::arrange(., .data$visit)
   21. ├─dplyr::group_by(., .data$study_id, .data$site_number, .data$patnum)
   22. ├─dplyr::right_join(...)
   23. └─dplyr:::right_join.data.frame(...)
   24.   └─dplyr:::join_mutate(...)
   25.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,4]>`)
   26.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,4]>`)
   27.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   28.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   29.           ├─base::withCallingHandlers(...)
   30.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test_S3_simaerep.R:22:3'): plot.simaerep with what='med75' ──────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_s3_class(...) at test_S3_simaerep.R:22:2
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─base::plot(aerep_test, what = "med75", study = "A", verbose = FALSE)
    5. ├─simaerep:::plot.simaerep(...)
    6. │ └─simaerep (local) .f(df_visit, x, study, n_sites, ...)
    7. │   └─simaerep::plot_visit_med75(...)
    8. │     ├─check_df_visit(df_visit) %>% ...
    9. │     └─simaerep::check_df_visit(df_visit)
   10. │       └─simaerep::exp_implicit_missing_visits(df_visit)
   11. │         └─... %>% ...
   12. ├─dplyr::filter(., .data$study_id == study_id_str)
   13. ├─dplyr::arrange(...)
   14. ├─dplyr::select(...)
   15. ├─dplyr::mutate(., n_ae = ifelse(is.na(.data$n_ae), 0, .data$n_ae))
   16. ├─dplyr::filter(...)
   17. ├─dplyr::ungroup(.)
   18. ├─dplyr::mutate(...)
   19. ├─dplyr::group_by(., .data$study_id)
   20. ├─dplyr::mutate(...)
   21. ├─tidyr::fill(., .data$n_ae, .direction = "down")
   22. ├─dplyr::arrange(., .data$visit)
   23. ├─dplyr::group_by(., .data$study_id, .data$site_number, .data$patnum)
   24. ├─dplyr::right_join(...)
   25. └─dplyr:::right_join.data.frame(...)
   26.   └─dplyr:::join_mutate(...)
   27.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,4]>`)
   28.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,4]>`)
   29.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   30.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   31.           ├─base::withCallingHandlers(...)
   32.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test_S3_simaerep.R:27:3'): plot.simaerep throws error when original visit data cannot be retrieved ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─simaerep::simaerep(...) at test_S3_simaerep.R:27:2
    2. │ └─simaerep::check_df_visit(df_visit)
    3. │   └─simaerep::exp_implicit_missing_visits(df_visit)
    4. │     └─... %>% ...
    5. ├─dplyr::arrange(...)
    6. ├─dplyr::select(...)
    7. ├─dplyr::mutate(., n_ae = ifelse(is.na(.data$n_ae), 0, .data$n_ae))
    8. ├─dplyr::filter(...)
    9. ├─dplyr::ungroup(.)
   10. ├─dplyr::mutate(...)
   11. ├─dplyr::group_by(., .data$study_id)
   12. ├─dplyr::mutate(...)
   13. ├─tidyr::fill(., .data$n_ae, .direction = "down")
   14. ├─dplyr::arrange(., .data$visit)
   15. ├─dplyr::group_by(., .data$study_id, .data$site_number, .data$patnum)
   16. ├─dplyr::right_join(...)
   17. └─dplyr:::right_join.data.frame(...)
   18.   └─dplyr:::join_mutate(...)
   19.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,4]>`)
   20.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,4]>`)
   21.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   22.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   23.           ├─base::withCallingHandlers(...)
   24.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test_check_df_visit.R:8:3'): check_df_visit() must fix missing visits and throw a warning ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(...) at test_check_df_visit.R:8:2
    2. │ └─testthat:::expect_condition_matching(...)
    3. │   └─testthat:::quasi_capture(...)
    4. │     ├─testthat (local) .capture(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─simaerep::check_df_visit(df_visit_filt) at test_check_df_visit.R:8:18
    8. │ └─simaerep::exp_implicit_missing_visits(df_visit)
    9. │   └─... %>% ...
   10. ├─dplyr::arrange(...)
   11. ├─dplyr::select(...)
   12. ├─dplyr::mutate(., n_ae = ifelse(is.na(.data$n_ae), 0, .data$n_ae))
   13. ├─dplyr::filter(...)
   14. ├─dplyr::ungroup(.)
   15. ├─dplyr::mutate(...)
   16. ├─dplyr::group_by(., .data$study_id)
   17. ├─dplyr::mutate(...)
   18. ├─tidyr::fill(., .data$n_ae, .direction = "down")
   19. ├─dplyr::arrange(., .data$visit)
   20. ├─dplyr::group_by(., .data$study_id, .data$site_number, .data$patnum)
   21. ├─dplyr::right_join(...)
   22. └─dplyr:::right_join.data.frame(...)
   23.   └─dplyr:::join_mutate(...)
   24.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,4]>`)
   25.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,4]>`)
   26.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   27.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   28.           ├─base::withCallingHandlers(...)
   29.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test_check_df_visit.R:18:3'): check_df_visit() must aggregate duplicated visits and throw a warning ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(...) at test_check_df_visit.R:18:2
    2. │ └─testthat:::expect_condition_matching(...)
    3. │   └─testthat:::quasi_capture(...)
    4. │     ├─testthat (local) .capture(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─simaerep::check_df_visit(bind_rows(df_visit_test, df_visit_test)) at test_check_df_visit.R:18:18
    8. │ └─simaerep::exp_implicit_missing_visits(df_visit)
    9. │   └─... %>% ...
   10. ├─dplyr::arrange(...)
   11. ├─dplyr::select(...)
   12. ├─dplyr::mutate(., n_ae = ifelse(is.na(.data$n_ae), 0, .data$n_ae))
   13. ├─dplyr::filter(...)
   14. ├─dplyr::ungroup(.)
   15. ├─dplyr::mutate(...)
   16. ├─dplyr::group_by(., .data$study_id)
   17. ├─dplyr::mutate(...)
   18. ├─tidyr::fill(., .data$n_ae, .direction = "down")
   19. ├─dplyr::arrange(., .data$visit)
   20. ├─dplyr::group_by(., .data$study_id, .data$site_number, .data$patnum)
   21. ├─dplyr::right_join(...)
   22. └─dplyr:::right_join.data.frame(...)
   23.   └─dplyr:::join_mutate(...)
   24.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,4]>`)
   25.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,4]>`)
   26.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   27.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   28.           ├─base::withCallingHandlers(...)
   29.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test_data.R:4:3'): check S3 test data reproducibility ───────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─simaerep::simaerep(df_visit_test, param_sim_sites = list(r = 100)) at test_data.R:4:2
    2. │ └─simaerep::check_df_visit(df_visit)
    3. │   └─simaerep::exp_implicit_missing_visits(df_visit)
    4. │     └─... %>% ...
    5. ├─dplyr::arrange(...)
    6. ├─dplyr::select(...)
    7. ├─dplyr::mutate(., n_ae = ifelse(is.na(.data$n_ae), 0, .data$n_ae))
    8. ├─dplyr::filter(...)
    9. ├─dplyr::ungroup(.)
   10. ├─dplyr::mutate(...)
   11. ├─dplyr::group_by(., .data$study_id)
   12. ├─dplyr::mutate(...)
   13. ├─tidyr::fill(., .data$n_ae, .direction = "down")
   14. ├─dplyr::arrange(., .data$visit)
   15. ├─dplyr::group_by(., .data$study_id, .data$site_number, .data$patnum)
   16. ├─dplyr::right_join(...)
   17. └─dplyr:::right_join.data.frame(...)
   18.   └─dplyr:::join_mutate(...)
   19.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,4]>`)
   20.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,4]>`)
   21.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   22.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   23.           ├─base::withCallingHandlers(...)
   24.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test_data.R:40:3'): check standard test data reproducibility ────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─simaerep::simaerep(...) at test_data.R:40:2
    2. │ └─simaerep::check_df_visit(df_visit)
    3. │   └─simaerep::exp_implicit_missing_visits(df_visit)
    4. │     └─... %>% ...
    5. ├─dplyr::arrange(...)
    6. ├─dplyr::select(...)
    7. ├─dplyr::mutate(., n_ae = ifelse(is.na(.data$n_ae), 0, .data$n_ae))
    8. ├─dplyr::filter(...)
    9. ├─dplyr::ungroup(.)
   10. ├─dplyr::mutate(...)
   11. ├─dplyr::group_by(., .data$study_id)
   12. ├─dplyr::mutate(...)
   13. ├─tidyr::fill(., .data$n_ae, .direction = "down")
   14. ├─dplyr::arrange(., .data$visit)
   15. ├─dplyr::group_by(., .data$study_id, .data$site_number, .data$patnum)
   16. ├─dplyr::right_join(...)
   17. └─dplyr:::right_join.data.frame(...)
   18.   └─dplyr:::join_mutate(...)
   19.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,4]>`)
   20.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,4]>`)
   21.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   22.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   23.           ├─base::withCallingHandlers(...)
   24.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test_data.R:75:3'): check portfolio performance test data reproducibility ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─simaerep::sim_ur_scenarios(...) at test_data.R:75:2
    2. │ └─simaerep::check_df_visit(df_portf)
    3. │   └─simaerep::exp_implicit_missing_visits(df_visit)
    4. │     └─... %>% ...
    5. ├─dplyr::arrange(...)
    6. ├─dplyr::select(...)
    7. ├─dplyr::mutate(., n_ae = ifelse(is.na(.data$n_ae), 0, .data$n_ae))
    8. ├─dplyr::filter(...)
    9. ├─dplyr::ungroup(.)
   10. ├─dplyr::mutate(...)
   11. ├─dplyr::group_by(., .data$study_id)
   12. ├─dplyr::mutate(...)
   13. ├─tidyr::fill(., .data$n_ae, .direction = "down")
   14. ├─dplyr::arrange(., .data$visit)
   15. ├─dplyr::group_by(., .data$study_id, .data$site_number, .data$patnum)
   16. ├─dplyr::right_join(...)
   17. └─dplyr:::right_join.data.frame(...)
   18.   └─dplyr:::join_mutate(...)
   19.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,4]>`)
   20.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,4]>`)
   21.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   22.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   23.           ├─base::withCallingHandlers(...)
   24.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test_plot.R:19:3'): plot_studies() must return ggplot object ────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─simaerep::plot_study(...) at test_plot.R:19:2
    2. │ └─simaerep::check_df_visit(df_visit)
    3. │   └─simaerep::exp_implicit_missing_visits(df_visit)
    4. │     └─... %>% ...
    5. ├─dplyr::arrange(...)
    6. ├─dplyr::select(...)
    7. ├─dplyr::mutate(., n_ae = ifelse(is.na(.data$n_ae), 0, .data$n_ae))
    8. ├─dplyr::filter(...)
    9. ├─dplyr::ungroup(.)
   10. ├─dplyr::mutate(...)
   11. ├─dplyr::group_by(., .data$study_id)
   12. ├─dplyr::mutate(...)
   13. ├─tidyr::fill(., .data$n_ae, .direction = "down")
   14. ├─dplyr::arrange(., .data$visit)
   15. ├─dplyr::group_by(., .data$study_id, .data$site_number, .data$patnum)
   16. ├─dplyr::right_join(...)
   17. └─dplyr:::right_join.data.frame(...)
   18.   └─dplyr:::join_mutate(...)
   19.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,4]>`)
   20.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,4]>`)
   21.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   22.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   23.           ├─base::withCallingHandlers(...)
   24.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test_plot.R:30:3'): plot_visit_med75() must return ggplot object ────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─simaerep::plot_visit_med75(...) at test_plot.R:30:2
    2. │ ├─check_df_visit(df_visit) %>% ...
    3. │ └─simaerep::check_df_visit(df_visit)
    4. │   └─simaerep::exp_implicit_missing_visits(df_visit)
    5. │     └─... %>% ...
    6. ├─dplyr::filter(., .data$study_id == study_id_str)
    7. ├─dplyr::arrange(...)
    8. ├─dplyr::select(...)
    9. ├─dplyr::mutate(., n_ae = ifelse(is.na(.data$n_ae), 0, .data$n_ae))
   10. ├─dplyr::filter(...)
   11. ├─dplyr::ungroup(.)
   12. ├─dplyr::mutate(...)
   13. ├─dplyr::group_by(., .data$study_id)
   14. ├─dplyr::mutate(...)
   15. ├─tidyr::fill(., .data$n_ae, .direction = "down")
   16. ├─dplyr::arrange(., .data$visit)
   17. ├─dplyr::group_by(., .data$study_id, .data$site_number, .data$patnum)
   18. ├─dplyr::right_join(...)
   19. └─dplyr:::right_join.data.frame(...)
   20.   └─dplyr:::join_mutate(...)
   21.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,4]>`)
   22.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,4]>`)
   23.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   24.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   25.           ├─base::withCallingHandlers(...)
   26.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test_sim_studies.R:6:3'): sim_studies() - returned dataframe expect no NA and prob_low/pval 0 - 1 ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─simaerep::sim_studies(...) at test_sim_studies.R:6:2
    2. │ └─simaerep::check_df_visit(df_visit)
    3. │   └─simaerep::exp_implicit_missing_visits(df_visit)
    4. │     └─... %>% ...
    5. ├─dplyr::arrange(...)
    6. ├─dplyr::select(...)
    7. ├─dplyr::mutate(., n_ae = ifelse(is.na(.data$n_ae), 0, .data$n_ae))
    8. ├─dplyr::filter(...)
    9. ├─dplyr::ungroup(.)
   10. ├─dplyr::mutate(...)
   11. ├─dplyr::group_by(., .data$study_id)
   12. ├─dplyr::mutate(...)
   13. ├─tidyr::fill(., .data$n_ae, .direction = "down")
   14. ├─dplyr::arrange(., .data$visit)
   15. ├─dplyr::group_by(., .data$study_id, .data$site_number, .data$patnum)
   16. ├─dplyr::right_join(...)
   17. └─dplyr:::right_join.data.frame(...)
   18.   └─dplyr:::join_mutate(...)
   19.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,4]>`)
   20.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,4]>`)
   21.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   22.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   23.           ├─base::withCallingHandlers(...)
   24.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test_sim_studies.R:24:3'): sim_studies() with keep_ae = TRUE - retain individual site and study AE ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─simaerep::sim_studies(...) at test_sim_studies.R:24:2
    2. │ └─simaerep::check_df_visit(df_visit)
    3. │   └─simaerep::exp_implicit_missing_visits(df_visit)
    4. │     └─... %>% ...
    5. ├─dplyr::arrange(...)
    6. ├─dplyr::select(...)
    7. ├─dplyr::mutate(., n_ae = ifelse(is.na(.data$n_ae), 0, .data$n_ae))
    8. ├─dplyr::filter(...)
    9. ├─dplyr::ungroup(.)
   10. ├─dplyr::mutate(...)
   11. ├─dplyr::group_by(., .data$study_id)
   12. ├─dplyr::mutate(...)
   13. ├─tidyr::fill(., .data$n_ae, .direction = "down")
   14. ├─dplyr::arrange(., .data$visit)
   15. ├─dplyr::group_by(., .data$study_id, .data$site_number, .data$patnum)
   16. ├─dplyr::right_join(...)
   17. └─dplyr:::right_join.data.frame(...)
   18.   └─dplyr:::join_mutate(...)
   19.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,4]>`)
   20.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,4]>`)
   21.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   22.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   23.           ├─base::withCallingHandlers(...)
   24.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test_sim_studies.R:40:3'): sim_studies() - count of individual site and study AE must match other columns ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─simaerep::sim_studies(...) at test_sim_studies.R:40:2
    2. │ └─simaerep::check_df_visit(df_visit)
    3. │   └─simaerep::exp_implicit_missing_visits(df_visit)
    4. │     └─... %>% ...
    5. ├─dplyr::arrange(...)
    6. ├─dplyr::select(...)
    7. ├─dplyr::mutate(., n_ae = ifelse(is.na(.data$n_ae), 0, .data$n_ae))
    8. ├─dplyr::filter(...)
    9. ├─dplyr::ungroup(.)
   10. ├─dplyr::mutate(...)
   11. ├─dplyr::group_by(., .data$study_id)
   12. ├─dplyr::mutate(...)
   13. ├─tidyr::fill(., .data$n_ae, .direction = "down")
   14. ├─dplyr::arrange(., .data$visit)
   15. ├─dplyr::group_by(., .data$study_id, .data$site_number, .data$patnum)
   16. ├─dplyr::right_join(...)
   17. └─dplyr:::right_join.data.frame(...)
   18.   └─dplyr:::join_mutate(...)
   19.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,4]>`)
   20.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,4]>`)
   21.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   22.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   23.           ├─base::withCallingHandlers(...)
   24.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test_sim_studies.R:58:3'): sim_studies() - filter studies using studies parameter ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─simaerep::sim_studies(...) at test_sim_studies.R:58:2
    2. │ └─simaerep::check_df_visit(df_visit)
    3. │   └─simaerep::exp_implicit_missing_visits(df_visit)
    4. │     └─... %>% ...
    5. ├─dplyr::arrange(...)
    6. ├─dplyr::select(...)
    7. ├─dplyr::mutate(., n_ae = ifelse(is.na(.data$n_ae), 0, .data$n_ae))
    8. ├─dplyr::filter(...)
    9. ├─dplyr::ungroup(.)
   10. ├─dplyr::mutate(...)
   11. ├─dplyr::group_by(., .data$study_id)
   12. ├─dplyr::mutate(...)
   13. ├─tidyr::fill(., .data$n_ae, .direction = "down")
   14. ├─dplyr::arrange(., .data$visit)
   15. ├─dplyr::group_by(., .data$study_id, .data$site_number, .data$patnum)
   16. ├─dplyr::right_join(...)
   17. └─dplyr:::right_join.data.frame(...)
   18.   └─dplyr:::join_mutate(...)
   19.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,4]>`)
   20.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,4]>`)
   21.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   22.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   23.           ├─base::withCallingHandlers(...)
   24.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test_sim_studies.R:75:3'): sim_studies() - all visit_med75 values per study must have the same size of pat_pool ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─simaerep::sim_studies(...) at test_sim_studies.R:75:2
    2. │ └─simaerep::check_df_visit(df_visit)
    3. │   └─simaerep::exp_implicit_missing_visits(df_visit)
    4. │     └─... %>% ...
    5. ├─dplyr::arrange(...)
    6. ├─dplyr::select(...)
    7. ├─dplyr::mutate(., n_ae = ifelse(is.na(.data$n_ae), 0, .data$n_ae))
    8. ├─dplyr::filter(...)
    9. ├─dplyr::ungroup(.)
   10. ├─dplyr::mutate(...)
   11. ├─dplyr::group_by(., .data$study_id)
   12. ├─dplyr::mutate(...)
   13. ├─tidyr::fill(., .data$n_ae, .direction = "down")
   14. ├─dplyr::arrange(., .data$visit)
   15. ├─dplyr::group_by(., .data$study_id, .data$site_number, .data$patnum)
   16. ├─dplyr::right_join(...)
   17. └─dplyr:::right_join.data.frame(...)
   18.   └─dplyr:::join_mutate(...)
   19.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,4]>`)
   20.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,4]>`)
   21.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   22.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   23.           ├─base::withCallingHandlers(...)
   24.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test_sim_studies.R:101:3'): sim_studies() - sampling must not repeat itself ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─simaerep::sim_studies(...) at test_sim_studies.R:101:2
    2. │ └─simaerep::check_df_visit(df_visit)
    3. │   └─simaerep::exp_implicit_missing_visits(df_visit)
    4. │     └─... %>% ...
    5. ├─dplyr::arrange(...)
    6. ├─dplyr::select(...)
    7. ├─dplyr::mutate(., n_ae = ifelse(is.na(.data$n_ae), 0, .data$n_ae))
    8. ├─dplyr::filter(...)
    9. ├─dplyr::ungroup(.)
   10. ├─dplyr::mutate(...)
   11. ├─dplyr::group_by(., .data$study_id)
   12. ├─dplyr::mutate(...)
   13. ├─tidyr::fill(., .data$n_ae, .direction = "down")
   14. ├─dplyr::arrange(., .data$visit)
   15. ├─dplyr::group_by(., .data$study_id, .data$site_number, .data$patnum)
   16. ├─dplyr::right_join(...)
   17. └─dplyr:::right_join.data.frame(...)
   18.   └─dplyr:::join_mutate(...)
   19.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,4]>`)
   20.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,4]>`)
   21.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   22.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   23.           ├─base::withCallingHandlers(...)
   24.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test_sim_studies.R:123:3'): get_ecd_values() - ecd values between 0 - 1 ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─simaerep::sim_studies(...) at test_sim_studies.R:123:2
    2. │ └─simaerep::check_df_visit(df_visit)
    3. │   └─simaerep::exp_implicit_missing_visits(df_visit)
    4. │     └─... %>% ...
    5. ├─dplyr::arrange(...)
    6. ├─dplyr::select(...)
    7. ├─dplyr::mutate(., n_ae = ifelse(is.na(.data$n_ae), 0, .data$n_ae))
    8. ├─dplyr::filter(...)
    9. ├─dplyr::ungroup(.)
   10. ├─dplyr::mutate(...)
   11. ├─dplyr::group_by(., .data$study_id)
   12. ├─dplyr::mutate(...)
   13. ├─tidyr::fill(., .data$n_ae, .direction = "down")
   14. ├─dplyr::arrange(., .data$visit)
   15. ├─dplyr::group_by(., .data$study_id, .data$site_number, .data$patnum)
   16. ├─dplyr::right_join(...)
   17. └─dplyr:::right_join.data.frame(...)
   18.   └─dplyr:::join_mutate(...)
   19.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,4]>`)
   20.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,4]>`)
   21.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   22.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   23.           ├─base::withCallingHandlers(...)
   24.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test_site_aggr.R:10:3'): site_aggr() - check column names of returned data frame ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─simaerep::site_aggr(df_visit_test) at test_site_aggr.R:10:2
    2. │ └─simaerep::check_df_visit(df_visit)
    3. │   └─simaerep::exp_implicit_missing_visits(df_visit)
    4. │     └─... %>% ...
    5. ├─dplyr::arrange(...)
    6. ├─dplyr::select(...)
    7. ├─dplyr::mutate(., n_ae = ifelse(is.na(.data$n_ae), 0, .data$n_ae))
    8. ├─dplyr::filter(...)
    9. ├─dplyr::ungroup(.)
   10. ├─dplyr::mutate(...)
   11. ├─dplyr::group_by(., .data$study_id)
   12. ├─dplyr::mutate(...)
   13. ├─tidyr::fill(., .data$n_ae, .direction = "down")
   14. ├─dplyr::arrange(., .data$visit)
   15. ├─dplyr::group_by(., .data$study_id, .data$site_number, .data$patnum)
   16. ├─dplyr::right_join(...)
   17. └─dplyr:::right_join.data.frame(...)
   18.   └─dplyr:::join_mutate(...)
   19.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,4]>`)
   20.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,4]>`)
   21.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   22.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   23.           ├─base::withCallingHandlers(...)
   24.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test_site_aggr.R:24:3'): site_aggr() must return different results for method = 'med75_adj' and method = 'med75' ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─simaerep::site_aggr(df_visit_test, method = "med75_adj") at test_site_aggr.R:24:2
    2. │ └─simaerep::check_df_visit(df_visit)
    3. │   └─simaerep::exp_implicit_missing_visits(df_visit)
    4. │     └─... %>% ...
    5. ├─dplyr::arrange(...)
    6. ├─dplyr::select(...)
    7. ├─dplyr::mutate(., n_ae = ifelse(is.na(.data$n_ae), 0, .data$n_ae))
    8. ├─dplyr::filter(...)
    9. ├─dplyr::ungroup(.)
   10. ├─dplyr::mutate(...)
   11. ├─dplyr::group_by(., .data$study_id)
   12. ├─dplyr::mutate(...)
   13. ├─tidyr::fill(., .data$n_ae, .direction = "down")
   14. ├─dplyr::arrange(., .data$visit)
   15. ├─dplyr::group_by(., .data$study_id, .data$site_number, .data$patnum)
   16. ├─dplyr::right_join(...)
   17. └─dplyr:::right_join.data.frame(...)
   18.   └─dplyr:::join_mutate(...)
   19.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,4]>`)
   20.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,4]>`)
   21.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   22.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   23.           ├─base::withCallingHandlers(...)
   24.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test_site_aggr.R:78:3'): site_aggr() - visitmed75 must not become greater than 0.8 percentile of the max visit of all patients ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─simaerep::site_aggr(df_visit) at test_site_aggr.R:78:2
    2. │ └─simaerep::check_df_visit(df_visit)
    3. │   └─simaerep::exp_implicit_missing_visits(df_visit)
    4. │     └─... %>% ...
    5. ├─dplyr::arrange(...)
    6. ├─dplyr::select(...)
    7. ├─dplyr::mutate(., n_ae = ifelse(is.na(.data$n_ae), 0, .data$n_ae))
    8. ├─dplyr::filter(...)
    9. ├─dplyr::ungroup(.)
   10. ├─dplyr::mutate(...)
   11. ├─dplyr::group_by(., .data$study_id)
   12. ├─dplyr::mutate(...)
   13. ├─tidyr::fill(., .data$n_ae, .direction = "down")
   14. ├─dplyr::arrange(., .data$visit)
   15. ├─dplyr::group_by(., .data$study_id, .data$site_number, .data$patnum)
   16. ├─dplyr::right_join(...)
   17. └─dplyr:::right_join.data.frame(...)
   18.   └─dplyr:::join_mutate(...)
   19.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,4]>`)
   20.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,4]>`)
   21.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   22.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   23.           ├─base::withCallingHandlers(...)
   24.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test_validation.R:33:3'): validation requirement - under-reporting probability must negatively correlate with low AE per visit rates using validation test set with 25, 50, 75, 100% simulated AE under-reporting ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─simaerep::simaerep(df_visit_val) at test_validation.R:33:2
    2. │ └─simaerep::check_df_visit(df_visit)
    3. │   └─simaerep::exp_implicit_missing_visits(df_visit)
    4. │     └─... %>% ...
    5. ├─dplyr::arrange(...)
    6. ├─dplyr::select(...)
    7. ├─dplyr::mutate(., n_ae = ifelse(is.na(.data$n_ae), 0, .data$n_ae))
    8. ├─dplyr::filter(...)
    9. ├─dplyr::ungroup(.)
   10. ├─dplyr::mutate(...)
   11. ├─dplyr::group_by(., .data$study_id)
   12. ├─dplyr::mutate(...)
   13. ├─tidyr::fill(., .data$n_ae, .direction = "down")
   14. ├─dplyr::arrange(., .data$visit)
   15. ├─dplyr::group_by(., .data$study_id, .data$site_number, .data$patnum)
   16. ├─dplyr::right_join(...)
   17. └─dplyr:::right_join.data.frame(...)
   18.   └─dplyr:::join_mutate(...)
   19.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,4]>`)
   20.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,4]>`)
   21.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   22.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   23.           ├─base::withCallingHandlers(...)
   24.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  
  [ FAIL 21 | WARN 427 | SKIP 4 | PASS 44 ]
  Deleting unused snapshots:
  • validation/study-025.svg
  • validation/study-050.svg
  • validation/study-075.svg
  • validation/study-100.svg
  Error: Test failures
  Execution halted