R блестящий материал дисплей радио кнопки встроены

Question

В R Shiny переключатели можно показывать горизонтально, используя параметр inline = TRUE, как указано здесь , есть ли способ сделать это с помощью material_radio_button с использованием пакета блестящий материал

Я пытался использовать inline = TRUE и получаю ошибку unused argument (inline = TRUE)

Answer 1

library(shiny)
library(shinymaterial)

ui <- fluidPage(
  material_radio_button(
    input_id = "example_radio_button",
    label = "Radio Button",
    choices = c(
      "Cake" = "c",
      "Pie" = "p",
      "Brownie" = "b"
    ),
    color = "#ef5350"
  ),

  tagList(
    tags$head(
      tags$style(
        "#example_radio_button {display: flex;}"
      )
    )
  )
)

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

}

shinyApp(ui, server)

Вы можете попробовать display: flex; или заменить flex на -webkit-box, -webkit-inline-box или inline-flex.

Обновление

Это может выглядеть лучше:

library(shiny)
library(shinymaterial)

ui <- fluidPage(
  tags$h5(tags$b('Radio Button')),
  material_radio_button(
    input_id = "example_radio_button",
    label = "",
    choices = c(
      "Cake" = "c",
      "Pie" = "p",
      "Brownie" = "b"
    ),
    color = "#ef5350"
  ),

  tagList(
    tags$head(
      tags$style(
        "#example_radio_button {display: flex;}
        input[type=radio] {margin-left: 10px;}"
      )
    )
  )
)

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

}

shinyApp(ui, server)