So fügen Sie glänzende radioGroupButtons in Spalten ein

Nov 29 2020

Ich möchte einige radioGroupButtons()von ihnen shinyWidgetsin 5 Spalten mit gleichem Abstand ausrichten . Ich möchte auch, dass die Schaltflächen alle die gleiche Breite haben. Die Spaltenbreiten funktionieren etwas besser, wenn ich sie verwende, direction = "vertical"aber die Spalten sind noch weiter voneinander entfernt. So sieht es aus wie es ist.

Vielleicht ist die Antwort hier versteckt , aber ich konnte es nicht herausfinden.

library(shiny)
library(shinyWidgets)

my_css <-
  ".btn-group, .btn-group-vertical {
    column-count: 5;
  }"


ui <- 
  fluidPage(
    tags$head(tags$style(HTML(my_css))),
    radioGroupButtons(
      inputId = "somevalue1",
      label = NULL,
      choices = 
        setNames(
          1:20,
          rep(c("xs", "medium", "very long", "a whole lotta text"), 5)
        )#, direction = "vertical"
    )
  )


server <- function(input, output) {}

shinyApp(ui, server)

Antworten

2 gdevaux Nov 29 2020 at 17:35

Sie können alles mit der gleichen Breite haben, indem Sie mit dem CSS der Klasse btn-group-toggle und radiobtn spielen.

my_css <-
  ".btn-group, .btn-group-vertical {
    column-count: 5;
  }
  
  .btn-group-toggle {
  width:200px;
  }

  .radiobtn { 
    width:200px;
  }"