如何使用lapply在Shiny中创建反应对象？

ui <- fluidPage(
  # 在UI中定义一个输出对象
  textOutput("output_text")
)

server <- function(input, output) {
  # 使用lapply创建反应对象
  output$output_text <- renderText({
    # 创建一个包含多个文本的列表
    text_list <- list("Text 1", "Text 2", "Text 3")
    
    # 使用lapply遍历列表，并将每个文本包装在一个HTML标签中
    lapply(text_list, function(text) {
      HTML(paste0("<p>", text, "</p>"))
    })
  })
}

# 运行Shiny应用程序
shinyApp(ui, server)