如何在Rmarkdown文档中使用Shiny的反应表输出？

Question

我有一个Shiny应用程序，可以下载Rmarkdown word文档，但我不知道如何在此Rmarkdown中设置表格。

Ui.R

<div class="nojs-noborder" id="contentwrapper">

Server.R

mainPanel(
  tabsetPanel(
    tabPanel(
      title = "Résultat",
      br(),
      tableOutput(
        outputId = "tab"
      ),
      downloadButton(
        outputId = "downloadtable",
        label = "Export this table"
      ),
      radioButtons('format', 'Document format', c('PDF', 'HTML', 'Word'),
                   inline = TRUE),
      downloadButton(
        outputId = "downloadReport",
        label = "Download"
      )
    )
  )
)

Report.rmd

resu <- reactive({...
})

# Table of selected dataset
  output$tab <- renderTable({
  resu()
})

输出

---
title: "Title"
author: "Aleksik"
date: "`r format(Sys.time(), '%d %B, %Y')`"
output: pdf_document
classoption: landscape
---

## Resultat

```{r, echo=FALSE }
resu()
```

例如，我想获得一个没有“ ##”的漂亮桌子。

此外，我的Rmarkdown文档的选项“横向”无效，我也不知道为什么。

非常感谢