如何对齐R中的一组复选框GroupInput

问题描述

我使用下面的代码创建了一组checkboxGroupInput，但显示不正确。它看起来是这样的：

您知道怎样才能强制在SHINY中正确对齐吗？

ui.R

uiOutput(outputId = "numSelector")

server.R

        output$numSelector <- renderUI({
        out <- checkboxGroupInput(
            inputId = "numSelector",
            label   = "Select the numbers to filter on:",
            choices = selectRange(input$dataName),
            inline = TRUE
        )
        return(out)
    })

div

可以通过调整推荐答案标签来解决这个问题。一个闪亮的小示例应用程序进行说明：

library(shiny)

# tweaks, a list object to set up multicols for checkboxGroupInput
tweaks <-
  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)))
            }))

checkboxGroupInput如下所示：

我将此解决方案与帮助表单一起拼凑在一起：CSS-Tricks和This Google Groups帖子。

这篇关于如何对齐R中的一组复选框GroupInput的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！