Блестящая кнопка-флажок Ширина и центрирование

Question

Я создал страницу пользовательского интерфейса с некоторыми кнопками, и у меня есть две проблемы с кнопками checkboxInput:

  checkboxInput('comissions', label = "Comissions", width = "10%")

Изменение ширины = "X%" ничего не меняет, то же самое для "Xpx".Я подозревал, что это связано с фиксированной шириной столбца, но изменение X% хорошо работает для других кнопок.

Вторая проблема заключается в том, что кнопка выглядит следующим образом:

Я бы хотел, чтобы он был по центру, а не в левом столбце.

Спасибо за помощь,

Answer 1

Вот способ центрировать флажок, но он требует width = "100%".

library(shiny)

ui <- basicPage(
  fluidRow(
    column(4, 
           sliderInput("costs", "Costs", min = 1, max = 10,  value = 1)),
    column(4, style = "text-align: center;", 
           checkboxInput("comissions", label = "Comissions", width = "100%")),
    column(4, 
           sliderInput("periods", "Number of periods", min = 1, max = 10,  value = 1))
  )
)

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

shinyApp(ui, server)

Я не знаю, что выожидаете увидеть, изменив ширину?

---

РЕДАКТИРОВАТЬ

Чтобы контролировать пустое пространство вокруг входа флажка и его вертикальное выравнивание:

library(shiny)

ui <- basicPage(
  fluidRow(
    column(12,
           div(style = "display: inline-block;", 
               sliderInput("costs", "Costs", min = 1, max = 10,  value = 1)
           ),
           div(style = "display: inline-block; margin-left: 20px; margin-right: 20px; vertical-align: -20px;", 
               checkboxInput("comissions", label = "Comissions", width = "100%")
           ),
           div(style = "display: inline-block;", 
               sliderInput("periods", "Number of periods", min = 1, max = 10,  value = 1)
           )
    )
  )
)

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

shinyApp(ui, server)