Running examples in ‘MiscMetabar-Ex.R’ failed
The error most likely occurred in:

> ### Name: upset_pq
> ### Title: Make upset plot for phyloseq object.
> ### Aliases: upset_pq
> 
> ### ** Examples
> 
> if (requireNamespace("ComplexUpset")) {
+   upset_pq(data_fungi_mini,
+     fact = "Height", width_ratio = 0.2,
+     taxa_fill = "Class"
+   )
+ }
Loading required namespace: ComplexUpset
Cleaning suppress 0 taxa (  ) and 0 sample(s) (  ).
Number of non-matching ASV 0
Number of matching ASV 45
Number of filtered-out ASV 0
Number of kept ASV 45
Number of kept samples 137
Warning: Using `size` aesthetic for lines was deprecated in ggplot2 3.4.0.
ℹ Please use `linewidth` instead.
ℹ The deprecated feature was likely used in the ComplexUpset package.
  Please report the issue at
  <https://github.com/krassowski/complex-upset/issues>.
Warning: themes$intersections_matrix is not a valid theme.
Please use `theme()` to construct themes.
Warning: `legend.margin` must be specified using `margin()`
ℹ For the old behavior use `legend.spacing`
Warning: themes$intersections_matrix is not a valid theme.
Please use `theme()` to construct themes.
Warning: selected_theme is not a valid theme.
Please use `theme()` to construct themes.
Warning: `legend.margin` must be specified using `margin()`
ℹ For the old behavior use `legend.spacing`
Warning: selected_theme is not a valid theme.
Please use `theme()` to construct themes.
Error in `method(update_ggplot, list(ggplot2::theme, ggplot2::ggplot))`:
! Can't merge the `axis.text` theme element.
Caused by error:
! `object` must be an <S7_object>, not a S3<element_text/element>
Backtrace:
     ▆
  1. ├─MiscMetabar::upset_pq(...)
  2. │ └─ComplexUpset::upset(...)
  3. │   └─S7:::Ops.S7_object(...)
  4. │     ├─base::tryCatch(return(base_ops[[.Generic]](e1, e2)), S7_error_method_not_found = function(cnd) cnd)
  5. │     │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
  6. │     │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
  7. │     │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
  8. │     └─base_ops[[.Generic]](e1, e2)
  9. │       ├─S7::S7_dispatch()
 10. │       └─ggplot2 (local) `method(+, list(ggplot2::ggplot, class_any))`(...)
 11. │         └─ggplot2:::add_ggplot(e1, e2, e2name)
 12. │           ├─ggplot2::ggplot_add(object, p, objectname)
 13. │           └─ggplot2:::ggplot_add.default(object, p, objectname)
 14. │             └─ggplot2::update_ggplot(object = object, plot = plot, ...)
 15. │               ├─S7::S7_dispatch()
 16. │               └─ggplot2 (local) `method(update_ggplot, list(ggplot2::theme, ggplot2::ggplot))`(object = `<theme>`, plot = `<ggplt2::>`, ...)
 17. │                 ├─S7::set_props(plot, theme = add_theme(plot@theme, object))
 18. │                 └─ggplot2:::add_theme(plot@theme, object)
 19. │                   ├─rlang::try_fetch(...)
 20. │                   │ ├─base::tryCatch(...)
 21. │                   │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
 22. │                   │ │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
 23. │                   │ │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
 24. │                   │ └─base::withCallingHandlers(...)
 25. │                   └─ggplot2::merge_element(t2[[item]], t1[[item]])
 26. │                     ├─S7::S7_dispatch()
 27. │                     └─ggplot2 (local) `method(merge_element, list(ggplot2::element, class_any))`(...)
 28. │                       └─S7::props(old, idx)
 29. │                         └─S7::check_is_S7(object)
 30. │                           └─base::stop(msg, call. = FALSE)
 31. └─base::.handleSimpleError(...)
 32.   └─rlang (local) h(simpleError(msg, call))
 33.     └─handlers[[1L]](cnd)
 34.       └─cli::cli_abort(...)
 35.         └─rlang::abort(...)
Execution halted