有没有一种方法可以动态地selectInput，并像flowLayout一样安排它各自的textInput？

install.packages("shiny")
install.packages("shinydashboard")
install.packages("shinydashboardPlus")

library(shiny)
library(shinydashboard)
library(shinydashboardPlus)

ui <- dashboardPage(
  dashboardHeader(title = "动态SelectInput和FlowLayout"),
  dashboardSidebar(
    sidebarMenu(
      menuItem("动态输入", tabName = "input")
    )
  ),
  dashboardBody(
    tabItems(
      tabItem(
        tabName = "input",
        fluidRow(
          column(width = 4, selectInput("dynamic_input", "选择项目", choices = NULL)),
          column(width = 8, flowLayout(textInput("text_input", "输入文本")))
        )
      )
    )
  )
)

server <- function(input, output, session) {
  observe({
    choices <- c("选项1", "选项2", "选项3") # 这里是动态的选项，可以根据实际需求进行修改
    updateSelectInput(session, "dynamic_input", choices = choices)
  })
}

shinyApp(ui, server)