如何实现点击按钮时在bsmodal弹窗中展示多个R Shiny组件

我帮你调整了代码，现在可以实现点击按钮弹出包含左右对齐盒子的弹窗，左侧盒子上方也能正常显示selectInput组件。以下是完整的可运行代码：

library(DT)
library(shiny)
library(shinyBS)

ui <- basicPage(
  h2("The mtcars data"),
  # 触发弹窗的按钮
  column(5, offset = 5, actionButton("CR1_S1", "Open Modal")),
  
  # 定义bsModal弹窗，绑定到CR1_S1按钮
  bsModal(
    id = "modalExample",  # 弹窗唯一ID
    title = "弹窗标题",   # 弹窗标题
    trigger = "CR1_S1",  # 触发按钮的ID
    size = "large",       # 弹窗大小，可选small/large/extra-large
    
    # 弹窗内部布局：fluidRow实现行布局，column分左右两栏
    fluidRow(
      # 左侧栏：占6列，先放selectInput，再放内容盒子
      column(
        width = 6,
        selectInput(
          inputId = "carSelect",
          label = "选择车型",
          choices = rownames(mtcars),
          selected = rownames(mtcars)[1]
        ),
        # 左侧内容盒子，用wellPanel做示例
        wellPanel(
          h4("左侧盒子"),
          textOutput("selectedCar")
        )
      ),
      
      # 右侧栏：占6列，内容盒子
      column(
        width = 6,
        wellPanel(
          h4("右侧盒子"),
          # 这里可以放你需要的内容，比如DT表格
          DTOutput("carTable")
        )
      )
    )
  ),
  
  # 主面板（如果需要展示其他内容）
  mainPanel(
    # 这里可以添加页面其他内容，比如原始mtcars表格
    DTOutput("mtcarsTable")
  )
)

server <- function(input, output) {
  # 左侧盒子的输出：显示选中的车型
  output$selectedCar <- renderText({
    paste("你选中的车型是：", input$carSelect)
  })
  
  # 右侧盒子的输出：显示选中车型的详细数据
  output$carTable <- renderDT({
    mtcars[input$carSelect, , drop = FALSE]
  })
  
  # 主面板的mtcars表格
  output$mtcarsTable <- renderDT({
    mtcars
  })
}

shinyApp(ui, server)

关键修改说明： #

• 补全bsModal定义：原代码缺少弹窗的核心组件bsModal，我添加了这个组件并绑定到你的触发按钮CR1_S1，确保点击按钮能唤起弹窗。
• 实现左右对齐布局：利用Bootstrap的fluidRow和column网格系统，给左右盒子各分配6列（总12列），实现完美的左右对齐效果。
• 左侧selectInput放置：在左侧column内先放置selectInput，再放内容盒子，完全匹配你的需求。
• 完善示例内容：我添加了简单的输出逻辑（显示选中车型、车型详情表格），你可以根据实际业务需求替换成自己的内容。

内容的提问来源于stack exchange，提问作者Adam Shaw