Как получить больше места между кнопками radioGroupButtons и включить иконки - PullRequest
Новая
       55

Как получить больше места между кнопками radioGroupButtons и включить иконки

0 голосов
/ 16 января 2020

Я использую 'radioGroupButtons' из пакета woolWidgets с параметром Individual = TRUE. Кнопки расположены вплотную друг к другу.

У меня два вопроса. Можно ли получить больше места между кнопками? Можно ли также получить метки кнопок, перед которыми стоит значок (Glyphicon, Font Awesome)?

Было бы здорово, если бы это выглядело так:

enter image description here

Мой код выглядит следующим образом: 

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)

1 Ответ

1 голос
/ 16 января 2020

Это должно работать: 

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)

Чтобы найти другие значки, проверьте ссылки в ?icon.

...