在Shiny中使用动态UI更新Bucket列表(带可重现的示例)

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

library(shiny)
library(shinydashboard)

# 定义UI界面
ui <- dashboardPage(
  dashboardHeader(title = "动态UI示例"),
  dashboardSidebar(
    sidebarMenu(
      menuItem("选择Bucket", tabName = "bucket")
    )
  ),
  dashboardBody(
    tabItems(
      tabItem(tabName = "bucket",
              fluidRow(
                box(
                  title = "Bucket列表",
                  width = 6,
                  selectInput("bucket_select", "选择Bucket", choices = NULL)
                )
              )
      )
    )
  )
)

# 定义服务器逻辑
server <- function(input, output, session) {
  
  # 在服务器端动态更新Bucket列表
  observe({
    # 这里可以编写获取Bucket列表的代码，例如从数据库或API中获取
    buckets <- c("bucket1", "bucket2", "bucket3")
    
    # 更新选择框的选项
    updateSelectInput(session, "bucket_select", choices = buckets)
  })
}

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