R Markdown / rmarkdown 中的回归表 (html/pdf)

出于发布的目的，我经常需要我的作品的 PDF 和 HTML 版本，包括回归表，并且我想使用 R Markdown。对于 PDF 来说stargazer和texreg包装可以制作出精美的桌子。现在，在尝试生成同样有吸引力的 HTML 输出时，我面临着不同的问题。

1. HTML 输出的两种方法是缺乏重要性的星星在笔记。由于它们是自动生成的，我不知道如何逃脱它们。 （我认为这可能是一个小问题，因此我不想将其分成单独的问题。）Note:子问题已得到解答here.

这里有一个建议：创建一个检查输出格式的函数，然后根据此使用 stargazer 或 texreg。我们用opts_knit$get("rmarkdown.pandoc.to")检查输出格式。

---
output: html_document
---

```{r setup, include=FALSE}
library(knitr)
opts_chunk$set(echo = TRUE)
rmd_format <- opts_knit$get("rmarkdown.pandoc.to")
## returns "html" or "latex"

```

```{r}

report_regression <- function(model, format, ...){
  if(format == "html"){
    require(texreg)
    htmlreg(model, custom.note="%stars. htmlreg", ...)
  } else if(format == "latex"){
    require(stargazer)
    stargazer(model, notes="stargazer html", ...)
  } else {
   print("This only works with latex and html output") 
  }
}
```

```{r table, results = "asis"}
library(car)
lm1 <- lm(prestige ~ income + education, data=Duncan)

report_regression(lm1, format = rmd_format)
```