R 重复无功输出

我想在一个R应用程序的多个位置显示相同的反应文本输出。下面是一个简单的示例（在单个R标记文档中）：

---

输入/输出必须具有唯一的ID。引自

闪亮应用中的输入和输出ID共享一个全局名称空间，这意味着， 每个ID在整个应用程序中必须是唯一的。如果你正在使用 函数生成UI，这些函数生成输入和 输出，然后您需要确保没有任何ID发生冲突

---

闪亮的模块和名称空间提供了一种组织代码和避免名称冲突的方法。

您不能有两个具有相同id的输出。感谢您提供的信息。如果你能回答这个问题，我会接受的。你能指出一个明确说明的地方吗？

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

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

```{r}
output$text1 <- renderText({ 
  paste("Selected letter:", input$var)
})

fluidPage(
  fluidRow(
    selectInput("var", label="Choose a letter", choices=letters[1:4], selected="b")
    ),
  fluidRow(
    textOutput("text1")
  ),
  fluidRow(
    textOutput("text1")
  )
)
```

n <- 2
for(i in seq(n)) {
  output[[paste0("text",i )]] <- renderText(paste("Selected letter:", input$var))
}

fluidPage(
  fluidRow(
    selectInput("var", label = "Choose a letter",
      choices = letters[1:4], selected = "b")
    ),
  fluidRow(
    textOutput("text1")
  ),
  fluidRow(
    textOutput("text2")
  )
)