вставить резюме модели в конечные узлы графика

Question

вместо того, чтобы вставлять коэффициент в клеммные панели на графике, я хотел бы вставить сводку адаптированной модели для узла

я знаю, как вставить оценочные коэффициенты модели в терминальную панель при работе с функциейplot.modelparty () из пакета partykit.знаю, что я хотел бы заменить на таблицу с обобщением подходящей модели, как это предусмотрено.

plot(survregtree.cll.a1$hazard.obj, 
         terminal_panel = NULL, 
         FUN = model_summary, 
         gp=grid::gpar(fontsize = 6), 
         pointcex = .3) here

        model_summary <- function(x){
           smr <- lapply(summary(x), function(k) k["coefficients"])
           c(strwrap(capture.output(print(smr, digits = 3))))
           }

Вот часть результатов, полученных при запуске самой функции:таблица, вставленная в конечный узел при запуске функции plot.modelparty ()

благодарю за помощь.