如何格式化R-Markdown中的反应文本输出？

Question

在我的Markdown文件中，我使用Shiny小部件设置一些参数。在文档末尾添加一些响应文本，具体取决于所选参数，并在更改参数时进行更改。此文本应使用换行符设置格式。输出格式为HTML。下面的最小示例显示了我的方法，截图显示在结果下方。不幸的是没有换行符。

如何在R-Markdown的反应文本输出中归档换行符？

---
title: 'Minimal example'
runtime: shiny
output: 
  html_document

---


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


```{r}
selectInput("input1", label = "Input1",
              choices = 1:5, selected = 1)

selectInput("input2", label = "Input2",
              choices = 1:5, selected = 1)

```

```{r}
### Generate Parameter for report
renderText({
        HTML(paste('Input1:', input$input1, '<br> Input2:', input$input2))
})

renderText({
        paste('Input1:', input$input1, ' \\n Input2:', input$input2)
})

renderText({
        paste('Input1:', input$input1, '  \n Input2:', input$input2)
})

renderText({
        cat(paste('Input1:', input$input1, '  \n Input2:', input$input2))
})
```

Answer 1

将renderUI与HTML()结合使用：

renderUI({
        HTML(paste('Input1:', input$input1, '<br> Input2:', input$input2))
})