在Bookdown（gitbook）中显示和交叉引用模型摘要

Question

请考虑以下内容：

我想将模型摘要集成到gitbook（最终产品）的漂亮表中。似乎有很多方法可以呈现这些摘要，但是我找不到将其集成到bookdown中的方法。更不用说交叉引用了。

此问题类似于：A workflow with bookdown to produce frequency, cross tables and model summary tables

仅在后者中，（未标记）答案中的链接指向不涉及呈现模型汇总表的解决方案。

为清楚起见，我想渲染以下内容：

model <- glm(lm(hp ~ wt, mtcars))

model
#> 
#> Call:  glm(formula = lm(hp ~ wt, mtcars))
#> 
#> Coefficients:
#> (Intercept)           wt  
#>      -1.821       46.160  
#> 
#> Degrees of Freedom: 31 Total (i.e. Null);  30 Residual
#> Null Deviance:       145700 
#> Residual Deviance: 82490     AIC: 348.2

^{由reprex package（v0.2.1）于2019-04-11创建}

转换为可以在bookdown中交叉引用的内容，看起来类似于sjPlot中呈现的表：

非常感谢！