Running examples in 'seecolor-Ex.R' failed
The error most likely occurred in:

> ### Name: print_color
> ### Title: Print the colors
> ### Aliases: print_color
> 
> ### ** Examples
> 
> 
> print_color(colors(), type = "mosaic", blank.len = 3)

 ------ colors ------
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   > print_color(palette(), type = "ribbon")

 ------ palette ------
Error in `map()`:
ℹ In index: 1.
Caused by error in `dplyr::if_else()`:
! `condition` must be a vector with type <logical>.
Instead, it has type <logical[,1]>.
Backtrace:
     ▆
  1. ├─seecolor::print_color(palette(), type = "ribbon")
  2. │ └─seecolor:::draw_colors_ribbon(x)
  3. │   └─x[["col.pal"]] %>% purrr::walk(draw_color_ribbon)
  4. ├─purrr::walk(., draw_color_ribbon)
  5. │ └─purrr::map(.x, .f, ..., .progress = .progress)
  6. │   └─purrr:::map_("list", .x, .f, ..., .progress = .progress)
  7. │     ├─purrr:::with_indexed_errors(...)
  8. │     │ └─base::withCallingHandlers(...)
  9. │     ├─purrr:::call_with_cleanup(...)
 10. │     └─seecolor (local) .f(.x[[i]], ...)
 11. │       ├─crayon::make_style(contrast_color(bg.color))
 12. │       └─seecolor:::contrast_color(bg.color)
 13. │         ├─... %>% ...
 14. │         └─dplyr::if_else(grDevices::col2rgb(x) < 128, 255, 0)
 15. │           └─vctrs::vec_assert(x = condition, ptype = logical(), arg = "condition")
 16. │             └─rlang::abort(...)
 17. ├─purrr::set_names(., c("red", "green", "blue", "maxColorValue"))
 18. ├─base::append(., 255)
 19. └─base::as.list(.)
Execution halted