从fluidPage更改为page_fluid时，文本对齐不起作用

Question

我正在尝试并排对齐两个输入，当我使用

fluidPage

时，它工作正常，但当我更改为

page_fluid

时，文本（

+

符号）不再居中。

library(shiny)
library(bslib)

ui <- page_fluid(  layout_columns(col_widths = c(10, 2),
                                  textInput("text", NULL, placeholder = "Name"),
                                  actionButton("ab", NULL, icon =  icon("plus"), style = "height: 36px; text-align: center;")
),
actionButton("ab1", NULL, icon =  icon("plus"), style = "height: 36px; text-align: center;"))

server <- function(input, output, session) {
  
}

shinyApp(ui, server)

Answer 1

默认为垂直和水平居中对齐。 但填充也有默认值。 填充后，加号放不下，所以向下溢出。 如果删除顶部和底部填充，则垂直对齐可以完成其工作。

library(shiny)
library(bslib)

ui <- page_fluid(  layout_columns(col_widths = c(10, 2), fillable = FALSE,
                                  textInput("text", NULL, placeholder = "Name"),
                                  actionButton("ab", NULL, icon =  icon("plus"), style = "height: 36px; padding-top: 0px; padding-bottom: 0px;")
),
actionButton("ab1", NULL, icon =  icon("plus"), style = "height: 36px; padding-top: 0px; padding-bottom: 0px;"))

server <- function(input, output, session) {
  
}

shinyApp(ui, server)