Как увеличить расстояние между двумя центрированными кнопками действий?

Question

Я хочу центрировать две кнопки действий одинаковой ширины с небольшим промежутком между ними.Поэтому я попробовал:

library(shiny)

ui <- fluidPage(
  fluidRow(
    align = "center",
    br(),
    column(
      12,
      actionButton(
        inputId = "ab1",
        label = "Left button",
        style = "width:400px"
      ),
      actionButton(
        inputId = "ab2",
        label = "Right button",
        style = "width:400px"
      )
    ) # column 
  ) # fluidRow
) # fluidPage

server <- function(input, output) {}

shinyApp(ui, server)

Это дает:

Как увеличить расстояние между двумя кнопками?После Блестящий - Как увеличить интервал между встроенными переключателями? Я попытался style = "width:400px; margin.left:200px" на правой кнопке, но это не имело никакого эффекта.

РЕДАКТИРОВАТЬ: Следуя предложению Стефана, я попытался:

library(shiny)

ui <- fluidPage(
  fluidRow(
    align = "center",
    br(),
    column(
      6,
      actionButton(
        inputId = "ab1",
        label = "Left button",
        style = "width:400px"
      )
    ),
    column(
      6,
      actionButton(
        inputId = "ab2",
        label = "Right button",
        style = "width:400px"
      )
    ) 
  ) # fluidRow
) # fluidPage

server <- function(input, output) {}

shinyApp(ui, server)

Однако теперь пространство между двумя кнопками слишком велико:

Каксделать его меньше, т.е. как его контролировать?

Answer 1

Вы также можете использовать splitLayout:

library(shiny)

ui <- fluidPage(
  fluidRow(
    align = "center",
    br(),
    column(
      12,
      splitLayout(cellWidths = c("30%", "30%"),
                  actionButton(
                    inputId = "ab1",
                    label = "Left button",
                    style = "width:400px"
                  ),
                  actionButton(
                    inputId = "ab2",
                    label = "Right button",
                    style = "width:400px"
                  )
      )
    )
  ) # fluidRow
) # fluidPage

server <- function(input, output) {}

shinyApp(ui, server)

Answer 2

Вот так, это нормально?

ui <- fluidPage(
  fluidRow(
    align = "center",
    br(),
    column(
      6,
      actionButton(
        inputId = "ab1",
        label = "Left button",
        style = "width:400px"
      )
    ),
    column(
      6,
      actionButton(
        inputId = "ab2",
        label = "Right button",
        style = "width:400px"
      )
    )  
  ) 
) 

server <- function(input, output) {}

shinyApp(ui, server)