R Shiny 包装 UI 元素

Question

有什么办法可以包裹UI元素吗？我有一个 checkboxGroupInput，我想包装这些元素，以便它们适合整个 wellPanel？

编辑:下面添加了可重现的示例。

在 wellPanel 中列出复选框的位置，我想要一种将其包裹到 wallPanel 宽度的方法，以便节省空间并创建更好的布局。有什么建议么？

全局.R

library(shiny)
library(shinyIncubator)
data_in <- c(1:50)

ui.R

library(shiny)
library(shinyIncubator)

shinyUI(fluidPage(
  fluidRow(
    headerPanel('Test Page')
  ),
  fluidRow(
    plotOutput('plot')
  ),
  fluidRow(
    wellPanel(uiOutput("checkbGroups"))
  )
))

服务器.R

shinyServer(function(input, output) {
  values <- reactiveValues()

  datasetInput <- reactive({
    values$data <- input$foo
  })

  plotInput <- reactive({
    datasetInput()
    plot(x=values$data, y=values$data, col=values$data)
  })

  output$checkbGroups <- renderUI({
    checkboxGroupInput(inputId = 'foo', label = 'Numbers To use', 
                       choices = data_in, 
                       selected = data_in)
  })

  output$plot <- renderPlot({
    plotInput()
  })
})

Answer 1

您可以在复选框上添加一些样式

library(shiny)
library(shinyIncubator)
data_in <- c(1:50)

runApp(
  list(ui = fluidPage(
    fluidRow(headerPanel('Test Page')),
    fluidRow(plotOutput('plot')),
    fluidRow(wellPanel(uiOutput("checkbGroups")))
  ),
  server = function(input, output) {
    values <- reactiveValues() 
    datasetInput <- reactive({
      values$data <- input$foo
    })
    plotInput <- reactive({
      datasetInput()
      plot(x=values$data, y=values$data, col=values$data)
    })
    output$checkbGroups <- renderUI({
      test <- checkboxGroupInput(inputId = 'foo', label = 'Numbers To use', 
                         choices = data_in, 
                         selected = data_in)
      gsub("class=\"checkbox\"", "class=\"checkbox\" style=\"float:left; margin:25px;\"", test)
    })
    output$plot <- renderPlot({plotInput()})
  })
)