使用rmarkdown获取要在屏幕中显示的数据

我正在制作一个使用rMarkdown的闪亮应用程序，这与制作一个不使用ui和服务器部分的闪亮应用程序有点不同

我想使用rMarkdown以闪亮的方式显示一个表

---
runtime: shiny
output: html_document
---



### Data

```{r echo=FALSE}
n <- c(2, 3, 5)
s <- c("aa", "bb", "cc")
b <- c(TRUE, FALSE, TRUE)
myDataFrame <- data.frame(n,s,b)

tableOutput("view")
textOutput("message")

output$view <-renderTable({myDataFrame})

output$message <- renderText({"test test test"})

---
运行时间：闪亮
输出：html\u文档
---
###资料
```{r echo=FALSE}
n只需放弃分配：

```{r echo=FALSE}
n <- c(2, 3, 5)
s <- c("aa", "bb", "cc")
b <- c(TRUE, FALSE, TRUE)
myDataFrame <- data.frame(n,s,b)

tableOutput("view")
textOutput("message")

renderTable({myDataFrame})

renderText({"test test test"})
```

`{r echo=FALSE}
n