Running 'testthat.R' [86s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(xpose)
  Loading required package: ggplot2
  
  Attaching package: 'xpose'
  
  The following object is masked from 'package:stats':
  
      filter
  
  > 
  > test_check("xpose")
  [ FAIL 6 | WARN 4 | SKIP 7 | PASS 516 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (7)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure ('test-update_themes.R:45'): parial xp_themes are properly added ────
  update_themes(xpdb = xpdb_ex_pk, xp_theme = c(point_color = "green"))$xp_theme not equal to `theme_xp_custom`.
  Component "labeller": target, current do not match when deparsed
  ── Failure ('test-xpose_geom.R:18'): xp_map works properly ─────────────────────
  xp_map(...) not equal to geom_point(mapping = aes_string(x = "IPRED"), color = "red").
  Component "constructor": target, current do not match when deparsed
  ── Failure ('test-xpose_geom.R:24'): xp_geoms works properly ───────────────────
  xp_geoms(...) not equal to geom_point(...).
  Component "constructor": target, current do not match when deparsed
  ── Failure ('test-xpose_save.R:25'): errors are returned for bad filename input ──
  `xpose_save(plot = plot, file = paths_1[1])` threw an error with unexpected message.
  Expected match: "Unknown graphics device 'abcd'"
  Actual message: "Unknown graphics device \"abcd\""
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-xpose_save.R:25:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─xpose::xpose_save(plot = plot, file = paths_1[1])
    7.   └─ggplot2::ggsave(...)
    8.     └─ggplot2:::plot_dev(device, filename, dpi = dpi)
    9.       └─cli::cli_abort("Unknown graphics device {.val {device}}", call = call)
   10.         └─rlang::abort(...)
  ── Failure ('test-xpose_save.R:29'): errors are returned for bad filename input ──
  `xpose_save(plot = plot, file = paths_1[3])` threw an error with unexpected message.
  Expected match: "Unknown graphics device ''"
  Actual message: "Unknown graphics device \"\""
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-xpose_save.R:29:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─xpose::xpose_save(plot = plot, file = paths_1[3])
    7.   └─ggplot2::ggsave(...)
    8.     └─ggplot2:::plot_dev(device, filename, dpi = dpi)
    9.       └─cli::cli_abort("Unknown graphics device {.val {device}}", call = call)
   10.         └─rlang::abort(...)
  ── Failure ('test-xpose_save.R:33'): errors are returned for bad filename input ──
  `xpose_save(plot = plot, file = paths_1)` threw an error with unexpected message.
  Expected match: "`device` must be NULL, a string or a function."
  Actual message: "`device` must be \"NULL\", a string or a function."
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-xpose_save.R:33:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─xpose::xpose_save(plot = plot, file = paths_1)
    7.   └─ggplot2::ggsave(...)
    8.     └─ggplot2:::plot_dev(device, filename, dpi = dpi)
    9.       └─cli::cli_abort(...)
   10.         └─rlang::abort(...)
  
  [ FAIL 6 | WARN 4 | SKIP 7 | PASS 516 ]
  Error: Test failures
  Execution halted