可以在R闪亮中嵌套outputUI和renderUI吗？

library(shiny)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      selectInput("output_type", "选择输出类型", choices = c("文本", "图表"))
    ),
    mainPanel(
      uiOutput("output_element")
    )
  )
)

server <- function(input, output) {
  output$output_element <- renderUI({
    if (input$output_type == "文本") {
      outputUI("text_output")
    } else if (input$output_type == "图表") {
      outputUI("plot_output")
    }
  })
  
  output$text_output <- renderText({
    "这是一个文本输出元素"
  })
  
  output$plot_output <- renderPlot({
    plot(1:10, main = "这是一个图表输出元素")
  })
}

shinyApp(ui, server)