R

Как да подравните група от квадратче за избор GroupInput в R Shiny

How Align Group Checkboxgroupinput R Shiny



Решение:

Решение на този проблем може да бъде постигнато чрез регулиране на div таговете. Малък пример за блестящо приложение за илюстрация:

библиотека (блестяща) # ощипвания, обект от списък за настройка на многоколки за квадратче за отметка<- list(tags$head(tags$style(HTML(' .multicol { height: 150px; -webkit-column-count: 5; /* Chrome, Safari, Opera */ -moz-column-count: 5; /* Firefox */ column-count: 5; -moz-column-fill: auto; -column-fill: auto; } ')) )) # values to show, or not show, these will be the 'choices' and 'selected' values # for the checkboxGroupInput() all_rows <- 1:25 names(all_rows) <- paste('Row', all_rows) # data control: the checkboxes will control the data values plotted controls <- list(h3('Multicolumn checkboxGroupInput'), tags$div(align = 'left', class = 'multicol', checkboxGroupInput(inputId = 'numSelector', label = 'Select the numbers:', choices = all_rows, selected = all_rows, inline = FALSE))) # run the app runApp(list( ui = fluidPage(tweaks, fluidRow(column(width = 4, controls), column(width = 8, plotOutput('plot')))), server = function(input, output) { plot_data <- reactive(input$numSelector) output$plot <- renderPlot(plot(x = plot_data(), y = plot_data(), pch = 6, cex = 2, xlim = c(1, 25), ylim = c(1, 25))) }))  
ThecheckboxGroupInput изглежда така:

 
 
 въведете описание на изображението тук
 
 
 
Калдърях това решение заедно с помощната форма: CSS-Tricks и This Google Groups post.
 
 
  
Знам, че тази публикация е древна, но ... Вдъхновен от отговора на Питър, се зарових и я поправих, за да оправя само съществуващото квадратче за отметкаGroupInput. Етикетът за групата все още върви над групата с моя вход, а останалата част от оформлението е същото.
 
Добавете това някъде в потребителския си интерфейс. За мен това е член на tagList () в страничната лента (само за да поддържа кода заедно), но трябва да работи навсякъде (стига да е в tagList () или предполагам, че е единственият елемент).
 
тагове $ head (тагове $ style (HTML ('.checkbox-inline {margin-left: 0px; margin-right: 10px;} .checkbox-inline+.checkbox-inline {margin-left: 0px; margin-right: 10px; } ')))