如何将下拉列表放在RShiny中的dataTable下面？

Question

我目前正在开发一款Shiny App。我在定位DataTable下面的selectInput（）时面临一个问题。

fluidRow(
    column(3,dataTableOutput("table", height = "40px")),
    column(9,uiOutput("inputGroup")),
    column(9,textOutput("text1"))
      ),
  fluidRow(
    column(3, 
           selectizeInput("proj1", NULL,
                          choices = Dummy$Project_1,
                          options = list(
                            placeholder = "Additional Projects",
                            onInitialize = I('function() { this.setValue(""); }')

                          )
           ))),
  fluidRow(
    column(3, 
           selectizeInput("proj2", NULL,
                          choices = Dummy$Project_1,
                          options = list(
                            placeholder = "Additional Projects",
                            onInitialize = I('function() { this.setValue(""); }')

                          )
           )))

这是 RCode 。

这个输出如下：

任何人都可以帮我解决这个问题吗？