Running ‘testthat.R’ [9s/11s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > # This file is part of the standard setup for testthat.
  > # It is recommended that you do not modify it.
  > #
  > # Where should you do additional test configuration?
  > # Learn more about the roles of various files in:
  > # * https://r-pkgs.org/tests.html
  > # * https://testthat.r-lib.org/reference/test_package.html#special-files
  > 
  > library(testthat)
  > library(faersquarterlydata)
  > 
  > test_check("faersquarterlydata")
  Retrieving drug/indication information: binding resources/test_zip_ex_dir/ASCII/DRUG22Q4.txt 1 out of 2
  Retrieving drug/indication information: binding resources/test_zip_ex_dir/ASCII/DRUG22Q4.txt 1 out of 2
  retrieving resources/1_ADR22Q1_example.xml
  retrieving resources/1_ADR22Q1_example.xml
  retrieving resources/1_ADR22Q1_example.xml
  retrieving resources/1_ADR22Q1_example.xml
  retrieving resources/1_ADR22Q1_example.xml
  1 out of 1
  retrieving resources/1_ADR22Q1_example.xml
  1 out of 1
  retrieving resources/1_ADR22Q1_example.xml
  saving resources/1_ADR22Q1_example.xml into cache: resources/cache/cache_xml.Rdata
  1 out of 1
  retrieving resources/1_ADR22Q1_example.xml
  Retrieving drug/indication information: binding resources/test_zip_ex_dir/ASCII/DRUG22Q4.txt 1 out of 2
  Retrieving drug/indication information: binding resources/test_zip_ex_dir/ASCII/DRUG22Q4.txt 1 out of 2
  unzipping resources/xml_files/faers_xml_2012q4.zip
  unzipping resources/ascii_files//faers_ascii_2022Q4.zip
  [ FAIL 4 | WARN 36 | SKIP 0 | PASS 30 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-read_func_ascii.R:23:3'): retrieve_faersascii ──────────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(.tbl, !!!funs)`: i In argument: `exp_dt = (structure(function (..., .x = ..1, .y = ..2, . = ..1) ...`.
  Caused by error in `arrange_date()`:
  ! string contains letters
  Backtrace:
       ▆
    1. ├─testthat::expect_true(...) at test-read_func_ascii.R:23:3
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─faersquarterlydata::retrieve_faersascii(...)
    5. │ └─... %>% ...
    6. ├─dplyr::mutate_at(., vars(ends_with("_dt")), list(~arrange_date(.)))
    7. │ ├─dplyr::mutate(.tbl, !!!funs)
    8. │ └─dplyr:::mutate.data.frame(.tbl, !!!funs)
    9. │   └─dplyr:::mutate_cols(.data, dplyr_quosures(...), by)
   10. │     ├─base::withCallingHandlers(...)
   11. │     └─dplyr:::mutate_col(dots[[i]], data, mask, new_columns)
   12. │       └─mask$eval_all_mutate(quo)
   13. │         └─dplyr (local) eval()
   14. ├─faersquarterlydata (local) `<inln_cl_>`(exp_dt)
   15. │ └─rlang::eval_bare(`_quo`, base::parent.frame())
   16. ├─rlang (local) arrange_date(.)
   17. ├─faersquarterlydata::arrange_date(.)
   18. │ └─base::stop("string contains letters")
   19. └─base::.handleSimpleError(`<fn>`, "string contains letters", base::quote(arrange_date(.)))
   20.   └─dplyr (local) h(simpleError(msg, call))
   21.     └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
  ── Error ('test-read_func_ascii.R:49:3'): unify_tabular_ascii ──────────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(.tbl, !!!funs)`: i In argument: `exp_dt = (structure(function (..., .x = ..1, .y = ..2, . = ..1) ...`.
  Caused by error in `arrange_date()`:
  ! string contains letters
  Backtrace:
       ▆
    1. ├─faersquarterlydata::retrieve_faersascii(...) at test-read_func_ascii.R:49:3
    2. │ └─... %>% ...
    3. ├─dplyr::mutate_at(., vars(ends_with("_dt")), list(~arrange_date(.)))
    4. │ ├─dplyr::mutate(.tbl, !!!funs)
    5. │ └─dplyr:::mutate.data.frame(.tbl, !!!funs)
    6. │   └─dplyr:::mutate_cols(.data, dplyr_quosures(...), by)
    7. │     ├─base::withCallingHandlers(...)
    8. │     └─dplyr:::mutate_col(dots[[i]], data, mask, new_columns)
    9. │       └─mask$eval_all_mutate(quo)
   10. │         └─dplyr (local) eval()
   11. ├─faersquarterlydata (local) `<inln_cl_>`(exp_dt)
   12. │ └─rlang::eval_bare(`_quo`, base::parent.frame())
   13. ├─rlang (local) arrange_date(.)
   14. ├─faersquarterlydata::arrange_date(.)
   15. │ └─base::stop("string contains letters")
   16. └─base::.handleSimpleError(`<fn>`, "string contains letters", base::quote(arrange_date(.)))
   17.   └─dplyr (local) h(simpleError(msg, call))
   18.     └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
  ── Error ('test-ror.R:22:3'): estimate_ror_bygroup ─────────────────────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(.tbl, !!!funs)`: i In argument: `exp_dt = (structure(function (..., .x = ..1, .y = ..2, . = ..1) ...`.
  Caused by error in `arrange_date()`:
  ! string contains letters
  Backtrace:
       ▆
    1. ├─faersquarterlydata::retrieve_faersascii(ascii_dir = "resources/test_zip_ex_dir/ASCII") at test-ror.R:22:3
    2. │ └─... %>% ...
    3. ├─dplyr::mutate_at(., vars(ends_with("_dt")), list(~arrange_date(.)))
    4. │ ├─dplyr::mutate(.tbl, !!!funs)
    5. │ └─dplyr:::mutate.data.frame(.tbl, !!!funs)
    6. │   └─dplyr:::mutate_cols(.data, dplyr_quosures(...), by)
    7. │     ├─base::withCallingHandlers(...)
    8. │     └─dplyr:::mutate_col(dots[[i]], data, mask, new_columns)
    9. │       └─mask$eval_all_mutate(quo)
   10. │         └─dplyr (local) eval()
   11. ├─faersquarterlydata (local) `<inln_cl_>`(exp_dt)
   12. │ └─rlang::eval_bare(`_quo`, base::parent.frame())
   13. ├─rlang (local) arrange_date(.)
   14. ├─faersquarterlydata::arrange_date(.)
   15. │ └─base::stop("string contains letters")
   16. └─base::.handleSimpleError(`<fn>`, "string contains letters", base::quote(arrange_date(.)))
   17.   └─dplyr (local) h(simpleError(msg, call))
   18.     └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
  ── Error ('test-summary.R:3:3'): summary_faersdata ─────────────────────────────
  <dplyr:::mutate_error/rlang_error/error/condition>
  Error in `mutate(.tbl, !!!funs)`: i In argument: `exp_dt = (structure(function (..., .x = ..1, .y = ..2, . = ..1) ...`.
  Caused by error in `arrange_date()`:
  ! string contains letters
  Backtrace:
       ▆
    1. ├─faersquarterlydata::retrieve_faersascii(ascii_dir = "resources/test_zip_ex_dir/ASCII") at test-summary.R:3:3
    2. │ └─... %>% ...
    3. ├─dplyr::mutate_at(., vars(ends_with("_dt")), list(~arrange_date(.)))
    4. │ ├─dplyr::mutate(.tbl, !!!funs)
    5. │ └─dplyr:::mutate.data.frame(.tbl, !!!funs)
    6. │   └─dplyr:::mutate_cols(.data, dplyr_quosures(...), by)
    7. │     ├─base::withCallingHandlers(...)
    8. │     └─dplyr:::mutate_col(dots[[i]], data, mask, new_columns)
    9. │       └─mask$eval_all_mutate(quo)
   10. │         └─dplyr (local) eval()
   11. ├─faersquarterlydata (local) `<inln_cl_>`(exp_dt)
   12. │ └─rlang::eval_bare(`_quo`, base::parent.frame())
   13. ├─rlang (local) arrange_date(.)
   14. ├─faersquarterlydata::arrange_date(.)
   15. │ └─base::stop("string contains letters")
   16. └─base::.handleSimpleError(`<fn>`, "string contains letters", base::quote(arrange_date(.)))
   17.   └─dplyr (local) h(simpleError(msg, call))
   18.     └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
  
  [ FAIL 4 | WARN 36 | SKIP 0 | PASS 30 ]
  Error: Test failures
  Execution halted