R 基于闪亮应用程序中数据框的列标题子集创建多个闪亮小部件

下面我有一个闪亮的应用程序，用户可以从数据框中选择一个或多个列名

name<-c("John","Jack","Bill")
value1<-c(2,4,6)
add<-c("SDF","GHK","FGH")
value2<-c(3,4,5)
dt<-data.frame(name,value1,add,value2)

library(shiny)
library(shinyWidgets)
library(DT)
# ui object
ui <- fluidPage(
    titlePanel(p("Spatial app", style = "color:#3474A7")),
    sidebarLayout(
        sidebarPanel(
            pickerInput(
                inputId = "p1",
                label = "Select Column headers",
                choices = colnames( dt),
                multiple = TRUE,
                options = list(`actions-box` = TRUE)
            ),
            uiOutput("selects")

            
        ),
        
        mainPanel(
        )
    )
)

# server()
server <- function(input, output) {
    
    
    output$selects<-renderUI({
        dt<-dt[,input$p1]
        return(dt)
        for(i in 1:ncol(dt)){
            pickerInput(
                inputId = colnames(dt)[i],
                label = colnames(dt)[i],
                choices = dt[,i],
                multiple = TRUE,
                options = list(`actions-box` = TRUE)
            )
        }
    })
   
    
}

# shinyApp()
shinyApp(ui = ui, server = server)