Css 如何在fluidRow列中定位按钮

我试图使用

fluidRow

&

列

参数，在闪亮的应用程序中的

操作按钮旁边放置一个
选择输入
框。但是，该按钮被放置在其
列的顶部。
使用
div
中的
text align:center
将按钮置于
列的顶部中间。我希望
操作按钮
与左侧的
选择框
处于同一高度

我刚开始接触到一些
CSS
，因为
shinny
，但我在这里不知所措。
提前感谢：）

ui您可以通过添加另一个fluidRow并将标签设置为NULL来实现这一点

ui <- fluidPage(title = "Working Title",

                sidebarPanel(width = 6,
                             # *Input() functions
                             fluidRow(column(6,  h3("Select Input 1") )), 
                             fluidRow(column(6, selectInput("Input1", label = NULL, choices = list( "A" = "A", "B" = "B"), selected = 1)),
                                      column(6, div(style = "background-color:yellow; text-align:center;", actionButton("goButtonSetInput1", "SetInput1")))
                             )
                )

)

server <- function(input, output) {

}

shinyApp(ui = ui, server = server)

ui
ui <- fluidPage(title = "Working Title",

                sidebarPanel(width = 6,
                             # *Input() functions
                             fluidRow(column(6,  h3("Select Input 1") )), 
                             fluidRow(column(6, selectInput("Input1", label = NULL, choices = list( "A" = "A", "B" = "B"), selected = 1)),
                                      column(6, div(style = "background-color:yellow; text-align:center;", actionButton("goButtonSetInput1", "SetInput1")))
                             )
                )

)

server <- function(input, output) {

}

shinyApp(ui = ui, server = server)