css - Cómo colocar un botón en la columna fluidRow

Estoy tratando de colocar un cuadro de selección de entrada junto a un botón de acción en una aplicación brillante, usando fluidRow & argumentos de columna Sin embargo, el botón se coloca en la parte superior de su columna. El uso de text-align:center en el div coloca el botón en el centro de la vista de columna. Me gustaría que el botón de acción esté a la misma altura que el cuadro de selección a su izquierda.

Estoy empezando a familiarizarme con algo de CSS gracias a Shiny, pero estoy perdido aquí. Gracias de antemano :)

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

sidebarPanel(width = 6,
# *Input() functions
fluidRow(column(6, selectInput("Input1", label = h3("Select Input 1"), 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)

Puedes hacerlo agregando otra fluidRow y configurando la etiqueta =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)