r - slidify の回帰表を生成しますか?

Question

slidify の見栄えの良い回帰表を生成する最良の方法は何ですか?

---
## Custom Tables

```{r, results = "asis", echo = FALSE}
library(xtable)
OLS <- lm(hp ~ wt, mtcars)
print(xtable(OLS), type="html", html.table.attributes='class=mytable', label ="OLS", digits = 3)
```

<style>
table.mytable {
  border: none;
  width: 100%;
  border-collapse: collapse;
  font-size: 45px;
  line-height: 50px;
  font-family: 'Ubuntu';'Trebuchet MS';
  font-weight: bolder;
  color: blue;
}

table.mytable tr:nth-child(2n+1) {
/*  background: #E8F2FF; */
  background: #FFFFFF;
}
</style>

名前を変更したり (Intercept の代わりに「Constant」、wt の代わりに「Weight」)、観測数、R-squared、F Statistic などを追加できるようにしたいと考えています。

ありがとう！