Shiny 如何在按钮组的按钮之间获得更多空间并包含图标

我使用shinyWidgets包的“radioGroupButtons”，选项为individual=TRUE。按钮并排紧靠着

我有两个问题。 按钮之间是否有可能获得更多的空间？ 也可以在按钮标签前面加一个图标（Glyphicon，Font Aewome）吗

如果它看起来像这样，那就太好了：

我的代码如下：

library(shiny)
library(shinyjs)
library(shinyWidgets)

ui <- fluidPage(
  useShinyjs(),

  radioGroupButtons(
    inputId = "id000",
    label = NULL,
    choices = c("Text",  "File", "Web"),
    individual = TRUE,
    selected = character(0))
)

server <- function(input, output, session)
{
  observeEvent(input$id000, alert(input$id000), ignoreInit = TRUE)
}

shinyApp(ui = ui, server = server)

库（闪亮）
图书馆（shinyjs）
图书馆（shinyWidgets）
ui这应该是可行的：

library(shiny)
library(shinyjs)
library(shinyWidgets)

ui <- fluidPage(
  useShinyjs(),
  tags$head(tags$style('.btn-group{ margin-left: 15px;}')),  # add the spacing
  icon(NULL),  # need a call to icon to attach some dependencies; probably a better solution exists
  radioGroupButtons(
    inputId = "id000",
    label = NULL,
    choices = c(`<i class='fas fa-font'></i> Text` = "Text",
                `<i class='far fa-file-alt'></i> File` = "File", 
                `<i class='fas fa-globe-americas'></i> Web` = "Web"),
    individual = TRUE,
    selected = character(0))
)

server <- function(input, output, session)
{
  observeEvent(input$id000, alert(input$id000), ignoreInit = TRUE)
}

shinyApp(ui = ui, server = server)

库（闪亮）
图书馆（shinyjs）
图书馆（shinyWidgets）
谢谢，效果很好！在“fluidPage”中，我添加了“align=“center”。然后为了保持按钮居中，我更改了“左边距：15px；”进入“左边距：7px；右边距：7px；'。