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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: align_dendro
> ### Title: Plot dendrogram tree
> ### Aliases: align_dendro
> 
> ### ** Examples
> 
> # align_dendro will always add a plot area
> ggheatmap(matrix(rnorm(81), nrow = 9)) +
+     anno_top() +
+     align_dendro()
Error in `.subset2()`:
! this object class is not subsettable
Backtrace:
     ▆
  1. ├─methods (local) `<S4: standardGeneric>`(`<S4: HeatmapLayout>`)
  2. ├─ggalign (local) `<S4: standardGeneric>`(`<S4: HeatmapLayout>`)
  3. │ ├─base::print(object)
  4. │ └─ggalign:::print.LayoutProto(object)
  5. │   ├─rlang::try_fetch(...)
  6. │   │ ├─base::tryCatch(...)
  7. │   │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
  8. │   │ │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
  9. │   │ │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
 10. │   │ └─base::withCallingHandlers(...)
 11. │   ├─grid::grid.draw(x, ...)
 12. │   └─ggalign:::grid.draw.LayoutProto(x, ...)
 13. │     ├─grid::grid.draw(ggalignGrob(x), recording = recording)
 14. │     └─ggalign::ggalignGrob(x)
 15. │       ├─ggalign:::ggalign_gtable(ggalign_build(x))
 16. │       ├─ggalign:::ggalign_build(x)
 17. │       └─ggalign:::ggalign_build.QuadLayout(x)
 18. │         ├─ggalign:::quad_build(x)
 19. │         ├─ggalign:::quad_build.HeatmapLayout(x)
 20. │         ├─base::NextMethod()
 21. │         └─ggalign:::quad_build.QuadLayout(x)
 22. │           └─base::lapply(...)
 23. │             └─ggalign (local) FUN(X[[i]], ...)
 24. │               └─ggalign:::stack_build(...)
 25. │                 ├─ggalign:::stack_build_composer(stack, schemes, theme, extra_design)
 26. │                 └─ggalign:::stack_build_composer.StackLayout(...)
 27. │                   ├─ggalign:::stack_composer_add(...)
 28. │                   └─ggalign:::stack_composer_add.list(...)
 29. │                     ├─ggalign:::stack_composer_add(plot = p, composer = composer, ...)
 30. │                     └─ggalign:::stack_composer_add.CraftBox(...)
 31. │                       └─S7:::Ops.S7_object(...)
 32. │                         ├─base::tryCatch(return(base_ops[[.Generic]](e1, e2)), S7_error_method_not_found = function(cnd) cnd)
 33. │                         │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
 34. │                         │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
 35. │                         │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
 36. │                         └─base_ops[[.Generic]](e1, e2)
 37. │                           ├─S7::S7_dispatch()
 38. │                           └─ggplot2 (local) `method(+, list(ggplot2::ggplot, class_any))`(...)
 39. │                             └─ggplot2:::add_ggplot(e1, e2, e2name)
 40. │                               ├─ggplot2::ggplot_add(object, p, objectname)
 41. │                               └─ggalign:::ggplot_add.ggalign_design(object, p, objectname)
 42. └─base::.handleSimpleError(...)
 43.   └─rlang (local) h(simpleError(msg, call))
 44.     └─handlers[[1L]](cnd)
 45.       └─rlang::cnd_signal(e)
Execution halted