r выпуск распечатки уценки

Question

Я запускаю этот код:

## Table 1
```{r Table 1,echo = FALSE,include = FALSE}
MyVars <- c("age", "male", "OutPatient", "BMI","smoking")
CatVars <- c("male","OutPatient","smoking")
nonnormalvars <- testnonnormal(MyVars,CatVars,ModAS_DB)
tab1tot <- CreateTableOne(vars = MyVars, data = ModAS_DB, factorVars = CatVars)
tab1strat <- CreateTableOne(vars = MyVars, data = ModAS_DB, factorVars = CatVars, strata = "trt1")
tab1tot <- print(tab1tot, nonnormal = nonnormalvars)
tab1strat <- print(tab1strat, nonnormal = nonnormalvars)
Table1 <- cbind(tab1tot,tab1strat)
```

`r print(Table1)`

, но он ничего не печатает. Также, когда я печатаю изнутри кода, я получаю очень уродливую таблицу, которая совсем не похожа на таблицу

Есть какие-нибудь идеи по любому из вопросов?

Answer 1

Решено и то, и другое:

Вместо: `r print(Table1)`

использование: `r knitr::kable(Table1, format = "markdown")`