어떻게 Knitr/R RStudio에서 회귀 결과 테이블을 Word로 출력합니까? (mtable, memisc)

Question

knitr에서 회귀 결과 테이블을 Word에 출력하고 싶지만 문제가 있습니다. \ LaTeX에 mtable s를 출력하면 옵션을 조정할 수 있지만 Word의 경우에는 멈추게됩니다. 내 MWE가 아래에 있습니다.

--- 
output: 
    word_document: default 
--- 

```{r setup, include=FALSE} 
knitr::opts_chunk$set(echo = TRUE) 
library(memisc) 
``` 

## This section contains ugly text, not a table 
```{r eval = T, include = T, echo = F} 
lm0 <- lm(sr ~ pop15 + pop75,    data = LifeCycleSavings) 
lm1 <- lm(sr ~     dpi + ddpi, data = LifeCycleSavings) 
lm2 <- lm(sr ~ pop15 + pop75 + dpi + ddpi, data = LifeCycleSavings) 

mt01 <- mtable(lm0,lm1,summary.stats=c("R-squared","N")) 
mt12 <- mtable(lm1,lm2,summary.stats=c("R-squared","F","N")) 

c("Group 1"=mt01, 
"Group 2"=mt12) 
``` 

Answer 1

나는 못생긴 해킹을 고안했습니다. 내 위치에있는 다른 사람을 도울 수 있기를 바랍니다. 나는 이것을 달성하기위한 명백하고 간단한 방법이 존재한다는 것을 확신한다.

--- 
output: 
    word_document: default 
--- 
```{r setup, include=FALSE} 
knitr::opts_chunk$set(echo = TRUE) 
library(memisc) 
``` 

## This section contains a table, not ugly text 
```{r eval = T, include = T, echo = F} 
lm0 <- lm(sr ~ pop15 + pop75,    data = LifeCycleSavings) 
lm1 <- lm(sr ~     dpi + ddpi, data = LifeCycleSavings) 
lm2 <- lm(sr ~ pop15 + pop75 + dpi + ddpi, data = LifeCycleSavings) 

mt01 <- mtable(lm0,lm1,summary.stats=c("R-squared","N")) 
mt12 <- mtable(lm1,lm2,summary.stats=c("R-squared","F","N")) 

x = c("Group 1"=mt01,"Group 2"=mt12) 

x = memisc::mtable_format_delim(x) 
writeLines(x,"table.csv") 
x = read.delim("table.csv", header = F, stringsAsFactors = F) 
colnames(x) = x[1,] 
x = x[-1,] 
rownames(x) = NULL 
knitr::kable(x) 
```