Running ‘testthat.R’ [132s/73s]
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/testing-design.html#sec-tests-files-overview
  > # * https://testthat.r-lib.org/articles/special-files.html
  > 
  > library(testthat)
  > library(visOmopResults)
  > 
  > test_check("visOmopResults")
  Starting 2 test processes
  [ FAIL 4 | WARN 168 | SKIP 7 | PASS 425 ]
  
  ══ Skipped tests (7) ═══════════════════════════════════════════════════════════
  • On CRAN (7): 'test-datatableInternal.R:11:3',
    'test-datatableInternal.R:26:3', 'test-formatTable.R:66:3',
    'test-formatTable.R:84:3', 'test-reactableInternal.R:11:3',
    'test-reactableInternal.R:35:3', 'test-visOmopTable.R:394:3'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-formatTable.R:104:3'): global options works ────────────────────
  Error in `dplyr::filter(tinytable@style, i == ii & j == jj)`: i In argument: `i == ii & j == jj`.
  Caused by error:
  ! object 'i' not found
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-formatTable.R:104:3
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─visOmopResults:::getTinytableStyle(tab, -1, 12)
    5. │ ├─dplyr::as_tibble(...) at tests/testthat/setup.R:2:3
    6. │ ├─dplyr::filter(tinytable@style, i == ii & j == jj)
    7. │ └─dplyr:::filter.data.frame(tinytable@style, i == ii & j == jj)
    8. │   └─dplyr:::filter_rows(.data, dots, by)
    9. │     └─dplyr:::filter_eval(...)
   10. │       ├─base::withCallingHandlers(...)
   11. │       └─mask$eval_all_filter(dots, env_filter)
   12. │         └─dplyr (local) eval()
   13. └─base::.handleSimpleError(`<fn>`, "object 'i' not found", base::quote(NULL))
   14.   └─dplyr (local) h(simpleError(msg, call))
   15.     └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
  ── Error ('test-tinyTable.R:38:3'): tinytable ──────────────────────────────────
  Error in `dplyr::filter(tinytable@style, i == ii & j == jj)`: i In argument: `i == ii & j == jj`.
  Caused by error:
  ! object 'i' not found
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-tinyTable.R:38:3
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─visOmopResults:::getTinytableStyle(tinytableInternal, -1, 9)
    5. │ ├─dplyr::as_tibble(...) at tests/testthat/setup.R:2:3
    6. │ ├─dplyr::filter(tinytable@style, i == ii & j == jj)
    7. │ └─dplyr:::filter.data.frame(tinytable@style, i == ii & j == jj)
    8. │   └─dplyr:::filter_rows(.data, dots, by)
    9. │     └─dplyr:::filter_eval(...)
   10. │       ├─base::withCallingHandlers(...)
   11. │       └─mask$eval_all_filter(dots, env_filter)
   12. │         └─dplyr (local) eval()
   13. └─base::.handleSimpleError(`<fn>`, "object 'i' not found", base::quote(NULL))
   14.   └─dplyr (local) h(simpleError(msg, call))
   15.     └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
  ── Error ('test-visTable.R:161:3'): global options works ───────────────────────
  Error in `dplyr::filter(tinytable@style, i == ii & j == jj)`: i In argument: `i == ii & j == jj`.
  Caused by error:
  ! object 'i' not found
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-visTable.R:161:3
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─visOmopResults:::getTinytableStyle(tab, -1, 12)
    5. │ ├─dplyr::as_tibble(...) at tests/testthat/setup.R:2:3
    6. │ ├─dplyr::filter(tinytable@style, i == ii & j == jj)
    7. │ └─dplyr:::filter.data.frame(tinytable@style, i == ii & j == jj)
    8. │   └─dplyr:::filter_rows(.data, dots, by)
    9. │     └─dplyr:::filter_eval(...)
   10. │       ├─base::withCallingHandlers(...)
   11. │       └─mask$eval_all_filter(dots, env_filter)
   12. │         └─dplyr (local) eval()
   13. └─base::.handleSimpleError(`<fn>`, "object 'i' not found", base::quote(NULL))
   14.   └─dplyr (local) h(simpleError(msg, call))
   15.     └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
  ── Error ('test-visOmopTable.R:416:3'): global options works ───────────────────
  Error in `dplyr::filter(tinytable@style, i == ii & j == jj)`: i In argument: `i == ii & j == jj`.
  Caused by error:
  ! object 'i' not found
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-visOmopTable.R:416:3
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─visOmopResults:::getTinytableStyle(tab, -1, 12)
    5. │ ├─dplyr::as_tibble(...) at tests/testthat/setup.R:2:3
    6. │ ├─dplyr::filter(tinytable@style, i == ii & j == jj)
    7. │ └─dplyr:::filter.data.frame(tinytable@style, i == ii & j == jj)
    8. │   └─dplyr:::filter_rows(.data, dots, by)
    9. │     └─dplyr:::filter_eval(...)
   10. │       ├─base::withCallingHandlers(...)
   11. │       └─mask$eval_all_filter(dots, env_filter)
   12. │         └─dplyr (local) eval()
   13. └─base::.handleSimpleError(`<fn>`, "object 'i' not found", base::quote(NULL))
   14.   └─dplyr (local) h(simpleError(msg, call))
   15.     └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
  
  [ FAIL 4 | WARN 168 | SKIP 7 | PASS 425 ]
  Error: Test failures
  Execution halted