Running 'testthat.R' [34s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(gtExtras)
  Loading required package: gt
  
  Attaching package: 'gt'
  
  The following object is masked from 'package:testthat':
  
      matches
  
  
  Attaching package: 'gtExtras'
  
  The following object is masked from 'package:testthat':
  
      matches
  
  > 
  > test_check("gtExtras")
  Starting 2 test processes
  [ FAIL 6 | WARN 21 | SKIP 19 | PASS 104 ]
  
  ══ Skipped tests (19) ══════════════════════════════════════════════════════════
  • On CRAN (19): 'test-fmt_pad_num.R:3:3', 'test-fmt_pct_extra.R:3:3',
    'test-fmt_symbol_first.R:56:3', 'test-fmt_symbol_first.R:61:3',
    'test-fmt_symbol_first.R:66:3', 'test-fmt_symbol_first.R:71:3',
    'test-fontawesome-icons.R:3:3', 'test-fontawesome-icons.R:101:3',
    'test-gt_image_multi_rows.R:3:3', 'test-gt_image_rows.R:3:3',
    'test-gt_img_circle.R:3:3', 'test-gt_summary_table.R:25:3',
    'test-gt_text_img.R:3:3', 'test-gtsave_extra.R:4:3',
    'test-html-helpers.R:24:3', 'test-icon_fun.R:3:3', 'test-img_header.R:3:3',
    'test-two-column-layouts.R:4:3', 'test-two-column-layouts.R:27:3'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure ('test-gt_pct_bar.R:93:3'): gt_pct_bar SVG is created and has specific palette ──
  round(bar_vals, 2) (`actual`) not equal to c(0, 119.06, 0, 124.02, 0, 85.04, 0, 85.04) (`expected`).
  
    `actual`: 0 0 119.06 0 0 124.02 0 0 85.04 0 and 2 more...
  `expected`: 0   119.06   0 124.02   0 85.04             ...
  ── Failure ('test-gt_pct_bar.R:97:3'): gt_pct_bar SVG is created and has specific palette ──
  `bar_colors` (`actual`) not equal to c(...) (`expected`).
  
  actual vs expected
  - "fill: none; stroke-linecap: round; stroke-linejoin: round; stroke-miterlimit: 10.00; stroke-width: 0.00; stroke: none;"
    "FF4343;"
    "BFBFBF;"
  - "fill: none; stroke-linecap: round; stroke-linejoin: round; stroke-miterlimit: 10.00; stroke-width: 0.00; stroke: none;"
    "FF4343;"
    "BFBFBF;"
  - "fill: none; stroke-linecap: round; stroke-linejoin: round; stroke-miterlimit: 10.00; stroke-width: 0.00; stroke: none;"
    "FF4343;"
    "BFBFBF;"
  - "fill: none; stroke-linecap: round; stroke-linejoin: round; stroke-miterlimit: 10.00; stroke-width: 0.00; stroke: none;"
  and 2 more ...
  ── Failure ('test-gt_plt_bar.R:43:3'): gt_plt_bar svg is created and has specific values ──
  `bar_vals` (`actual`) not equal to c("90.61", "90.61", "98.37", "92.33", "80.68", "78.10") (`expected`).
  
       actual   | expected               
   [1] "113.39" -                        
   [2] "90.61"  | "90.61"  [1]           
   [3] "113.39" -                        
   [4] "90.61"  | "90.61"  [2]           
   [5] "113.39" -                        
   [6] "98.37"  | "98.37"  [3]           
   [7] "113.39" -                        
   [8] "92.33"  | "92.33"  [4]           
   [9] "113.39" -                        
  [10] "80.68"  | "80.68"  [5]           
   ... ...        ...      and 2 more ...
  ── Failure ('test-gt_plt_bar.R:47:3'): gt_plt_bar svg is created and has specific values ──
  `bar_neg_vals` (`actual`) not equal to c("49.19", "32.79", "16.40", "16.40", "32.79", "49.19") (`expected`).
  
       actual   | expected               
   [1] "113.39" -                        
   [2] "49.19"  | "49.19"  [1]           
   [3] "113.39" -                        
   [4] "32.79"  | "32.79"  [2]           
   [5] "113.39" -                        
   [6] "16.40"  | "16.40"  [3]           
   [7] "113.39" -                        
   [8] "16.40"  | "16.40"  [4]           
   [9] "113.39" -                        
  [10] "32.79"  | "32.79"  [5]           
   ... ...        ...      and 2 more ...
  ── Error ('test-gt_plt_conf_int.R:4:3'): gt_plt_conf_int generates correct points/text ──
  Error in `geom_label(aes(x = .data$ci2, label = do.call(scales::label_number, 
      text_args)(.data$ci2)), color = pal_vals[4], hjust = 1.1, 
      size = text_size, vjust = 0, fill = "transparent", position = position_nudge(y = 0.25), 
      family = "mono", fontface = "bold", label.size = unit(0, 
          "lines"), label.padding = unit(0.05, "lines"), label.r = unit(0, 
          "lines"))`: Problem while converting geom to grob.
  i Error occurred in the 3rd layer.
  Caused by error in `Ops.unit()`:
  ! operator '==' not meaningful for units
  Backtrace:
       ▆
    1. ├─... %>% rvest::read_html() at test-gt_plt_conf_int.R:4:3
    2. ├─rvest::read_html(.)
    3. ├─gt::as_raw_html(.)
    4. │ ├─htmltools::as.tags(data)
    5. │ └─gt:::as.tags.gt_tbl(data)
    6. │   ├─htmltools::HTML(render_as_html(data = x))
    7. │   └─gt:::render_as_html(data = x)
    8. │     └─gt:::build_data(data = data, context = "html")
    9. │       └─gt:::perform_text_transforms(data = data)
   10. │         ├─gt:::text_transform_at_location(...)
   11. │         └─gt:::text_transform_at_location.cells_body(...)
   12. │           └─gtExtras (local) fn(body[[col]][stub_df$rownum_i %in% loc$rows])
   13. │             └─base::mapply(...)
   14. │               └─gtExtras (local) `<fn>`(...)
   15. │                 └─ggplot2::ggsave(...)
   16. │                   └─base::lapply(plot, grid.draw)
   17. │                     ├─grid (local) FUN(X[[i]], ...)
   18. │                     └─ggplot2 (local) `grid.draw.ggplot2::ggplot`(X[[i]], ...)
   19. │                       ├─base::print(x)
   20. │                       └─ggplot2 (local) `print.ggplot2::ggplot`(x)
   21. │                         ├─ggplot2::ggplot_gtable(data)
   22. │                         └─ggplot2 (local) `ggplot_gtable.ggplot2::ggplot_built`(data)
   23. │                           └─ggplot2:::by_layer(...)
   24. │                             ├─rlang::try_fetch(...)
   25. │                             │ ├─base::tryCatch(...)
   26. │                             │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   27. │                             │ │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   28. │                             │ │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
   29. │                             │ └─base::withCallingHandlers(...)
   30. │                             └─ggplot2 (local) f(l = layers[[i]], d = data[[i]])
   31. │                               └─l$draw_geom(d, layout)
   32. │                                 └─ggplot2 (local) draw_geom(..., self = self)
   33. │                                   └─self$geom$draw_layer(...)
   34. │                                     └─ggplot2 (local) draw_layer(..., self = self)
   35. │                                       └─base::lapply(...)
   36. │                                         └─ggplot2 (local) FUN(X[[i]], ...)
   37. │                                           ├─rlang::inject(self$draw_panel(data, panel_params, coord, !!!params))
   38. │                                           └─self$draw_panel(...)
   39. │                                             └─ggplot2 (local) draw_panel(..., self = self)
   40. │                                               └─grid:::Ops.unit(data$linewidth, 0)
   41. │                                                 └─base::stop(...)
   42. └─base::.handleSimpleError(...)
   43.   └─rlang (local) h(simpleError(msg, call))
   44.     └─handlers[[1L]](cnd)
   45.       └─cli::cli_abort(...)
   46.         └─rlang::abort(...)
  ── Error ('test-gt_plt_conf_int.R:62:3'): gt_plt_conf_int uses correct points/text/colors ──
  Error in `geom_label(aes(x = .data$ci2, label = do.call(scales::label_number, 
      text_args)(.data$ci2)), color = pal_vals[4], hjust = 1.1, 
      size = text_size, vjust = 0, fill = "transparent", position = position_nudge(y = 0.25), 
      family = "mono", fontface = "bold", label.size = unit(0, 
          "lines"), label.padding = unit(0.05, "lines"), label.r = unit(0, 
          "lines"))`: Problem while converting geom to grob.
  i Error occurred in the 3rd layer.
  Caused by error in `Ops.unit()`:
  ! operator '==' not meaningful for units
  Backtrace:
       ▆
    1. ├─... %>% rvest::read_html() at test-gt_plt_conf_int.R:62:3
    2. ├─rvest::read_html(.)
    3. ├─gt::as_raw_html(.)
    4. │ ├─htmltools::as.tags(data)
    5. │ └─gt:::as.tags.gt_tbl(data)
    6. │   ├─htmltools::HTML(render_as_html(data = x))
    7. │   └─gt:::render_as_html(data = x)
    8. │     └─gt:::build_data(data = data, context = "html")
    9. │       └─gt:::perform_text_transforms(data = data)
   10. │         ├─gt:::text_transform_at_location(...)
   11. │         └─gt:::text_transform_at_location.cells_body(...)
   12. │           └─gtExtras (local) fn(body[[col]][stub_df$rownum_i %in% loc$rows])
   13. │             └─base::mapply(...)
   14. │               └─gtExtras (local) `<fn>`(...)
   15. │                 └─ggplot2::ggsave(...)
   16. │                   └─base::lapply(plot, grid.draw)
   17. │                     ├─grid (local) FUN(X[[i]], ...)
   18. │                     └─ggplot2 (local) `grid.draw.ggplot2::ggplot`(X[[i]], ...)
   19. │                       ├─base::print(x)
   20. │                       └─ggplot2 (local) `print.ggplot2::ggplot`(x)
   21. │                         ├─ggplot2::ggplot_gtable(data)
   22. │                         └─ggplot2 (local) `ggplot_gtable.ggplot2::ggplot_built`(data)
   23. │                           └─ggplot2:::by_layer(...)
   24. │                             ├─rlang::try_fetch(...)
   25. │                             │ ├─base::tryCatch(...)
   26. │                             │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   27. │                             │ │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   28. │                             │ │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
   29. │                             │ └─base::withCallingHandlers(...)
   30. │                             └─ggplot2 (local) f(l = layers[[i]], d = data[[i]])
   31. │                               └─l$draw_geom(d, layout)
   32. │                                 └─ggplot2 (local) draw_geom(..., self = self)
   33. │                                   └─self$geom$draw_layer(...)
   34. │                                     └─ggplot2 (local) draw_layer(..., self = self)
   35. │                                       └─base::lapply(...)
   36. │                                         └─ggplot2 (local) FUN(X[[i]], ...)
   37. │                                           ├─rlang::inject(self$draw_panel(data, panel_params, coord, !!!params))
   38. │                                           └─self$draw_panel(...)
   39. │                                             └─ggplot2 (local) draw_panel(..., self = self)
   40. │                                               └─grid:::Ops.unit(data$linewidth, 0)
   41. │                                                 └─base::stop(...)
   42. └─base::.handleSimpleError(...)
   43.   └─rlang (local) h(simpleError(msg, call))
   44.     └─handlers[[1L]](cnd)
   45.       └─cli::cli_abort(...)
   46.         └─rlang::abort(...)
  
  [ FAIL 6 | WARN 21 | SKIP 19 | PASS 104 ]
  Error: Test failures
  Execution halted